您所在位置：主题：为什么按"/"没有作用呢?
acme
[专家分：0] 发布于 2008-05-05 22:21:00
'设定键盘“/”的功能
Private Sub Command13_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 111) Then
Label1.Caption = "/"
Label2.Caption = Val(Text1.Text)
Text1.Text = "0"
Else
Exit Sub
End If
End Sub
===========================================================================
如上代码为什么按"/"键没有预期的作用呢?
Private Sub Command13_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 111) Then
Label1.Caption = "/"
Label2.Caption = Val(Text1.Text)
Text1.Text = "0"
Else
Exit Sub
End If
End Sub
===========================================================================
如上代码为什么按"/"键没有预期的作用呢?
