UC知道vb编程中字符属性不相同的问题.问题在下面:
来源：百度知道 编辑：UC知道 时间：2024/06/15 08:37:03
VB编程中,假如 dim a as integer a= textbox1.text 假如我在textbox1中输入英文字母,程序就死了,那么,用什么样的句子判断当textbox1.text不是数字的时候,自动产生一个消息框,提示我们重新输入一个数字?
限制文本框1只能输入数字就OK了啊
在textbox1的key_press下
Try
If e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then
Beep()
e.KeyChar = Chr(0) '限制文本框1只能输入数字
End If
Catch ex As Exception
End Try
就OK了
完整的
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Try
If e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then
Beep()
e.KeyChar = Chr(0) '限制文本框1只能输入数字
End If
Catch ex As Exception
End Try
End Sub
textbox1.text
本来就是文本，你把他申明成integer 能行吗