高考问答高中语文教学过程模板:一个关于vb编程序的问题——vb高手帮帮我
来源：百度文库 编辑：高考问答 时间：2024/05/06 05:23:30
新建了一个控件TextBox，然后在里边写文本，然后按一个命令按钮进行计算。必须写数字，如果字符串中有一个不是数字的字符，按下此命令按钮程序则显示“请输入数字”。
请问这个语句要如何编写？
也就是说
如果TextBox里有数字外的东西，按命令按钮，就显示“请输入数字”。
怎么写啊？谢谢了！
请问这个语句要如何编写？
也就是说
如果TextBox里有数字外的东西，按命令按钮，就显示“请输入数字”。
怎么写啊？谢谢了！
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = False Then MsgBox "请输入数字"
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) Then
Else
MsgBox("请输入数字")
e.Handled = True
End If
End Sub