此程序是可以能过 TEXT 文本控件 , 使 MSHFlexGrid 控件 , 具有可编辑的功能 .:
使用鼠标选择单元格 , 进行编辑 , 按回车进行确认工作 , 同时 TEXT 控件它会以行为单位 , 从左到右 , 从上到下 , 在单元格里移动 , 同时可以对单元格进行编辑
本程序是调用函数来完成工作的 , 这样可以同时对多个 MSHFlexGrid1 控件进行编辑工作 . 同时在编辑的同时 , 还可以加入 COMBO 控件对 MSHFlexGrid1 进行编辑 , 这些都可以能过函数来完成工作 , 这样可以及大的减少了工作量 !
问题讨论 :
当 MSHFlexGrid1 控件出现多列或多行的情况下 , 此控件会自动产生滚动条 , 用鼠标点击时 , 滚动条会自动进行移动 .(TEXT 控件也同时在移动到相应的表格里 )
但是当用回车键移动表格时 ,(TEXT 控件也随之移动 ), 如果移动时行或列在表格控件之外时 , 列或行就会跑到控件的外面 . 但是不会影响到数据的传送 .
希望大家踊跃讨论 , 学之为用 , 用之代学 !!!
Private Sub Form_Load() '系统初始化
TXT.Visible = False
With MSHFlexGrid1
.Rows = 16
.Cols = 4
.ColWidth(0) = 800
.ColWidth(1) = 1500
.ColWidth(2) = 6500
.ColWidth(3) = 2000
.TextMatrix(0, 1) = "时间"
.TextMatrix(0, 2) = "安排"
.TextMatrix(0, 3) = "备注"
'表头项居中
.FillStyle = flexFillRepeat
.Col = 0
.Row = 0
.RowSel = .Rows - 1
.ColSel = .Cols - 1
.CellAlignment = 4
Dim CoDe As Integer
CoDe = 1
Do While CoDe < .Rows
.TextMatrix(CoDe, 0) = "编号" & CoDe
CoDe = CoDe + 1
Loop
End With
End Sub
Private Sub MSHFlexGrid1_click()
Call YiDongTXT(MSHFlexGrid1, Txt, 15, 3)
End Sub
Private Sub Txt_keypress(keyascii As Integer) '添加完数据后，进行当前位置的判断
If keyascii = vbKeyReturn Then
Call JianYanTXT(MSHFlexGrid1, Txt)
Call WanBiTXT(MSHFlexGrid1, Txt, 15, 3)
End If
If keyascii = vbKeyEscape Then
Txt.Visible = False
MSHFlexGrid1.SetFocus
End If
End Sub
Private Function YiDongTXT(Table As MSHFlexGrid, _
kongJian As TextBox, _
RowNum As Integer, _
ColNum As Integer)
If Table.Col <= ColNum And Table.Row <= RowNum Then
kongJian.Left = Table.Left + Table.ColPos(Table.Col)
kongJian.Top = Table.Top + _
Table.RowPos(Table.Row)
kongJian.Width = Table.ColWidth(Table.Col)
kongJian.Height = Table.RowHeight(Table.Row)
kongJian.Text = Table.Text
kongJian.Visible = True
kongJian.SetFocus
End If
End Function
Private Function JianYanTXT(Table As MSHFlexGrid, _
kongJian As TextBox)
Table.Text = kongJian.Text
End Function
'添加数据后，进近控件的移动 ''TXT
Private Function WanBiTXT(Table As MSHFlexGrid, _
kongJian As TextBox, _
RowNum As Integer, _
ColNum As Integer)
If Table.Col = ColNum Then
Table.Col = 0
If Table.Row = RowNum Then
Table.Row = 1
Table.Col = 0
Else
Table.Row = Table.Row + 1
End If
End If
If Table.Col < ColNum Then
Table.Col = Table.Col + 1
End If
kongJian.Left = Table.Left + Table.ColPos(Table.Col)
kongJian.Top = Table.Top + _
Table.RowPos(Table.Row)
kongJian.Width = Table.ColWidth(Table.Col)
kongJian.Height = Table.RowHeight(Table.Row)
kongJian.Text = Table.Text
kongJian.Visible = True
kongJian.SetFocus
end function
设置 MSHFlexGrid 每行的颜色
Public Sub SetRowColor(ByRef MSHFlexGrid As Object)
Dim j, i, objName
objName = TypeName(MSHFlexGrid)
If StrConv(Trim(objName), vbUpperCase) <> "MSHFLEXGRID" Then
Exit Sub
End If
MSHFlexGrid.FillStyle = 1
For i = 1 To MSHFlexGrid.Rows - 1
MSHFlexGrid.Row = i
If i Mod 2 = 0 Then
MSHFlexGrid.Col = 0
MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1
MSHFlexGrid.CellBackColor = &H80FFFF
End If
Next i
MSHFlexGrid.FillStyle = 0
MSHFlexGrid.Row = 0
MSHFlexGrid.Col = 0
End Sub
** ** ** 如何实现 ** ** MSHFlexGrid ** ** 的自动滚动 **
|
编号：
|
QA004843
|
|
---|---|---|---
建立日期：
|
2004 年 1 月 3 日
|
最后修改日期：
|
2004 年 1 月 3 日
所属类别：
|
Visual Basic - DBGrid
|
|
|
|
操作系统 : windows98
编程工具 : vb6
问题 : 如何实现 MSHFlexGrid 的自动滚动 ?( lester )
---|---
|
|
可以修改 MSHFlexGrid 的 TopRow 属性来达到自动滚动的目的。 TopRow 是可见的最上面的一列（固定列除外）。如果这个数增加， MSHFlexGrid 就向上滚动；反之，减少就向下滚动。假设你已经设置好 MSHFlexGrid 的属性，在窗体上添加一个 Timer 控件，设置其 Interval 为 1000 。则下面的例子就使你的 MSHFlexGrid 每秒向上移动一行。
Private Sub Timer1_Timer()
MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow + 1
End Sub
在 VB 中，怎样用 MSHFlEXGRID 控件中的 sort 属性进行日期的明确排序呢？
各位高手们：
下午好啊！我又遇到难题了，现在只能来这里向各位高手们求救了！请问一下，在 VB 中，怎样用 MSHFlEXGRID 控件中的 sort 属性进行日期的明确排序呢？我试过了用 sort 来进行日期排序时，排得的结果不是很准确的，比如：我要准确排列以下这些日期吧！
2002 年第一季度， 2002 年 ,2005 年， 2005 年每三季度， 2005 第一度
我就排上前几个数，如果用
mshflexgrid1.colsel=7
mshflexgrid1.sort=1
这样排出的结果不是很准确的，它不能识别“ 2002 年”，和“ 2002 年第一季度”这两个数是谁大的，有时可以，有时不可以，还有以下这种形式的也不可以准确排序！
2002-10-1 ， 2001-5-1 ， 2002-10-2
这种形式的日期也不可以直接排序的！请问一下有什么方法可以解决以上的问题呢？请各位指教一二吧！在这里先谢过各位了！
您可以在DataGrid控件的MouseUp事件中加入类似以下代码来实现整行选择的效果:
Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp
Dim pt As System.Drawing.Point = New System.Drawing.Point(e.X, e.Y)
Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt)
If hti.Type = DataGrid.HitTestType.Cell Then
DataGrid1.Select(hti.Row)
End If
End Sub