|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic.Net (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Somente numeros em um textbox
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|