7,759
社区成员
发帖
与我相关
我的任务
分享
Private Sub inbox_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
'确认 inputnum
innum
Case vbKeyAdd
inbox.Text = ""
'"+"
insign (1)
Case vbKeySubtract
'"-"
insign (2)
Case vbKeyMultiply
'"*"
insign (3)
Case vbKeyDivide
'"/"
insign (4)
End Select
End Sub
Public Sub innum()
num(a) = Val(inbox.Text)
intext.Text = intext.Text & Val(inbox.Text)
plugin
End Sub
Public Sub insign(x As Integer)
Select Case x
Case 1
sign(a) = 1
intext.Text = intext.Text & "+"
End Select
a = a + 1
inbox.Text = ""
inbox.Refresh
End Sub
dim MyTempcode
MyTempcode=keycode
keycode=0
Select Case MyTempcode