Adicione dois TextBox e dois Botões no Form:
TextBox1 - Name: txtValor01
TextBox2 - Name: txtMonetario
Botão 1 - Text: Calcular
Botão 2 - Text: Limpar
Clique duas vezes no Form e coloque as variáveis:
Public Class Form1
Dim v1 As Decimal
Dim total As Decimal
Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o
End Sub e End Class:
Public Shared Sub FormatoMoeda(ByRef txt As TextBox)
'As variaveis
Dim FormatoMoedaValor1 As String = String.Empty
Dim FormatoMoedaValor2 As Double = 0
Try
FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")
If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""
FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")
If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)
FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100
txt.Text = String.Format("{0:N}", FormatoMoedaValor2)
txt.SelectionStart = txt.Text.Length
Catch ex As Exception
End Try
End Sub
Adicione um KeyPress e coloque o seguinte código:
Select Case (txtMonetario.TextLength)
Case 4
txtMonetario.SelectionStart = 5
End Select
Código do Botão: Calcular
Clique duas vezes no botão Calcular e coloque o seguinte código:
v1 = txtValor01.Text
total = v1 + total
txtMonetario.Text = total
Código do Botão: Limpar
txtValor01.Text = ""
Código do TextBox: Total - Name: txtMonetario
Clique duas vezes no TextBox e coloque o seguinte código:
'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1
Form1.FormatoMoeda(txtMonetario)
Código do TextBox: Valor - Name: txtValor01
Clique duas vezes no TextBox e coloque o seguinte código:
'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1
Form1.FormatoMoeda(txtValor01)
