Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

_viri_TT_

[VB6] Alterar 1 letra no meio da Textbox

Mensagens Recomendadas

_viri_TT_    0
_viri_TT_

Boas,

Ora bem estou a desenvolver um trabalho e estou com alguma urgencia em terminar isto. Fiquei horas a tentar arranjar uma solução eficaz para me resolver o seguinte problema.

Tenho uma textbox onde queria que sempre que fosse introduzido um ponto "." esse caracter fosse alterado para virgula  ","

A ideia era fazer algo como

Private Sub txtCarregar_Change()
If keypressed = "." Then
    txtCarregar = txtCarregar & ","
End If
End Sub

De qualquer forma o código era para saber como funcionava o evento e o keypressed mas não resultou em grande coisa.

Se alguém souber como dar a volta agradecia.

Cumps.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
NuGuN

Boas...

Para fazeres isso tens de trabalhar com o evento KeyPress(KeyAscii As Integer). Podes fazer algo do tipo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then
    KeyAscii = 44
End If
End Sub

Esse código esta dentro do evento KeyPress de uma TextBox (Text1). O número 46 é o valor ASCII do "." e o número 44 é o valor ASCII da ","

Espero ter ajudado.

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade