VB表格控件总览与例程分析[转载]

z5JWr!K2vH!L0一．表格控件总览：
u0h'r!I@;I051Testing软件测试网Q^%LcA,f
　　在VB开发环境中，表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点，而且更重要的是它较高的信息表现率（就是相对于其他控件来说能够表达更多的信息），随着信息时代的到来，它的应用将更加的广泛。

a _V3a9w5t?0　　 那么在VB平台下，如何操作这一功能强大的控件元素呢？事实上我们知道，VB平台下面的表格控件是相当丰富的，总结下来提供了4种类型：Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid Control.51Testing软件测试网CH)F*G:vd
这四种表格各有其特点，下面我们一一讨论。
Bl&ib2a9Jw4Y051Testing软件测试网G [5h#^4L&E,A
　　1． Microsoft Data Bound grid Control51Testing软件测试网{ U"OY3h'{!Ju!xJg

,eb%G,nB-Ow3]9s0　　此控件主要用于数据绑定（可以不绑定，但是因为不提供对单个cell的控制支持，所以实际上这样做是不经济的）。具体说来，就是数据源比较固定的情况下可以使用这种控件。51Testing软件测试网qw EQ3EP/xyJ3SI(i

Z+@;vk:k0　　具体使用方法是设定此控件的datasource属性，就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件，而data控件又指向数据库"成绩"的 一个"语文"表，那么当程序运行时，它就自动显示此"语文"表的数据。51Testing软件测试网J1c&L8OMV

?;@F pWd(u|0　　从上面的分析看得出来，这个控件虽然操作方便，但是它也有局限性，就是不能对显示的数据进行灵活的控制操作，比如有些数据允许用户修改，有些数据却不允许用户修改，而此控件却只能提供全部数据源的原子操作：即要么全部允许修改，要么就全部不允许。还有另外此控件也不提供对单个单元格（cell）进行操作，所以提供不了更为个性化的界面风格。51Testing软件测试网-~ g5v;M
\E'k8KK

1r Qne*k5zu0　　2． Microsoft Datagrid Control51Testing软件测试网"A#@h jI)C.l+t'If)G
51Testing软件测试网)U"Id!j?$ni$D7|6p
　　此控件跟前面介绍的Data Bound grid Control控件很相似，也是主要进行绑定操作，而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的，不能是DAO，比如就可以使用ADO数据控件，不能使用DATA控件。而Data Bound grid Control却刚好和它相反，这一点在开发中一定要注意。
(la&na$wg%j"h*rpX0
Ou\&iDe^0　　3． Microsoft Flexgrid Control与Microsoft Hierarchial Flexgrid Control.
;Tn$j+o3AM5Gk051Testing软件测试网'jdM"J(p.Y(t
　　这里重点介绍这两种控件，因为在实际开发中，这两种控件应用的场合更多一些，它不仅能够反映数据，而且也能把数据的修改信息反映到数据库中去，所以弥补了上述两种控件的不足。51Testing软件测试网OFE?c1ZO1PX

:ZLF/m-j&Eo+l0　　如果数据不需要修改，那么可以进行绑定操作，其方法跟前面介绍的完全一样，就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中，需要对整个表格控件更为灵活的显示控制。51Testing软件测试网cU"Dx/pY

"R(B%YBJQ+y1i0　　在给出例程之前，有必要对这一控件进行比较详尽的认识：这种控件允许将文本或者图象放置于每个单元格之中，控件的Row与Col属性允许用户在代码中指定当前行和列，当然也可通过操作鼠标和键盘来改变这两个属性，而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话，可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下：
4g+L'c9f:NDt3Vc051Testing软件测试网j+MFG1jE
　　DataSource---------用来指定需要绑定的数据源，比如data控件。51Testing软件测试网3W4Jmw n&[ RX

"l5kas&c4E5TnA[0　　Cellpicture----------用来设定当前单元格的图象，便于显示该图象。此属性不能在设计时使用。
*LRK_0DV*k s0
"c&HM4K4v5A!_JG0　　Col，Row---------------设定当前列和当前行，注意它们均是从0开始的，如果同时设定它们，可以指定当前的单元格。设计时也不能使用。51Testing软件测试网6x$I0H-J&^jo

;?9LpLr-q U F0　　Cols，Rows---------------设置表格控件总的列数和行数。51Testing软件测试网U B5Xyk,W&o
51Testing软件测试网a-nL"C1l{ tK0i
　　Hwnd---------------表格句柄，可以结合Windows API对表格控件进行更高级的控制。
on py2H @[.wp0
M~n)^O
E0　　Text---------------指定当前的单元格的文本内容。
h~7t]@:x1bE0
@'Y-i+B2\,Ly0　　TextMatrix(i,j)-------此属性比较重要，它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码：
Ij3kwH Dd^ D051Testing软件测试网 Uy1],qf~5]
MSHFlexGrid1.Rows =i
3X u2y-R,m0MSHFlexGrid1.Cols =j51Testing软件测试网}2o]lC}2BiF^i
MSHFlexGrid1.Text =指定的字符串
p!QxvWr4Jq6S051Testing软件测试网{D0G[#IL O
　　WordWrap-------为ture时可以在当前单元格换行显示，否则如果要显示的字符的长度超过列宽，那么就不能显示完全。51Testing软件测试网+_!I'n2m|@q9M+p
二．例程分析：51Testing软件测试网$Zt$zlnY

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

51Testing软件测试网0e;i{#D wqo

51Testing软件测试网 nJ
l?0yfM

51Testing软件测试网+}"s4[0ut
51Testing软件测试网"sAM~.j2OD5gQ
　　主要代码如下：
&[ c(vp3X;V"R051Testing软件测试网w7T7?)y.h4ce

Dim lastrow% '最后一次鼠标点击的行
]`WL,C^0Dim lastcol% '最后一次鼠标点击的列51Testing软件测试网{9K~A,\)@]
Private Sub Command1_Click()51Testing软件测试网~%uJ!R0Se
MsgBox Data1.Database.Recordsets.Count
'e(MUo+nq0G4vrQ0End Sub
hSHwxC$_rA/w0Private Sub Form_Load()
[0d3c$c9S0'初始化数据
?|vF9K0click = False51Testing软件测试网P6ai|\[H5?
lastrow = 1
7R6v\@w@x0lastcol = 1
*E1Sy9H;y0'初始化data控件，进行绑定显示的初始化51Testing软件测试网MfI/cb+Km!a
Data1.DatabaseName = App.Path & "\db1.mdb"51Testing软件测试网@,]WEy]'\_!Tg
Data1.RecordSource = "成绩表"51Testing软件测试网a't?*u-s
xe
'进行非绑定显示
yaB5i@*pFS:T0Data1.Refresh51Testing软件测试网)Z7F,h ~zu;w$g
Data1.Recordset.MoveFirst51Testing软件测试网}pc*f9M+V LYY:k
MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数51Testing软件测试网4I1EX:c!t Sgf$Fc
MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数51Testing软件测试网9`P9H.SD+o&zbR'S
MSFlexGrid2.GridColor = vbBlue '网格颜色51Testing软件测试网'A.J`s:OqI,x;[*N
MSFlexGrid2.ForeColor = vbRed '字体颜色
$Wj
PVK m2v'?'cl0MSFlexGrid2.GridLines = 1 '设置网格线的属性
&M2S/X0Tt$m.z*_0MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序，默认为1
y#ws*w
o+pz?J0MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本51Testing软件测试网 Y'fH3IMtk4p
MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色51Testing软件测试网5J$h8Q0i}c#`g.V
Dim i%
m#J nR\PXC|q0Dim j%51Testing软件测试网2ioP"IZ
'设置列头文本
+V%L&i(O$iq0For i = 1 To MSFlexGrid2.Cols - 1
!t Tc%w
nPyn0MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name51Testing软件测试网wz]l4w+o4L~5x
Next i51Testing软件测试网k4\(W o.Ls^(x
'设置数据51Testing软件测试网 f,i-H'L6SG8GT
For i = 1 To MSFlexGrid2.Rows - 1 '控制行51Testing软件测试网+Y
AdA;F1A0m\'^U
For j = 1 To MSFlexGrid2.Cols - 1 '控制列51Testing软件测试网Cqf e_3A
MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value51Testing软件测试网1r$Yx%@C,f
Next j51Testing软件测试网%Ot}d1WUN x
Data1.Recordset.MoveNext
\$j!J"Bg&tg0Next i51Testing软件测试网?x0zz;y6VNq
'设置当前单元格的图象信息
.~E jZ9W(Z%Q0MSFlexGrid2.Col = 051Testing软件测试网hnMRcr;I
MSFlexGrid2.Row = 251Testing软件测试网4p&O"S`!vo s"ON+x
P;O
Set MSFlexGrid2.CellPicture = LoadPicture(App.Path & "\cell.bmp")51Testing软件测试网X_Q1Ug+o`Oe"k
End Sub
;KO |Z
N.{{0'实现鼠标点击一个单元格的背景颜色的改变功能51Testing软件测试网G9XM\P }},RW
Private Sub MSFlexGrid2_Click()51Testing软件测试网2Y-@sk;k
MSFlexGrid2.Row = lastrow
iGDi:TLR-~0MSFlexGrid2.Col = lastcol
6x|'Zv-^
S Qr Sj0MSFlexGrid2.CellBackColor = vbWhite51Testing软件测试网%C%ja'yEM)F}
MSFlexGrid2.Row = MSFlexGrid2.MouseRow
%j7f#dJI#lD0MSFlexGrid2.Col = MSFlexGrid2.MouseCol51Testing软件测试网C+\$Q9oh0J9B:r
MSFlexGrid2.CellBackColor = vbCyan
xzf9JT+|K!Q0lastrow = MSFlexGrid2.Row
G"O&~,J?6n0lastcol = MSFlexGrid2.Col
L Xd-n&bl Z]0End Sub

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

7Mi
SPz(_F0'实现编辑功能51Testing软件测试网]w5d:J}f9q
Private Sub MSFlexGrid3_DblClick()
8]d4E-e5Z0Text1.Visible = False51Testing软件测试网g"@.uL-W?'?!B6\
'如果初次双击，那么就执行如下代码
8l [:u5i1@/p#^0If firstclick = True Then
7[ r$NL]1j&Y&N0lastclickrow = MSFlexGrid3.Row
K)\+lh&V0lastclickcol = MSFlexGrid3.Col
i)e)~ Y2H-z
W*H0Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)
vD fU^/h0End If
Ctb(B~*n
dSqG0'将文本框放置到当前单元格处
1})DCk2Crw8D\0Dim LeftOfText% '文本框的left属性
'H5^O:kJ]M9gq0Dim TopOfText% '文本框的top属性51Testing软件测试网+CQ-_wloJ
Dim selrow% '当前行51Testing软件测试网F1z"ly6iv(|m0M,?
Dim selcol% '当前列
Y&TK8|R!|O0S(oA0selrow = MSFlexGrid3.Row51Testing软件测试网C-R!P{ P7U,zN
selcol = MSFlexGrid3.Col51Testing软件测试网Scf}&g Z'Ar3h
LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 4551Testing软件测试网c TE2_f
y'z
TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 45
&}SA6N2Z;vy0Text1.Move LeftOfText, TopOfText, 930, 200
?*du!c"b.~TjO'S0Text1.Visible = True
&Rw ]A`-B0'如果不是初次双击，那么就执行如下代码51Testing软件测试网V1L0e$hw"v+Zqc
If firstclick = False Then
3_n_[Z%B}0b!{+|a0MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text
Smtg
l?3~}0lastclickrow = MSFlexGrid3.Row51Testing软件测试网5p%U*Cf$x$m
I
lastclickcol = MSFlexGrid3.Col
$sG8A^?9F @)RB0End If51Testing软件测试网7V NT;]b,u cJ,k
Text1.Text = MSFlexGrid3.TextMatrix(selrow, selcol)
n$W&@nk:q)r~#m[0'已经不是第一次进行双击操作51Testing软件测试网Q3jG+k&I%IkO
firstclick = False51Testing软件测试网;]+L!A2P G/oV
End Sub51Testing软件测试网 GIdM.O]D)g@!r&P

　　三．小结：
)WN7y$Buk0
]_-E`!V0　　数据表格控件在实际运用用还有很多技巧，只有不断的在实际编程中积累经验才能达到灵活运用的功效51Testing软件测试网b,` k$I|8F}s