F-j0Hx/`;Q|j0一.表格控件总览:
H*E K9t3`"B6\8v0
k-S(`)?5R ](B0 在VB开发环境中,表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点,而且更重要的是它较高的信息表现率(就是相对于其他控件来说能够表达更多的信息),随着信息时代的到来,它的应用将更加的广泛。51Testing软件测试网#hAY*oB NyH
那么在VB平台下,如何操作这一功能强大的控件元素呢?事实上我们知道,VB平台下面的表格控件是相当丰富的,总结下来提供了4种类型:Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid Control.
51Testing软件测试网W1t#YC@ E aV这四种表格各有其特点,下面我们一一讨论。
!|(S7L-V;z0KS]N8U@?
R,J0 1. Microsoft Data Bound grid Control
;^8u&tO5Bs:r:Z1qT0$U-z7T6_1^#mW0 此控件主要用于数据绑定(可以不绑定,但是因为不提供对单个cell的控制支持,所以实际上这样做是不经济的)。具体说来,就是数据源比较固定的情况下可以使用这种控件。
&rr/C2X1n(L051Testing软件测试网M^7lK5o*oq 具体使用方法是设定此控件的datasource属性,就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件,而data控件又指向
数据库"成绩"的 一个"语文"表,那么当程序运行时,它就自动显示此"语文"表的数据。
3~VX|*^:J,B0x#z,u&{7j0_n7S0 从上面的分析看得出来,这个控件虽然操作方便,但是它也有局限性,就是不能对显示的数据进行灵活的控制操作,比如有些数据允许用户修改,有些数据却不允许用户修改,而此控件却只能提供全部数据源的原子操作:即要么全部允许修改,要么就全部不允许。还有另外此控件也不提供对单个单元格(cell)进行操作,所以提供不了更为个性化的界面风格。
51Testing软件测试网M'|Oqw4q;ug;v51Testing软件测试网:oSO,_
Z6I6tD 2. Microsoft Datagrid Control
51Testing软件测试网5`|i
v%wGio,T51Testing软件测试网$t1y!fI?*zf%k 此控件跟前面介绍的Data Bound grid Control控件很相似,也是主要进行绑定操作,而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的,不能是DAO,比如就可以使用ADO数据控件,不能使用DATA控件。而Data Bound grid Control却刚好和它相反,这一点在开发中一定要注意。
51Testing软件测试网7_,p DO hS lj@+WIk{5i0 3. Microsoft Flexgrid Control与Microsoft Hierarchial Flexgrid Control.
51Testing软件测试网9X#nd1YnV%eX,_$k7~)rN0 这里重点介绍这两种控件,因为在实际开发中,这两种控件应用的场合更多一些,它不仅能够反映数据,而且也能把数据的修改信息反映到数据库中去,所以弥补了上述两种控件的不足。
51Testing软件测试网fh8F"q WI![OYe;WKY
} GJ0 如果数据不需要修改,那么可以进行绑定操作,其方法跟前面介绍的完全一样,就是通过设置DataSource属性来完成数据的显示
工作。但是实际开发中,需要对整个表格控件更为灵活的显示控制。
+W1@
c4Su\2tEE0t0yDPv;wj@J0 在给出例程之前,有必要对这一控件进行比较详尽的认识:这种控件允许将文本或者图象放置于每个单元格之中,控件的Row与Col属性允许用户在代码中指定当前行和列,当然也可通过操作鼠标和键盘来改变这两个属性,而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话,可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下:
51Testing软件测试网"Vj%w8M1d:H1i(evx,By\0 DataSource---------用来指定需要绑定的数据源,比如data控件。
51Testing软件测试网g6I l]_fOZ-X9KQ3dF] b$fz\0 Cellpicture----------用来设定当前单元格的图象,便于显示该图象。此属性不能在设计时使用。
nc/D(Vk C7Z0-D#ij4g,\6r(~0 Col,Row---------------设定当前列和当前行,注意它们均是从0开始的,如果同时设定它们,可以指定当前的单元格。设计时也不能使用。
H{X+E.],r sG)A7z09p4`J0kkGY0 Cols,Rows---------------设置表格控件总的列数和行数。
51Testing软件测试网8{8d~]5MU
H`51Testing软件测试网lU^:eLM Hwnd---------------表格句柄,可以结合Windows API对表格控件进行更高级的控制。
51Testing软件测试网@-DCJ4P'k W}X2m!PCPY%s\!i0 Text---------------指定当前的单元格的文本内容。
51Testing软件测试网y'q({*T}x8Q6hF.@pd;~0 TextMatrix(i,j)-------此属性比较重要,它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码:
J5tU Nn051Testing软件测试网]Ja*M5JvU0qMSHFlexGrid1.Rows =i
51Testing软件测试网}+lK2K)K(RMSHFlexGrid1.Cols =j
51Testing软件测试网)dF?oB.?MSHFlexGrid1.Text =指定的字符串
u#h
D%]8^?051Testing软件测试网_SrY*CCY5J WordWrap-------为ture时可以在当前单元格换行显示,否则如果要显示的字符的长度超过列宽,那么就不能显示完全。
^ Mu+i3Uk0二.例程分析:51Testing软件测试网+A#B+Q;Q%Aj+nt
51Testing软件测试网`FYiKr
以上只是介绍了表格控件经常使用的属性,还有很多其他重要的属性这里限于篇幅就不一样讲解了,如果读者有兴趣的话可以参考MSDN上相关的内容的介绍,下面我这里提供一个例程来巩固前面的知识内容。
51Testing软件测试网^)N"Y!i|rc8Q@4@!d例程是使用Flexgrid 控件(由于Data Bound grid和Datagrid比较简单,所以这里就不再介绍了),如果大家手头上用的是MSHFlexgrid控件的话,只需要把名称换为MSFlexGrid1即可。该例程主要实现后台数据库的显示工作,其界面如下:
$is9bws051Testing软件测试网3TI$DMhf'^b3S
F5C6g*O`
j)}0
)l)Dc*}${}6Dt0 主要代码如下:51Testing软件测试网Gi.Hy$A'B8y+o|
51Testing软件测试网R1U(n$xV[j
Dim lastrow% '最后一次鼠标点击的行51Testing软件测试网~3r6JJqwp
Dim lastcol% '最后一次鼠标点击的列51Testing软件测试网y"hCYTO3P5c8|
Private Sub Command1_Click()
&_%S.QmP0MsgBox Data1.Database.Recordsets.Count51Testing软件测试网J$ipXS5?G
End Sub51Testing软件测试网|p'pB.g3L
Private Sub Form_Load()
hc!Y0yv2Zu0'初始化数据
\;Z-LpZ!b7eO&g0click = False
e
HA&ozV0lastrow = 1
/H!DC4I?l0q_5JE0lastcol = 1
'O(cg.e2hQfm0'初始化data控件,进行绑定显示的初始化51Testing软件测试网Bx;]}&vO
Data1.DatabaseName = App.Path & "\db1.mdb"
1Iy2\_+m0Data1.RecordSource = "成绩表"51Testing软件测试网h%O:w
\Jr
W:}
ow#SZ
'进行非绑定显示51Testing软件测试网Prhlf
R_ sP
Data1.Refresh51Testing软件测试网^
u#I0xZ Qz
Data1.Recordset.MoveFirst
x
T4VT#?f0MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数51Testing软件测试网9o4SD}!N!CO
MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数51Testing软件测试网
zu,B
o.{
MSFlexGrid2.GridColor = vbBlue '网格颜色
,WYO2a
k@2G8\O Z0MSFlexGrid2.ForeColor = vbRed '字体颜色51Testing软件测试网'~6EWhn$y*y:U!v
MSFlexGrid2.GridLines = 1 '设置网格线的属性
)i
?"b)cl2l0MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序,默认为151Testing软件测试网.M0X!UR0[IxVy
MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本51Testing软件测试网8CQ|.V/{
MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色51Testing软件测试网HAD0S?,O
Dim i%51Testing软件测试网'Ds&`;e%w
z2S0v{
Dim j%51Testing软件测试网(D-l J2B l4C*|
'设置列头文本
7E ?LYSS%s:B$EY0For i = 1 To MSFlexGrid2.Cols - 151Testing软件测试网$Ic/P&J"D@;W
MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name51Testing软件测试网 `-Ca(` _
Next i
'd-g ite*`1X C1C0'设置数据
H5Ip%z${-y0For i = 1 To MSFlexGrid2.Rows - 1 '控制行
1q0Y&Q AG$G'c%A.q"Jh0For j = 1 To MSFlexGrid2.Cols - 1 '控制列51Testing软件测试网5}
U^/z&|QR
MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value51Testing软件测试网z7@uy:f8j'S;I
Next j51Testing软件测试网0PL\,PP*[,u[
Data1.Recordset.MoveNext
_0b-RKYD](K$^0Next i51Testing软件测试网j.Ut.~gZP KNi
'设置当前单元格的图象信息
O7q m^ W*s0MSFlexGrid2.Col = 0
2L3}ax8M[%R0MSFlexGrid2.Row = 251Testing软件测试网#I(S;`:rSF1b r
Set MSFlexGrid2.CellPicture = LoadPicture(App.Path & "\cell.bmp")51Testing软件测试网5Y
f5?4Ae+D'S+f
End Sub
+m(n!]`!ML0'实现鼠标点击一个单元格的背景颜色的改变功能51Testing软件测试网{,_'x6E*_jgH
Private Sub MSFlexGrid2_Click()51Testing软件测试网{0N'~*K@t6U
MSFlexGrid2.Row = lastrow51Testing软件测试网:v#W@clWV\1W
MSFlexGrid2.Col = lastcol51Testing软件测试网KBt^#V O^Lj!ca
MSFlexGrid2.CellBackColor = vbWhite
:iU&P0^0k-T0MSFlexGrid2.Row = MSFlexGrid2.MouseRow
z v4^l%kp"lG0MSFlexGrid2.Col = MSFlexGrid2.MouseCol51Testing软件测试网;B8hH-|9rhXI,@8H~
MSFlexGrid2.CellBackColor = vbCyan
Wx@BHp]2pK%]0lastrow = MSFlexGrid2.Row
z;^!~*^p0lastcol = MSFlexGrid2.Col
;~)NZ3fH)c:v~0End Sub
51Testing软件测试网J
Bi7_M,eUs)s[{8Y 要在不绑定数据的情况下实现编辑修改的功能,如果对控件不进行改进是无法达到目的的。这里实现的思路是首先判断光标(或者说焦点)在哪个单元格上,然后在在单元格的范围内动态创建一个文本框(不过在vb平台下,可以考虑先在设计时放置一个不可见的文本框,然后通过move方法将其放置到当前单元格并且显示它即可达到相同的目的),其大小正好可以把此单元格给覆盖掉,然后就可以把原来的文本信息附给该文本框,这样就可以直接在文本框内进行编辑修改操作,从而实现了单元格的编辑修改功能,依据这个思想来可以在单元格里面创建下拉列表框,复选框等控件。其实现的核心代码如下:
7s3V}V1DL051Testing软件测试网&Yg.Q.D}:o
'实现编辑功能51Testing软件测试网jU H}pH#I?lf
Private Sub MSFlexGrid3_DblClick()51Testing软件测试网3?U;Ay{CqUc:c
x
Text1.Visible = False
Di\bFt(y0'如果初次双击,那么就执行如下代码51Testing软件测试网.L.L%S4W s
If firstclick = True Then
/U}+ZIP1\0lastclickrow = MSFlexGrid3.Row51Testing软件测试网Qn5vn#R1C!N,x
lastclickcol = MSFlexGrid3.Col51Testing软件测试网^K ?Oq0uV%H?` L2U"\
Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)
0\@5Y:I,v,?0End If51Testing软件测试网/qV-Q2[J1r$g
'将文本框放置到当前单元格处51Testing软件测试网*i@LL\?j
Dim LeftOfText% '文本框的left属性
0I:jz)ZI ?(U8Dk0Dim TopOfText% '文本框的top属性51Testing软件测试网]F p0p a2nm#gtb
Dim selrow% '当前行
5v`'u'tW1b*c Y0Dim selcol% '当前列51Testing软件测试网A;{#s%K!Hi[ ^}d
selrow = MSFlexGrid3.Row51Testing软件测试网;d*\^#X0\P?]"v4on
selcol = MSFlexGrid3.Col
5g-|0vn6Cv%`0~W4q0LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 45
B"F$g6m7@
c7]0TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 4551Testing软件测试网(H-W@~~3znh+Z
Text1.Move LeftOfText, TopOfText, 930, 20051Testing软件测试网/q1B2iSp\.IOC5M*I
Text1.Visible = True
o f&z k:~b3Io*~0'如果不是初次双击,那么就执行如下代码
Ik`~tfz,oe"Fk0If firstclick = False Then51Testing软件测试网W8P#tq R0|j.sZ/b@
MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text
0i(W]Q3N0lastclickrow = MSFlexGrid3.Row51Testing软件测试网7Dz6yIpo7z
lastclickcol = MSFlexGrid3.Col
f.E3Yk:r M2If0End If51Testing软件测试网D8F6BV?
Text1.Text = MSFlexGrid3.TextMatrix(selrow, selcol)51Testing软件测试网?sX0X4q2V8ti w
'已经不是第一次进行双击操作51Testing软件测试网I-q:Z.Y}2J^ @
firstclick = False
v;z Z%[;hZ%g$@0End Sub
s,yz4~Kc
K0 三.小结:
6I#| Ypie0
a%X;q3f#X0 数据表格控件在实际运用用还有很多技巧,只有不断的在实际编程中积累经验才能达到灵活运用的功效
`#h;V/Uy0