ACCOUNT SECRET

USUARIO.EXCLUIDOS 05/09/2007 14:57:10
#234300
1-Como faço pro no text box, não aparecer os botoes teclados, e sim aparecerem em * ?
2-e tbm só poderem ser digitados numeros, as letras fikarão blokeadas ..
USUARIO.EXCLUIDOS 05/09/2007 15:07:22
#234305 Resposta escolhida
é o seguinte:

1) Vá na propriedade PasswordChar do text e coloque *

2) No evento Keypress do text, coloque isso:

ValidarNum Keyascii

E num módulo, cole este código:

  Public Sub ValidarNum(ByRef KeyAscii As Integer)

'Ascii 48 a 57 são números
'Ascii 8 é o backspace
'Ascii 44 é a vírgula
'Ascii 13 é o Enter
'Ascii 45 é o sinal de menos (-)

Select Case KeyAscii
Case 48 To 57, 8, 44, 13, 45
Case Else
    KeyAscii = 0
End Select
End Sub

USUARIO.EXCLUIDOS 05/09/2007 15:41:05
#234314
Valeu garoto. :}
Tópico encerrado , respostas não são mais permitidas
Voltar