level 2
我弄了一个TEXT1 在里面写上了这些代码:Private Sub Text1_KeyPress(KeyAscii As Integer) '在TEXT里只允许输入数字If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) <> "." Then KeyAscii = 0End IfEnd Sub出现的问题就是 当输入数字后 撤消却不起作用了??请问要怎么改?
2006年06月20日 15点06分
1
level 13
你也还没睡 ?If KeyAscii > vbKey9 Or KeyAscii < vbKey0 Then MsgBox "请输入 0-9的数字" KeyAscii = 0 End If 或 If KeyAscii > 57 Or KeyAscii < 48 Then MsgBox "请输入 0-9的数字" KeyAscii = 0 End If
2006年06月20日 15点06分
2
level 13
我在梦游中, 随便画两笔, 错了也别怪我........
2006年06月20日 15点06分
4
level 2
还是不能用撤消键cbm666老师您那个只要一撤消就msgbox
2006年06月20日 15点06分
5
level 13
晕了, 你不会用 if else 或 select case 啊, 再不会就上QQ来吧.
2006年06月20日 15点06分
6