|
|
Postada em 24/09/2004 00:38 hs
Boa noite galera. como faço para habilitar somente entrada de números e a tecla backspace numa textbox. Obrigado!
wagner mesquita
|
|
|
|
|
|
|
|
Postada em 24/09/2004 08:13 hs
|
|
|
|
|
|
Postada em 24/09/2004 08:44 hs
No evento KeyPress Digite : If (KeyAscii < 47 or KeyAscii > 58) and Keyascii <> 8 then Keyascii = 0 end if
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 24/09/2004 10:02 hs
Eu uso assim A rotina em um MODULO, ela aceita numeros back e ',' para os numeros decimais Function CRITICA_NUM(Tecla As Integer) As Integer
Key$ = Chr$(Tecla)
If ((Key$ < "0" Or Key$ > "9") And Key$ <> ",") And (Tecla <> 8) Then
Beep
Tecla = 0
End If
CRITICA_NUM = Tecla
End Function No form no campo que quer criticar Private Sub txt_recibo_KeyPress(KeyAscii As Integer)
KeyAscii = CRITICA_NUM(KeyAscii)
End Sub
Desta forma fica mais facil nos programas, pois voce inclui so uma linha em cada campo. Se um dia voce quizer alterar a rotina voce so altera no modulo e pronto. 
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
