Min en max aan een textbox geven

[Doofenshmirt]

Hallo,

Is het mogelijk om een min en max getal aan een textbox te geven ?

bv textbox1.text mag tussen 1 en 6 zijn en niet hoger.

 

[edmoor]

Zet het attribuut MaxLength van Textbox1 op 1.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    Select Case TextBox1.Text
        Case 1 To 6
        Case Else
            TextBox1.Text = vbNullString
    End Select
End Sub

 

[Doofenshmirt]

Hallo edmoor,

Het is wat ik bedoel , alleen je kunt nog wel de cijfers dubbel zetten.

bv 11 en dat mag ook niet.

ik heb dit opgelost door de textbox op maxlength 1 te zetten.

alleen ik moet een heleboel textboxen doen , is het via code ook mogelijk ?

 

[Doofenshmirt]

Gevonden,

Dit werkt.

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.MaxLength = 1
        Select Case TextBox1.Text
            Case 1 To 6
            Case Else
                TextBox1.Text = vbNullString
 MsgBox("Invoer mag niet leeg zijn , een getal van 1 tm 6 invullen.")
        End Select
    End Sub

Nog bedankt edmoor , hier kan ik wel wat mee :thumb:

 

[edmoor]

ik heb dit opgelost door de textbox op maxlength 1 te zetten.

Dat staat er dus in m'n 1e reactie ook bij