VB网格中输入数据

页面导航:首页 > 软件编程 > vb.net > VB网格中输入数据

VB网格中输入数据

来源: 作者: 时间:2016-02-05 12:32 【

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

 

 

    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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <