vb文本框无法清空！键盘限制？

Question

环境：vb6Private Sub inbox_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyReturn
'确认 inputnum
innumCase vbKeyAdd
inbox.Text = ""
'"+"
insign (1)Case vbKeySubtract
'"-"
insign (2)Case vbKeyMultiply
'"*"
insign (3)Case vbKeyDivide
'"/"
insign (4)
End SelectEnd SubPublic Sub innum()
num(a) = Val(inbox.Text)
intext.Text = intext.Text & Val(inbox.Text)
plugin
End SubPublic 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.RefreshEnd Sub其中数组已经在模块中public了
新手上路

Answer 1

本帖最后由 bcrun 于 2012-08-20 20:00:24 编辑