vb文本框无法清空!键盘限制?

智鸿 2012-08-15 02:09:06
环境:vb6

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

其中数组已经在模块中public了
新手上路
...全文
96 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
wq1282 2012-08-20
  • 打赏
  • 举报
回复
这个过程调用是在键盘即时操作的时候,在操作系统返回之前,所以,你设置了Text的值为空之后windows又将值改成了最后Keycode的内容,所以你要让这个过程结束时确保KEYCODE=0,建议您 将第一行代码“Select Case KeyCode”改成下面这样:

dim MyTempcode
MyTempcode=keycode
keycode=0
Select Case MyTempcode

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧