使VB的网格控件具有输入功能

发布时间：2008-04-03 10:45:14  来源：编程爱好者网站  作者：编程爱好者网站  点击：442

河北 王翠荣 王全海

我们在使用Visual Basic for Windows开发时，经常用到网格控件（Grid.vbx），因为此控件可以用来作类似于电子表格形式的输出表，且编程简单，但在此网格控件只有输出功能，而不能直接在网格上输入，这给使用者带来一些不便。如何在执行时向网络控件中输入数据，人们使用了一些方法，但大都使用一文本控件作中间转换，即将欲输入的信息先输入到该文本控件，然后将文本控件的TEXT属性赋给网格的TEXT属性，这种方法尽管解决了向网格输入数据问题，但增加了一文本框，对界面有些不美观，修改部分数字不方便，且影响速度，那么，如何直接向网格输入数据呢？
本文将解决直接向网格输入数据问题，基本思想是：使用网格控件KeyPress事件，从键盘上接收所击键位的KeyAscii值，再由Chr＄（）或Chr（）函数转换成字符，然后读出网格单元的当前Text值与由键盘接收到的字符相加，组成新的字符串，再赋给该单元的Text属性，即Grid．Text＝Grid．Text＋Chr＄（KeyAscii）。程序清单如下：
程序中定义了两个Form级变量WgridCol％和WgridRow％。
Sub Grid－KeyPress（KeyAscii as Integer）
Grid．Col＝WgridCol％
Grid．Row＝WgridRow％
if KeyAscii＝8Then ｀keyascii＝8为退格删除键
if Grid．Text＜＞””Then Grid．text＝Mid＄（Grid．text，
1，Len（Grid．text）－1）‘删除最后一个字符
Else
Grid．text＝Grid．text＋Chr＄（KeyAscii）
End if
End Sub
Sub Grid－RowColChange（）
Wgrid．Col％＝Grid．Col
Wgrid．Row％＝Grid．Row
End Sub
这样就可以实现对网格的任意输入，可以输入字符、数字等等。由于数字0到Array的Ascii值为48到57，小数点Ascii的值为46，所以可以输入任意实数。若您想防止用户输入除数字、小数点以外的任何其他字符，可对来自于键盘的Ascii值进行判断，有条件地接收，就实现了仅输入数值字符。同理也可以限制只输入字母字符。
根据这种思想，也可以对VB中一切不具有输入功能，但具有KeyAscii或者KeyDown事件的控件进行直接输入，如标签Label等。