VB 版 (精华区)

VB网格中输入数据
山东 周庆斌 

    VISUAL BASIC提供的网格控制（Grid）主要是用来直观地输出数据，但不能输
入数据，使用起来很不方便。能不能向网格中输入数据呢？笔者提出了两种解决方
法，供大家参考：

方法一：

    改写网格的KeyPress事件，在每次有合法字符输入时，把Grid的Text项和输入
字符连接。这种方法缺点是：一代码较复杂，需要处理各种ASCII字符信息；二是
通过编程只能实现很少的编辑功能，如用退格键删除前一字符，用Del键删除所有
字符；三是这种方法不能输入汉字，使用起来受到很大的限制。

方法二：

    利用一文本框作为缓冲，实现编辑功能。当网格改变行列时，把网格当前行列
的内容传递给文本框；当网格中有ASCII字符产生时，把输入焦点设置为文本框，
并把输入的ASCII字符送给文本框；当编辑完文本框的内容时，按Enter键或TAB键
，把文本框的内容送给网格的当前行列，并把输入焦点设置为网格。如下程序所示
（其中Textl为文本框，Labell为标签，Gridl为网格）：

Option Explicit

Const EnterAsc＝13

Const TabAsc＝9

Private Sub Form－Load（）

Labell．Caption＝”请输入”

End Sub

Private Sub Gridl－KeyPress（KeyAscii As Integer）

Text1．StFocus

Textl．SelStart＝0

If KeyAscii ＜＞ EnterAsc And KeyAscii ＜＞ TabAsc Then

SendKeys Chr （KeyAscii）

End IF

End Sub

Private Sub Gridl－RowColChange（）

Textl．Text＝Grid1．Text

End Sub

Private Sub Text1－KeyPress（KeyAscii As Integer）

If KeyAscii＝EnterAsc Then

Grid1．SetFocus

KeyAscii＝0

End If

End Sub

Private Sub Text1－LostFocus（）

Grid1．Text＝Text1．Text

End Sub