小弟有一个问题啊!
就是在文本框中只能输入0-9这10个数字字符,不能输入其他的文本字符:
我用的是下面的代码,但是无效
Private Sub Text1_Change()
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
请教各位大侠,这是怎么回事啊!小弟在此不胜感激啊!
就是在文本框中只能输入0-9这10个数字字符,不能输入其他的文本字符:
我用的是下面的代码,但是无效
Private Sub Text1_Change()
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
请教各位大侠,这是怎么回事啊!小弟在此不胜感激啊!
解决方案 »
- 字符串操作的问题,较简单
- 嘎嘎,关于PID(包括服务也就是隐藏进程的PID)的获取,这里提出一种新的解决办法哈
- 删除MSFlexgrid记录的问题
- Winsock如何将图片发送到客户端的浏览器呢???HELP!!急!!!在线等!!
- 高分求救:在VB中我做了一个控件,在自已的机器上编译成ocx控件,做项目通过,可当我把项目做好发布的时候问是就来了!
- vb调存储过程(紧急求助)
- 麻烦各位了
- 告知sonicdater(发呆呆)于AdamBear(学习再学习),希望再帮助
- 请问如何在数据库中加入带有公式的记录啊?
- 能否HOOK剪贴板,当剪贴板获得信息时取得消息
- 如何将登录界面上输入的用户名显示在主面界的状态栏上???????
- vb连接mysql能否不用ODBC?
用介个事件
Case 48 To 57
Case 46
Case 8
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text1_Change()
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
好好的看看书.用第二个
你在试一下
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub