TEXTBOX LIMITANDO NUMEROS

ZIMIRO 06/10/2012 09:26:00
#411439
como eu adiciono para txtbox apenas add numero sem ser masked

e tipo numero maximo de numero aceito até 6000
se ele começar escrever 99999
quando der ultimo numero já altera automático para 6000
no próprio txtbox


ADHEL 06/10/2012 10:15:00
#411440
Resposta escolhida
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text > 6000 Then
TextBox1.Text = 6000
End If
End Sub

SO NUMEROS
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) And e.KeyChar <> vbBack Then
e.KeyChar = Nothing
End If
End Sub

coloque a propriedade maxlength do textbox para 5
Tópico encerrado , respostas não são mais permitidas