VALIDACAO DE TEXTBOX

CAUEBIAZIN 05/09/2007 23:04:32
#234373
Olá pessoal.
Tenho um testBox para receber valor
coloquei o seguinte codigo no programa

  Private Sub TxtValor_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtValor.Validating
        If TxtValor.Text = "" Then
            Exit Sub
        End If
        If Not IsNumeric(TxtValor.Text) Then
            MsgBox("Numero invalido")
            e.Cancel = True
        Else
            TxtValor.Text = Format(CDbl(TxtValor.Text), "R$ #,##0.00")
            e.Cancel = False
        End If
    End Sub


mas quando estou digitando, está aparecendo no seguinte formato...
R$ 5,450.00, sendo que queria que aparecesse assim: R$ 5.450,00.

Tentei de várias maneiras mas n consegui mudar...
Será que alguem tem uma dica?

Obrigado a todos
USUARIO.EXCLUIDOS 06/09/2007 00:56:40
#234377
Private Sub TxtValor_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtValor.Validating
If TxtValor.Text = "" Then
Exit Sub
End If
If Not IsNumeric(TxtValor.Text) Then
MsgBox("Numero invalido")
e.Cancel = True
Else
TxtValor.Text = Format(CDbl(TxtValor.Text), "R$ ##0,00")
e.Cancel = False
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar