-1 
Private Sub TextBox1_textChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    Dim intValue As Integer
    If Not Integer.TryParse(TextBox1.Text, intValue) OrElse intValue < 1 OrElse intValue > 10 Then
        TextBox1.Text = ""
    Else
        MsgBox(intValue)


    End If

End Sub

ここに私のコードがあります。テキストボックスはすでに"1"番号textbox1.text = "1"のみ"1"を受け入れ"1"ます."2""2"

助けてください？

4

2 に答える 2

0

テキストボックスの値が1〜10であることをコードがチェックしているようです。もしそうなら、これはうまくいきます

    Dim intValue As Integer
    If Integer.TryParse(TextBox1.Text, intValue) AndAlso intValue > 0 AndAlso intValue < 11 Then
        Debug.WriteLine(intValue) 'good value
    Else
        TextBox1.Text = "" 'bad value
    End If
于 2013-03-02T13:51:39.257 に答える