Aceitar caracter Asc 08

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Aceitar caracter Asc 08

Ricardo
não registrado

Postada em 20/03/2006 10:32 hs

Pessoal como faço para que nessa rotina aceite o backspace (codigo Asc 08)

Private Sub txtNumeros_KeyPress(KeyAscii As Integer)

Dim strValid As String
strValid = "0123456789"

    If InStr(strValid, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    End If

End Sub

SÃO PAULO
SP - BRASIL

Postada em 20/03/2006 10:37 hs

mas pra q vc quer realmente isto ñ entendi.....acho q tem outro jeito mas ñ sei se eh o q vc quer!!!

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com

Obs. Hotmail uso apenas para messenger!!

Aprendiz e Futuro programador!!!

"Todo seu conhecimento deve ser compatilhado!!!" ------

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 20/03/2006 10:44 hs

Private Sub txtNumeros_KeyPress(KeyAscii As Integer)

Dim strValid As String
strValid = "0123456789" & Chr(8)

    If InStr(strValid, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    End If

End Sub

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Ricardo
não registrado

Postada em 20/03/2006 14:16 hs

Valeu Galera

as dicas foram satisfatorias, muito obrigado.

Ricardo Lira.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site