键盘输入.bas

钢筋混凝土框架结构设计计算源程序

Attribute VB_Name = "Module3"
Option Explicit

Public Sub TextKey(KeyCode As Integer, Grid As MSFlexGrid)
    'KeyUp 和 KeyDown 事件报告键盘本身准确的物理状态：按下键 (KeyDown) 及松开键 (KeyUp)。与此成对照的是，KeyPress 事件并不直接地报告键盘状态─ 它只提供键所代表的字符而不识别键的按下或松开状态。
    'KeyDown 和 KeyUp 事件通过提供下列两参数返回输入字符的信息:Keycode和Shift
    'Keycode 指示按下的物理键。这时将 "A" 与 "a" 作为同一个键返回。它们具有相同的 keycode 值。但是请注意，键盘上的“1”和数字小键盘的“1”被作为不同的键返回，尽管它们生成相同的字符。
    If KeyCode = vbKeyReturn Then
        If Grid.Col < Grid.Cols - 1 Then
            Grid.Col = Grid.Col + 1
            If Grid.CellWidth < 300 Then
                Grid.Col = Grid.Col + 1
            End If
        ElseIf Grid.Row < Grid.Rows - 1 Then
            Grid.Col = 1
            Grid.Row = Grid.Row + 1
        End If
    ElseIf KeyCode = vbKeyDown Then
        If Grid.Row < Grid.Rows - 1 Then
            Grid.Row = Grid.Row + 1
        End If
    ElseIf KeyCode = vbKeyUp Then
        If Grid.Row > 1 Then
            Grid.Row = Grid.Row - 1
        End If
    ElseIf KeyCode = vbKeyLeft Then
        If Grid.Col > 1 Then
            Grid.Col = Grid.Col - 1
            If Grid.CellWidth < 300 Then
                Grid.Col = Grid.Col - 1
            End If
        End If
    ElseIf KeyCode = vbKeyRight Then
        If Grid.Col < Grid.Cols - 1 Then
            Grid.Col = Grid.Col + 1
            If Grid.CellWidth < 300 Then
                Grid.Col = Grid.Col + 1
            End If
        End If
    ElseIf KeyCode = vbKeyDelete Then
        Form5.Text1(2).Text = " "
    End If
End Sub