MSFlexGrid控件的几种简单的使用方法VIP免费

第 1 页 共 1 3 页 【MSFlexGrid 控件的几种简单的使用方法】 【日期】 VB MSFlexGrid 控件的几种简单的使用方法 2009-01-10 17:05 MSFlexGrid 控件的几种简单的使用方法 'MSFlexGrid 赋值的方法 MSFlexGrid1.TextMatrix(0, 1) = "老师" MSFlexGrid1.TextMatrix(1, 2) = "学生" MSFlexGrid1.TextMatrix(2, 3) = "校长" MSFlexGrid1.TextMatrix(3, 4) = "班主任" MSFlexGrid1.TextMatrix(4, 5) = "教务主任" MSFlexGrid1.AddItem 2 MSFlexGrid1.AddItem 4 MSFlexGrid1.AddItem 6 MSFlexGrid1.AddItem 8 ``MSFLEXGRID 中如何取的某个单元格的数据 Private Sub MSFlexGrid1_Click() MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col), vbOKOnly, "提示消息" End Sub MSFlexGrid1.Row,表格中的当前行 MSFlexGrid1.Col,表格中的当前列 '初始化 MSFlexGrid Dim i As Integer MSFlexGrid1.Rows = 0 For i = 0 To 10 MSFlexGrid1.AddItem "AA" + Str(i) 'For i = 0 To 10 MSFlexGrid1.Col = 1 MSFlexGrid1.Row = i MSFlexGrid1.Text = CStr(i) MSFlexGrid1.Col = 2 MSFlexGrid1.Row = i 第 2 页 共 1 3 页 MSFlexGrid1.Text = CStr(i) & CStr(i) MSFlexGrid1.Col = 3 MSFlexGrid1.Row = i MSFlexGrid1.Text = CStr(i) & CStr(i) & CStr(i) Next i '实现MSFlexGrid 控件，单行背景为浅灰，双行为兰色 Dim j As Integer With MSFlexGrid1 .AllowBigSelection = True ' 设置网格样式 .FillStyle = flexFillRepeat For j = 0 To .Rows - 1 .Row = j: .Col = .FixedCols .ColSel = .Cols() - .FixedCols - 1 If j Mod 2 = 0 Then .CellBackColor = &HC0C0C0 ' 浅灰 Else .CellBackColor = vbBlue ' 兰色 End If Next j End With '在MsFlexGrid 控件单元格中插入背景图形 Set MSFlexGrid1.CellPicture = LoadPicture("f:\temp\snow.bmp") 'MSFlexGrid 控件如何移到最后一行 MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1 '隐藏第一行 'Private Sub Command1_Click1() 'MSFlexGrid1.RowHeight(1) = 0 'End Sub '隐藏第一列 'Private Sub Command_Click2() 'MSFlexGrid1.ColWidth(1) = 0 'End Sub 在MSFlexGrid ...