MASCARA NO TEXTBOX
Caros é o seguinte :
Tenho um textbox onde o usuário digita o número que desejar :
1
10
5,32
10,56
e assim por diante
Porém o resultado disso precisa ser para mim com 4 decimais.
Como configuro isso ?
Tentei assim :
TextBox8.Text = Format(TextBox8.Text, [Ô]00,0000[Ô])
TextBox8.Focus()
mas não funcionou.
Como podem me ajudar ?
Agradeço;
Tenho um textbox onde o usuário digita o número que desejar :
1
10
5,32
10,56
e assim por diante
Porém o resultado disso precisa ser para mim com 4 decimais.
Como configuro isso ?
Tentei assim :
TextBox8.Text = Format(TextBox8.Text, [Ô]00,0000[Ô])
TextBox8.Focus()
mas não funcionou.
Como podem me ajudar ?
Agradeço;
Na realidade o que você precisa é usar o Maskedit.
Private Sub Text1_LostFocus()
Dim vl As Double
vl = CDbl(Text1.Text)
Text1.Text = Format(vl, [Ô]#,##0.0000[Ô])
End Sub
Dim vl As Double
vl = CDbl(Text1.Text)
Text1.Text = Format(vl, [Ô]#,##0.0000[Ô])
End Sub
Me ajudou bastante Antônio .
Abraços;
Abraços;
Tópico encerrado , respostas não são mais permitidas