|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Só números em TextBox ..
|
 |
|
|
|
Postada em 26/12/2006 por Carlos.DF
'ATENÇÃO invento KeyPress
Private Sub Text1_KeyPress(KeyAscii As Integer)
'
Const Number$ = "0123456789." ' aceitar só estes caracteres
If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If
'OU:
'
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub
'Abraços ..
|
|
|
|
|
