MSHFlexGrid控件

 

一、MSHFlexGrid的重要属性：

1、AllowBigSelection作用：单击行或列的头部时，是否将正行或整列都选中，注意，需要有固定行或列。

2、TextMatrix(Row as long ,col as long )返回玄思那个行，列的单元文本内容

3、CellAlignment作用：该属性返回或设置的数值确定了一个单元格或被选定的多个单元格所在区域的水平和垂直对齐方式

object.CellAlignment [=value]   value值如下

4、AllowUserResizing ：该属性返回或者设置一个值，该值决定了是否可以用鼠标来对 MSHFlexGrid 控件中行和列的大小进行重新调整。

object.AllowUserResizing [= value]    

二、MSHFlexGrid的重要方法：

下面利用例子来熟悉：

1、AddItem

2、RemoveItem

3、Clear

Private Sub Form_Click()
   Dim Lucky As String
   Dim i As Integer
   Dim Msg As String  '声明变量。
'-----------------------------------------------------
   '添加数据，AddItem的用法
   Msg = "选择确定添加100条记录到MSFlexGrid"
   MsgBox Msg   '显示消息。
   MSHFlexGrid1.Cols = 2         '每行两列
   For i = 1 To 100   '从 1 计数到 100。
      Lucky = "Lucky " & Chr(9) & i   '创建项。
      MSHFlexGrid1.AddItem Lucky      '添加项。
   Next i
'---------------------------------------------------
    '删除一行。RemoveItem的用法
   Msg = "选择确定删除50行"
   MsgBox Msg                     '显示消息。
   For i = 1 To 50              '决定怎样删除
      MSHFlexGrid1.RemoveItem i   '其它每一项。
   Next i
'--------------------------------------------------
   '清空数据，Clear的用法
   Msg = "选择确定清空所有网格"
   MsgBox Msg                     '显示消息。
   MSHFlexGrid1.Clear               '清除列表框。
End Sub