VISUAL BASIC提供的网格控制（Grid）主要是用来直观地输出数据，但不能输入数据，使用起来很不方便。能不能向网格中输入数据呢？笔者提出了两种解决方法，供大家参考：
方法一：
改写网格的KeyPress事件，在每次有合法字符输入时，把Grid的Text项和输入字符连接。这种方法缺点是：一代码较复杂，需要处理各种ASCII字符信息；二是通过编程只能实现很少的编辑功能，如用退格键删除前一字符，用Del键删除所有字符；三是这种方法不能输入汉字，使用起来受到很大的限制。
方法二：
利用一文本框作为缓冲，实现编辑功能。当网格改变行列时，把网格当前行列的内容传递给文本框；当网格中有ASCII字符产生时，把输入焦点设置为文本框，并把输入的ASCII字符送给文本框；当编辑完文本框的内容时，按Enter键或TAB键，把文本框的内容送给网格的当前行列，并把输入焦点设置为网格。如下程序所示（其中Textl为文本框，Labell为标签，Gridl为网格）：
Option ExplicitConst EnterAsc＝13Const TabAsc＝9Private Sub Form－Load（）
Labell．Caption＝”请输入”End SubPrivate Sub Gridl－KeyPress（KeyAscii As Integer）
Text1．StFocusTextl．SelStart＝0If KeyAscii＜＞EnterAsc And KeyAscii＜＞TabAsc ThenSendKeys Chr（KeyAscii）
End IFEnd SubPrivate Sub Gridl－RowColChange（）
Textl．Text＝Grid1．TextEnd SubPrivate Sub Text1－KeyPress（KeyAscii As Integer）
If KeyAscii＝EnterAsc ThenGrid1．SetFocusKeyAscii＝0End IfEnd SubPrivate Sub Text1－LostFocus（）
Grid1．Text＝Text1．TextEnd Sub
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
