• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

_viri_TT_

[VB6] Alterar 1 letra no meio da Textbox

4 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes fazer também a verificação depois do texto ser inserido...

Fazes:

textbox1.text = replace(textbox1.text, ".", ",")

0

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