MSFlexGrid控件属性及使用方法.docVIP

MSFlexGrid控件属性及使用方法 MSFlexGrid控件属性及使用方法 PAGE / NUMPAGES MSFlexGrid控件属性及使用方法 MSFlexGrid 控件属性及使用方法整理 ================================================= MSFlexGrid 总行数和总列数的定义： MSFlexGrid1.Rows = 5规定表格的总行数为 5 行 MSFlexGrid1.Cols = 2规定表格的总列数为 2 行 MSFlexGrid 某一单元格的文本内容 MSFlexGrid1.TextMatrix(3, 0) = 网站地点 定义第 3 行的左侧表头文本内容为： “网站地点 ” MSFlexGrid1.TextMatrix(3, 2) = 定义第 3 行第 2 列的文本内容为： “ ” 右键选中 MSFlexGrid 的 Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then 右键选种目前行 备用 u3u3 ： MSFlexGrid1.Col = 0 MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 右键选种目前单元格 备用 u3u3 ： End If End Sub MSFlexGrid 的单元格被点击时的事件 Private Sub MSFlexGrid1_EnterCell() MSFlexGrid1.CellBackColor = vbBlue  被点中  MSFlexGrid  的单元格背景变兰色 MSFlexGrid1.CellForeColor = vbWhite  字体变白色 End Sub MSFlexGrid 的单元格失掉光标后的事件 Private Sub MSFlexGrid1_LeaveCell() MSFlexGrid1.CellBackColor = vbWhite MSFlexGrid1.CellForeColor = vbBlue End Sub MSFlexGrid 的单元格内容可编写 前提：新建两个 text 文本框，分别为 text1 和 text1 ==================== 从这里开始，使单元格能够编写 Private Sub MSFlexGrid1_EnterCell() MSFlexGrid1.CellBackColor = vbBlue MSFlexGrid1.CellForeColor = vbWhite Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub MSFlexGrid1_LeaveCell() MSFlexGrid1.CellBackColor = vbWhite MSFlexGrid1.CellForeColor = vbBlue End Sub Private Sub Text1_Change() End Sub Private Sub Text2_Change() 改正表头 Dim r, c As Integer c = 0 End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown KeyCode = 0 End Select End Sub ==================== 使单元格能够编写，到此结束 MSFlexGrid 选中整行和整列 右键点 MSFlexGrid 控件，选 “属性 /款式 ”，把 “归并单元格 ”选择为： “0- Never”而后运转程序，就会发现 MSFlexGrid 能够自由选择整行或整列了！ MSFlexGrid 插入行 Private Sub Command1_Click() If MSFlexGrid1.Rows 2 Then MSFlexGrid1.AddItem AAA vbTab bbb Else MSFlexGrid1.AddItem asdas vbTab bbb, 2 这里的数字 2 表示在第 2 行处插入行 End If End Sub MSFlexGrid 删除行 MSFlexGrid1.RemoveItem 3 删除第三行。该方法没法删除第一行。