Question

VB中如何实现键盘控制？

Private Sub Command2_Click(Index As Integer)
Dim mesflag As Integer
If Not DYFLAG Then
ShowFrmMsg ("xxx")
Exit Sub
End If
Select Case Index
Case 0
cmdflag = True
Case 1
cmdflag = False
End Select
If cmdflag = True And CEResuit = True Then
mesflag = 0
Else
mesflag = -1
End If SendMES strInspectSN & "," & mesflag
txtFTMES(0).Text = strInspectSN & "," & mesflag
DYFLAG = False
End Sub
本来是通过command鼠标点击来实现的，想通过按小键盘1和0键分别表示PASS和FAIL的测试结果。请问代码如何修改，请帮忙~！谢谢

Answer 1

Private Sub Command2_Click(Index As Integer)
Dim mesflag As Integer
If Not DYFLAG Then
ShowFrmMsg ("xxx")
Exit Sub
End If
Select Case Index
Case 0
cmdflag = True
Case 1
cmdflag = False
End Select
If cmdflag = True And CEResuit = True Then
mesflag = 0
Else
mesflag = -1
End If
SendMES strInspectSN & "," & mesflag
txtFTMES(0).Text = strInspectSN & "," & mesflag
DYFLAG = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then Command2_Click 1
If KeyAscii = 48 Then Command2_Click 0

End Sub

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

Answer 2

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("0") Then
Call Command2_Click(0)
ElseIf KeyAscii = Asc("1") Then
Call Command2_Click(1)
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub