VE SE TXT E NUMERICO
Ola amigos tudo bem ?
preciso verificar se um textbox é numerico ou não
tenho esse codigo:
if (!char.isnumber(e.keychar))
e.handled = true;
ao qual vi q tem ser colocado no evento KeyPress da txt,
mas onde eu procuro os eventos para altera-lo ?
preciso verificar se um textbox é numerico ou não
tenho esse codigo:
if (!char.isnumber(e.keychar))
e.handled = true;
ao qual vi q tem ser colocado no evento KeyPress da txt,
mas onde eu procuro os eventos para altera-lo ?
Isso mesmo que o amigo FilMan disse.
Vc também pode criar uma função pra usar em todos os txts que precisarem desta condição, ex.:
Private Sub txtCodigo_KeyPress(KeyAscii As Integer)
KeyAscii = ConfereDigito(KeyAscii)
End Sub
Public Function ConfereDigito(ByVal Digito As Integer) As Integer
If (Digito < vbKey0 Or Digito > vbKey9) And Digito <> vbKeyBack Then Digito = 0
ConfereDigito = Digito
End Function
Vc também pode criar uma função pra usar em todos os txts que precisarem desta condição, ex.:
Private Sub txtCodigo_KeyPress(KeyAscii As Integer)
KeyAscii = ConfereDigito(KeyAscii)
End Sub
Public Function ConfereDigito(ByVal Digito As Integer) As Integer
If (Digito < vbKey0 Or Digito > vbKey9) And Digito <> vbKeyBack Then Digito = 0
ConfereDigito = Digito
End Function
Tópico encerrado , respostas não são mais permitidas