View Full Version : ajuda com a textbox no VB2005


57orm
28-09-2007, 15:11
Boas... Gostaria de saber como e que se configura uma textbox para só deixar escrever numeros??? ficarei há espera das vossas respostas...:kfold:

57orm
29-09-2007, 14:13
Pff ajudem.me... perciso mesmo de saber como e que se consegue configurar uma textbox de modo a que ela so se possa digitar numeros....
pff

Ш¡zard·σf·Шαr
30-09-2007, 15:23
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim texto As String = "" 'string que substituirá o texto actual na textbox
For Each c As Char In TextBox1.Text 'percorre todos os caracteres
If Asc(c) <= 57 AndAlso Asc(c) >= 48 Then texto &= c 'se este caractere for um número, adiciona-o à string
Next
Dim posicao As Integer = TextBox1.SelectionStart - (TextBox1.TextLength - texto.Length) 'nova posição do cursor dentro da textbox
TextBox1.Text = texto 'substituir o texto antigo pelo novo, já filtrado
TextBox1.Select(posicao, 0) 'colocar o cursor na devida posição
End Sub
Basicamente o que isto faz é, por cada vez que o texto da textbox é alterado, ele re-escreve o texto, filtrando os caracteres que não são números. Também funciona quando se tenta colar texto (com vários caracteres).

O controlo NumericUpDown possui esta funcionalidade já de raiz, não sendo necessário adicionar qualquer código.

alfinete
30-09-2007, 22:21
tens aui mais controles so letras , so numeros etc

http://www.macoratti.net/vbn5_ctl.htm