joel
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 31/12/2010 01:42 hs
Boa Noite Pessoal.
Gostaria de Saber se é possivel criar uma sub padrao para varios text.
Por Exemplo uma sub que verifica se o campo é numero.
Sub ValidaNumero()
If IsNumeric (text1.text) then...
end sub
O Detalhe é que quero colocar isso em varios text e gostaria de apenas chama-la no LostFocus.
Exemplo
Private Sub Text1()
Call ValidaNumero
end sub
Desde ja obrigado Pessoal.
|
|
|
|
|
|
|
|
Postada em 31/12/2010 09:35 hs
Cara coloca num modulo este código:
Public Function setNumeric(KeyAscii As Integer)
If Not Chr(KeyAscii) Like "#" And KeyAscii <> 8 And KeyAscii <> 46 Then KeyAscii = 0
End Function
No evento Keypress do Text, coloca este:
If KeyAscii = 13 Then Text1.SetFocus Else setNumeric KeyAscii
Isso deve funcionar.
Boa sorte.
Feliz aquele que transfere o que sabe e aprende.
|
|
|
|
Joel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/01/2011 10:23 hs
Bom Dia
Ótimo sNniffer, porem mesmo assim eu tenho que em cada text informar o seu referido nome. O que eu gostaria é utilizar a função Copiar e Colar, teria como?
Abraços...
|
|
|
|
