Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
if IsNumeric(TextBox1.Text()) = False Then
MsgBox("内容不是数字")
End If
End Sub
本文介绍了一个简单的Visual Basic事件处理程序,用于检查文本框中输入的内容是否为数字。如果不是数字,则会弹出提示消息。
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
if IsNumeric(TextBox1.Text()) = False Then
MsgBox("内容不是数字")
End If
End Sub

被折叠的 条评论
为什么被折叠?