VB表格控件总览与例程分析

Dim lastrow% '最后一次鼠标点击的行
Dim lastcol% '最后一次鼠标点击的列
Private Sub Command1_Click()
MsgBox Data1.Database.Recordsets.Count
End Sub

Private Sub Form_Load()
'初始化数据
click = False
lastrow = 1
lastcol = 1

'初始化data控件，进行绑定显示的初始化
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "成绩表"

'进行非绑定显示
Data1.Refresh
Data1.Recordset.MoveFirst
MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数
MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数
MSFlexGrid2.GridColor = vbBlue '网格颜色
MSFlexGrid2.ForeColor = vbRed '字体颜色
MSFlexGrid2.GridLines = 1 '设置网格线的属性
MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序，默认为1
MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本
MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色
Dim i%
Dim j%
'设置列头文本
For i = 1 To MSFlexGrid2.Cols - 1
MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name
Next i
'设置数据
For i = 1 To MSFlexGrid2.Rows - 1 '控制行

For j = 1 To MSFlexGrid2.Cols - 1 '控制列
MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value
Next j
Data1.Recordset.MoveNext
Next i
'设置当前单元格的图象信息
MSFlexGrid2.Col = 0
MSFlexGrid2.Row = 2
Set MSFlexGrid2.CellPicture = LoadPicture(App.Path & "\cell.bmp")
End Sub
'实现鼠标点击一个单元格的背景颜色的改变功能
Private Sub MSFlexGrid2_Click()
MSFlexGrid2.Row = lastrow
MSFlexGrid2.Col = lastcol
MSFlexGrid2.CellBackColor = vbWhite
MSFlexGrid2.Row = MSFlexGrid2.MouseRow
MSFlexGrid2.Col = MSFlexGrid2.MouseCol
MSFlexGrid2.CellBackColor = vbCyan
lastrow = MSFlexGrid2.Row
lastcol = MSFlexGrid2.Col
End Sub