MSFlexGrid控件概述
1、作用：该控件以表格形式显示二维字符数组中每个单元的数据。常用于处理复杂的二维数据表的问题。如校历表、学生宿舍表、学生班级成绩表等。
2、添加到控件箱
菜单命令：工程 | 部件，在部件对话框中选择：Microsoft FlexGrid Control 6.0 (SP6)。
3、主要属性
（1）Rows与Cols属性：分别用于设置或返回MSFlexGrid控件的行数与列数。
（2）Row与Col属性：分别用于设置或返回MSFlexGrid控件中活动单元的行号与列号。（3）TextMatrix属性：该属性用于表示MSFlexGrid控件中单元格的内容。
格式为：TextMatrix (Row, Col);
改变button按钮的形状其中Row与Col分别表示单元格在MSFlexGrid控件中的行号与列号。
（4）FixedRows属性：用于设置表格显示过程中固定不变的行数。如FixedRows=1，则表示固定行为1，
如图8.3中第1行。
（5）FixedCols属性：用于设置表格中固定不变的列数。如FixedCols=1，则表示固定列为1，如图8.3中第1列。
（6）FixedColor属性：用于设置固定行与固定列的颜。
（7）MouseRow与MouseCol属性：用于返回鼠标光标所在单元格的行号与列号。
（8） ColWidth（Col）、RowHigh(Row)属性：用于设置与返回第Col列的宽度与第Row 行的高度，例如设置第0列的宽度为1500，第0行的高度为300的赋值语句为：ColWidth(0) = 1500
RowHeight(0) = 300
（9）DataSource属性：用于选择数据表，只能通过Data数据源控件选择数据表。
说明，若要用ADO Data控件作为数据源，则应使用MSHFlexGrid控件。
（10）MousePointer属性：用于设置鼠标光标形状，属性取值与光标形状如表8.1所示。
【例8.1】编写程序，定义MSFlexGrid1控件为10行、5列表格，给每一个单元格赋值为Row+Col，其中Row与Col分别表示控件单元格的行号与列号。
新建一个工程(ex8_1.vbp)，窗体名为Form_ex81.frm。在窗体上添加一个MSFlexGrid控件与一个Command控件，双击Command控件，输入如下程序：
Private Sub Command1_Click()
Dim Row, Col As Integer '定义两个变量用于接收表格的行与列
With MSFlexGrid1
.Rows = 10'定义表格为10行
.Cols = 5'定义表格为5列
For Row = 0 To .Rows - 1
For Col = 0 To .Cols - 1
.TextMatrix(Row, Col) = Row + Col '将表格中的每一个单元格赋值为Row+Col
Next Col
Next Row
End With
End Sub
运行程序后的界面如图8.3所示。
1、MSFlexGrid控件的事件
（1）KeyPress事件：当用户按下或释放任何一个ANSI键（字母或数字等键）时触发。定义：Private Sub <；控件名>_KeyPress(KeyAscii As Integer)
其中，形参KeyAscii用于将用户按下或释放的ANSI键值传送给KeyPress过程。
（2）KeyDown事件：当用户按下一个键时触发。
定义：Private Sub <；控件名>_KeyDown(KeyCode As Integer, Shift As Integer)其中，形参KeyCode用于表示用户按键的类型，取值如表8.3所示。形参Shift用
于表示用户所按组合键（Ctrl、Alt、Shilt）的键值，取值如表8.4所示。
（3）KeyUp事件：当用户放开任何一个键时触发。
定义：Private Sub <；控件名>_KeyUp(KeyCode As Integer, Shift As Integer)
其中参数KeyCode与Shift的取值见表8.3与表8.4。
（4）MouseDown事件：当用户按下鼠标触发。
定义：Private Sub <；控件名>_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
其中，形参Button表示用户按下的是鼠标左键、中键还是右键，取值如表8.5所示。形参Shift取值类型见表8.4。x、y为鼠标光标在控件内的位置坐标，单位为缇。
2、MSFlexGrid控件的方法
（1）Clear方法：清除MSFlexGrid控件所有单元格中内容。
语句格式：MSFlexGrid.Clear
（2）AddItem方法：在MSFlexGrid控件中添加一个新行。
语句格式：MSFlexGrid.AddItem(String，Index，Number)
String为新增行中的字符串，用Tab键作为一行中各单元格字符串的分隔符。
Index为新增行的行号，若省略则添加到最后一行。
Number为添加行的带区号。
（3）RemoveItem方法：在MSFlexGrid控件中删除一行。
语句格式：MSFlexGrid. RemoveItem (Index，Number)
Index为要删除行的行号。
Number为要删除行的带区号。
【例8.2】在MSFlexGrid控件上实现九九乘法表，并实现鼠标拖弋功能，即用鼠标
拖动方法，将某单元格内容移动到另一个单元格中，或复制到另一个单元格中，如图8.4所示。
图8.4 用MSFLexGrid控件实现九九乘法表
设计步骤：
1、新建工程与窗体，在窗体上放置一个“退出”按钮、一个“计算九九乘法表”按钮和一个MSFlexGrid控件，设计步骤与属性设置演示：
1、新建工程与窗体，在窗体上放置一个“退出”按钮、一个“计算九九乘法表”按钮和一个MSFlexGrid控件，设计步骤与属性设置演示：
观看视频
2、编写代码实现九九乘法表及鼠标拖弋功能
（1）定义全局变量
在窗体的通用与声明部分定义四个全局变量：
Dim Cell As String, Ctrl As Boolean, Col As Long, Row As Long
其中：Cell：用于传送单元格内容；
Ctrl：用于判断是否按下“Ctrl”键；
Col,Row：用于记录原单元格行号与列号。
（2）编写“计算九九乘法表”命令按钮事件处理过程
双击“创建九九乘法表”按钮，编写如下事件处理过程。
Private Sub Command_Calculate_Click()
Dim I As Integer, J As Integer
With MSFlexGrid1
.Clear ‘清除所有单元格内容
For J = 1 To 9
.TextMatrix(0, J) = J ‘在第0行赋数字1~9
Next J
For I = 1 To 9
.TextMatrix(I, 0) = I ‘在第0列赋数字1~9
For J = 1 To 9
.TextMatrix(I, J) = CStr(I) & "*" & CStr(J) & "=" & CStr(I * J) ‘赋九九乘法表的内容
Next J
Next I
End With
End Sub
（3）编写鼠标拖弋程序
在某单元格按下鼠标左键时，触发MouseDown事件处理过程，在该过程中将光标形状改为“flexArrow ”，并将该单元格内容存放在全局变量Cell中。
拖弋鼠标到另一个单元格，放开鼠标左键，触发MouseUp事件处理过程。在该过程中将光标形状恢复为“flexCross ”，并将全局变量Cell中内容赋给现单元格，另将前单元格内容删除。于是前单元格的内容被移动到后单元格中，从而实现鼠标的拖弋功能。
若按下“Ctrl”键拖动鼠标时，光标形状改为“flexHourglass”，松开鼠标后。前一个单元格的内容被复制到后一个单元格中。
①键按下事件处理过程KeyDown
该过程用于判断是否按下“Ctrl”键。若按下“Ctrl”键则将全局变量Ctrl赋True值，表示用户按下了“Ctrl”键。Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then
Ctrl = True
End If
End Sub
②键松开事件处理过程KeyUp
该过程用于判断是否松开“Ctrl”键。若松开“Ctrl”键则将全局变量Ctrl赋Flase值，表示用户松开“Ctrl”键。
Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then ‘也可用Shift= vbCtrlMask作为松开Ctrl键的判断条件
Ctrl = False
End If
End Sub
③鼠标按下事件处理过程MouseDown
在该过程中将光标形状改为“flexArrow ”，并将该单元格内容存放在全局变量Cell中，将单元格的行号与列号赋给全局变量Row与Col。
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With MSFlexGrid1
Row = .MouseRow ‘单元格的行号赋给Row
Col = .MouseCol ‘单元格的列号赋给Col
Cell = .TextMatrix(.MouseRow, .MouseCol) ‘单元格的内容赋给Cell If Ctrl = False Then
.MousePointer = flexArrow ‘若未按Ctrl键则光标为箭头形
Else
.MousePointer = flexHourglass ‘若按下Ctrl键则光标为

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。