Galera, eu estive tentando, sem sucesso, fazer uma mascara monetária que comece a leitura da direita para a esquerda.
Toda vez que configuro pelas propriedades da Maskedbox ela fica assim: R$100_,00 ao invés de R$1,00
E pelo format() eu não consegui fazer.
Alguém tem alguma ideia de como resolver?
Obrigada ^^)
0
2 respostas neste tópico
#2
marcotuliobueno
-
- Membros
-
- 43 posts
Postado 14 November 2011 - 07:58 AM
Eu encontrei o mesmo problema com este componente vo postar a solução que o cara encontrou acho que podera te ajudar
Quote
1- Inicie um novo projeto no VB e no formulário padrão coloque um controle - MaskeditBox - Maskedbox1
2- Agora no evento KeyPress do controle informe o seguinte código :Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = Asc(",") Then
'na faz nada
Else
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
Else
KeyAscii = 0
End If
End If
End Sub
3- Na propriedade Format do controle MaskedBox informa o seguinte valor : #,##0.00;($#,##0.00)
Ao pressionar o ponto ele é trocado por uma vírgula e os valores se ajustam ; o mesmo ocorre ao se digitar a virgula.
2- Agora no evento KeyPress do controle informe o seguinte código :Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = Asc(",") Then
'na faz nada
Else
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
Else
KeyAscii = 0
End If
End If
End Sub
3- Na propriedade Format do controle MaskedBox informa o seguinte valor : #,##0.00;($#,##0.00)
Ao pressionar o ponto ele é trocado por uma vírgula e os valores se ajustam ; o mesmo ocorre ao se digitar a virgula.
#3
Capitu_
-
- Membros
-
- 3 posts
Postado 14 November 2011 - 11:06 PM
Tentei fazer isso mas não deu certo
=/
=/
0 usuário(s) está(ão) lendo este tópico
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
