Mascara Tipo banco eletronico.

[Abimael 0]

Pessoal estou precisando digitar em um textbox valores tipo de caixas eletrônico, da esquerda para direita. Achei o seguinte código.

 

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
	KeyAscii = 0
Else
	If Len(Text1) > 1 Then
		Text1 = Replace(Text1, ",", "")
		Text1 = Left(Text1, Len(Text1) - 1) & "," & Right(Text1, 1)
		Text1 = Format(Text1, "#0.0")
		Text1.SelStart = Len(Text1)
	End If
	
End If
End Sub

Funciona legal, só que só coloca a virgula dos centavos, gostaria que colocasse os pontos, alguém sabe como fazer?

[Graymalkin 0]

Mas a vírgula é, oficialmente, o nosso separador decimal. De qualquer maneira experimente trocar o ponto no Format() por uma vírgula (já que os americanos usam ao contrário). Se não der certo, use o Replace().

 

Abraços,

 

Graymalkin

[Abimael 0]

Não sei se me expressei direito, mas digamos que eu vou digitar 1.000.000,00, no atual script, vai ficar da seguinte forma, 1000000,00, o que eu gostaria é que ficasse da seguinte forma 1.000.000,00. O pior é que sou iniciante não sei como fazer, alguém pode me dar uma dica?

[Graymalkin 0]

Ops, eu entendi errado então. Eu pensei que você queria trocar a vírgula pelo ponto. Mea culpa!

Bom, então o que você quer pode ser feito assim:

 

s = format(valor, "#,#0.00")

Certo? ;)

 

Graymalkin