Notifications
Clear all

Limpar Textbox ao iniciar a digitação

2 Posts
1 Usuários
0 Reactions
847 Visualizações
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Amigos preciso uma ajuda sua:
o meu formulário tem várias textbox mas usarei como exemplo aquela que segue abaixo. Ao abrir o meu formulário a textbox abaixo já vem com um número (uma quantidade com casas decimais). Quando eu quero alterar pulando de textbox em textbox ele marca o numero todo e basta digitar que ele irá alterar.
O problema é quando eu uso o mouse para clicar diretamente numa das textbox para alterar e começo a digitar, ele inseri os números no local onde eu cliquei, não apagando os números ao iniciar a digitação.
Preciso de um comando para fazer isto.

Coloquei o KeyPress, mas este limpa todos os dígitos (a medida que vou digitando).

Private Sub txtqte_espuma_10_change()
If Not IsNumeric(txtqte_espuma_10.Text) Then
txtqte_espuma_10.Text = Empty ' zero
End If
End Sub

Private Sub txtqte_espuma_10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txtqte_espuma_10.Value = ""
End Sub

Private Sub txtqte_espuma_10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtqte_espuma_10.Text = Format(txtqte_espuma_10.Text, "#,##0.000")
End Sub

 
Postado : 20/06/2017 11:55 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

utilizei agora:
Private Sub txtqte_espuma_10_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
txtqte_espuma_10.Value = ""
End Sub

acho que vai me ajudar, até que encontre outra maneira.

 
Postado : 20/06/2017 12:30 pm