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

日期：09-02 来源：中国设计秀作者：cnwebshow.com

那么就不能显示完全。
二．例程分析：

　　以上只是介绍了表格控件经常使用的属性，还有很多其他重要的属性这里限于篇幅就不一样讲解了，如果读者有兴趣的话可以参考MSDN上相关的内容的介绍，下面我这里提供一个例程来巩固前面的知识内容。
例程是使用Flexgrid 控件（由于Data Bound grid和Datagrid比较简单，所以这里就不再介绍了），如果大家手头上用的是MSHFlexgrid控件的话，只需要把名称换为MSFlexGrid1即可。该例程主要实现后台数据库的显示工作

主要代码如下： 0a6中国设计秀
0a6中国设计秀

Dim lastrow% '最后一次鼠标点击的行 0a6中国设计秀
Dim lastcol% '最后一次鼠标点击的列 0a6中国设计秀
Private Sub Command1_Click() 0a6中国设计秀
MsgBox Data1.Database.Recordsets.Count 0a6中国设计秀
End Sub0a6中国设计秀

Private Sub Form_Load() 0a6中国设计秀
'初始化数据 0a6中国设计秀
click = False 0a6中国设计秀
lastrow = 1 0a6中国设计秀
lastcol = 10a6中国设计秀

'初始化data控件，进行绑定显示的初始化 0a6中国设计秀
Data1.DatabaseName = App.Path & "db1.mdb" 0a6中国设计秀
Data1.RecordSource = "成绩表"0a6中国设计秀

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

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

　　要在不绑定数据的情况下实现编辑修改的功能，如果对控件不进行改进是无法达到目的的。这里实现的思路是首先判断光标（或者说焦点）在哪个单元格上，然后在在单元格的范围内动态创建一个文本框(不过在vb平台下，可以考虑先在设计时放置一个不可见的文本框，然后通过move方法将其放置到当前单元格并且显示它即可达到相同的目的)，其大小正好可以把此单元格给覆盖掉，然后就可以把原来的文本信息附给该文本框，这样就可以直接在文本框内进行编辑修改操作，从而实现了单元格的编辑修改功能，依据这个思想来可以在单元格里面创建下拉列表框，复选框等控件。其实现的核心代码如下： 0a6中国设计秀
0a6中国设计秀

'实现编辑功能
Private Sub MSFlexGrid3_DblClick()
Text1.Visible = False
'如果初次双击，那么就执行如下代码
If firstclick = True Then
lastclickrow = MSFlexGrid3.Row
lastclickcol = MSFlexGrid3.Col
Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)
End If
'将文本框放置到当前单元格处
Dim LeftOfText% '文本框的left属性
Dim TopOfText% '文本框的top属性
Dim selrow% '当前行
Dim selcol% '当前列
selrow = MSFlexGrid3.Row
selcol = MSFlexGrid3.Col
LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 45
TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 45
Text1.Move LeftOfText, TopOfText, 930, 200
Text1.Visible = True
'如果不是初次双击，那么就执行如下代码
If firstclick = False Then
MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text
lastclickrow = MSFlexGrid3.Row
lastclickcol = MSFlexGrid3.Col
End If
Text1.Text = MSFlexGrid3.TextMatrix(selrow, selcol)
'已经不是第一次进行双击操作
firstclick = False
End Sub

三．小结： 0a6中国设计秀
0a6中国设计秀
　　数据表格控件在实际运用用还有很多技巧，只有不断的在实际编程中积累经验才能达到灵活运用的功效。0a6中国设计秀

0a6中国设计秀