不要textbox令MshflexGrid有编辑功能

最新推荐文章于 2021-01-17 12:52:21 发布

转载最新推荐文章于 2021-01-17 12:52:21 发布 · 961 阅读

文章标签：

#textbox #integer #string #扩展

VB6代码专栏收录该内容

5 篇文章

订阅专栏

本示例展示了如何使用MshflexGrid组件通过键盘输入进行单元格编辑及导航，包括回车键切换单元格、删除键清空内容及退格键逐字符删除。

'MshflexGrid 取名 Grid1.

Private Sub Form_Load()
Grid1.Rows = 10
Grid1.Cols = 7

End Sub

Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim X As Long
Dim Y As Long
Dim L As Long
Dim Tmp As String
X = Grid1.Col
Y = Grid1.Row
Select Case KeyCode '功能或扩展
Case 46 '删除
Grid1.Text = ""
End Select
End Sub

Private Sub Grid1_KeyPress(KeyAscii As Integer)
Dim X As Long
Dim Y As Long
Dim L As Long
Dim Tmp As String
X = Grid1.Col
Y = Grid1.Row
Select Case KeyAscii
   Case 13
      X = X + 1
      If X >= Grid1.Cols Then
         X = 1
         Y = Y + 1
         If Y >= Grid1.Rows Then Grid1.Rows = Grid1.Rows + 1
      End If
      Grid1.Col = X
      Grid1.Row = Y
   Case 8 '退格
      Tmp = Grid1.Text
      L = Len(Tmp) - 1
      If L > -1 Then Grid1.Text = Left(Tmp, L)
   Case Else
      Grid1.Text = Grid1.Text & Chr(KeyAscii)
End Select