|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Validações)
|
|
 |
Título da Dica: Somente numeros em um textbox
|
 |
|
|
|
Postada em 31/1/2004 por PC
Private Sub txtage_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtage.KeyPress
If KeyAscii(e) < 48 Or KeyAscii(e) > 57 Then
If KeyAscii(e) <> 8 Then
e.Handled = True
End If
End If
End Sub
Public Function KeyAscii(ByVal UserKeyArgument As KeyPressEventArgs) As Short
KeyAscii = Asc(UserKeyArgument.KeyChar)
End Function
|
|
|
|
|
