此程序是可以能过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日
所属类别：
操作系统: 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
