珍品蓝莓王多少钱一瓶:VB中如何限定文本框的输入?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 00:31:00
请教一下,我设计了一个界面,里面有四个文本框,还有一个command按扭,要求程序在按command后自动检测输入的是不是数字,不是则自动弹出对话框“请输入数字”,请问代码如何实现?谢谢

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
MsgBox "请输入数字"
End If
End Sub

你的文本框的CHANGGE事件里加代码判断

在command的click事件里写如下代码:
If Not IsNumeric(text1.text) Then msgbox "请输入数字"

其它三个文本框一样。