MSFlexGrid控件概述.doc

MSFlexGrid控件概述 1、作用：该控件以表格形式显示二维字符数组中每个单元的数据。常用于处理复杂的二维数据表的问题。如校历表、学生宿舍表、学生班级成绩表等。 2、添加到控件箱菜单命令：工程 | 部件，在部件对话框中选择：Microsoft FlexGrid Control 6.0 (SP6)。3、主要属性（1）Rows与Cols属性：分别用于设置或返回MSFlexGrid控件的行数与列数。（2）Row与Col属性：分别用于设置或返回MSFlexGrid控件中活动单元的行号与列号。（3）TextMatrix属性：该属性用于表示MSFlexGrid控件中单元格的内容。格式为：TextMatrix (Row, Col);其中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 WithEnd Sub运行程序后的界面如图8.3所示。 　 MSFlexGrid控件的事件与方法1、MSFlexGrid控件的事件（1）KeyPress事件：当用户按下或释放任何一个ANSI键（字母或数字等键）时触发。定义：Private Sub 控件名_KeyPress(KeyAscii As Integer)其中，形参KeyAscii用于将用户按下或释放的ANSI键值传送给KeyPress过程。 表8.2字母或数字键的KeyAscii代码、键值与含义 （2）KeyDown事件：当用户按下一个键时触发。　　定义：Private Sub 控件名_KeyDown(KeyCode As Integer, Shift As Integer)　? 其中，形参KeyCode用于表示用户按键的类型，取值如表8.3所示。形参Shift用于表示用户所按组合键（Ctrl、Alt、Shilt）的键值，取值如表8.4所示。 表8.3 形参KeyCode返回键值与按键键名的对应关系表 表8.4 Shift取值类型 （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