我们在使用Visual Basic开发Windows应用程序时，经常用到网格控件(Grid)，因为此控件可以用来作类似于电子表格形式的输出表，且编程简单，但在此网格控件只有输出功能，而不能直接在网格上输入，这给使用者带来些不便。如何在执行时向网络控件中输入数据，人们使用了些方法，但大都使用文本控件作中间转换，即将欲输入的信息先输入到该文本控件，然后将文本控件的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到9的ASCII值为48到57，小数点ASCII的值为46，所以可以输入任意实数。若你想防止用户输入除数字、小数点以外的任何其他字符，可对来自于键盘的ASCII值进行判断，有条件地接收，就实现了仅输入数值字符。同理也可以限制只输入字母字符。
根据这种思想，也可以对Visual Basic中切不具有输入功能，但具有keyascii或者keydown事件的控件进行直接输入，如标签Label等。
