0

私がしたいのは、文字列値を持つテキストボックスをチェックすることだけです。そうであれば、メッセージボックスが表示されます (数字を使用)。

    For Each t In Me.Controls
        If TextBox1.Text = (String) Then
            MsgBox("Please Use Number")
            Exit Sub
            Exit For
        End If
    Next

前もって感謝します

4

3 に答える 3

1

エラーメッセージから、ユーザーが数値を入力したことを検証したいと思います。次に、Int32.TryParseまたはDouble.TryParseまたは単にすべての文字を列挙して、それらが数字であるかどうかを確認できます。

For Each txt In Me.Controls.OfType(Of textBox)()
    Dim allDigit = txt.Text.Trim.Length <> 0 AndAlso _
            txt.Text.All(Function(chr) Char.IsDigit(chr))
    If Not allDigit Then
        MsgBox("Please Use Number")
        Exit Sub
    End If
Next

とInt32.TryParse：

Dim intVal As Int32
Dim isInteger As Boolean = Int32.TryParse(txt.Text, intVal)

（フォーム上のすべてのTextBoxを検証することも想定しています）

于 2012-10-22T06:56:10.283 に答える
1

どうぞ：

For Each c As Control In Me.Controls
    If TypeOf (c) Is TextBox Then
        If Not IsNumeric(c.Text) Then
            MessageBox.Show("Not a number")
            Exit Sub
        End If
    End If
Next
于 2012-10-22T06:58:35.787 に答える
0

正規表現を使用して、テキスト ボックスに数値が含まれているかどうかを検証します。

例えば。

Dim regNumber As New Regex("^\d{1,10}$")
regNumber.IsMatch(TextBox1.Text)
于 2012-10-22T06:49:17.707 に答える