-2

テキスト ボックスにテキストのみを入力し、数字またはその他の文字が入力された場合にメッセージ ボックスに「エラー」を表示するコード

これが私のコードです:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    NA = Val(TextBox1.Text)
    If NA > 0 Then
        MsgBox("Error")
    Else
        NA = Val(TextBox1.Text)
    End If

End Sub
4

1 に答える 1