TEXTBOX APENAS COM NUMEROS

MARCELOO10 29/08/2013 19:45:34
#428298
Gostaria de saber com eu faço para meu TextBox aceitar apenas números, bloquear letras e coisa do tipo.
Obrigado....
OMAR2011 29/08/2013 20:14:53
#428299
Visite.
http://www.macoratti.net/d160703.htm
TUNUSAT 30/08/2013 08:45:25
#428302
MARCELOO10,

Veja abaixo:

===================================

Public Class frmNumeros

Private Sub txtNumero_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumero.KeyPress
[ô]Escreve-se em VB 6 assim:
[ô]If InStr([Ô]0123456789[Ô], Chr(KeyAscii)) = 0 nd KeyAscii <> 8 Then KeyAscii = 0
[ô]Migrado para VB.NET:
If InStr([Ô]0123456789[Ô], e.KeyChar) = 0 And Not Convert.ToInt32(e.KeyChar) = Keys.Back Then e.Handled = True
[ô]Melhorada a Migração:
If Not Char.IsNumber(e.KeyChar) And Not Convert.ToInt32(e.KeyChar) = Keys.Back Then e.Handled = True
End Sub

End Class

===================================

[][ô]s,
Tunusat.
AMOVB 08/09/2013 20:05:56
#428589
Faça o seguinte :

Citação:


Dim allowedChars As String = [Ô]0123456789-()[Ô]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If allowedChars.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If
End Sub



Pronto ! (:
PEGUDO 09/09/2013 09:46:33
#428601
Só para constar: O MaskedTextBox não seria útil no seu projeto?
Faça seu login para responder
Voltar