MSHFLEXGRID学习笔记

来源：互联网发布：软件开发项目进度报告编辑：程序博客网时间：2024/04/28 17:00

此程序是可以能过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