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
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