[VB.NET] Scambiare il punto (.) con la virgola (,)

[Kahm]

salve a tutti
avendo un programma contabile su access, su cui devo far inserire numeri con la viergola, se si inserisce il numero 55.10 diventa 5510,quindi avrei la necessita di scambiare il punto con la viergola
come posso fare?
ho provato con questo codice:

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim KeyCode As Short = e.KeyCode
        If KeyCode = 110 Then

            KeyCode = 0
            KeyCode = Nothing

            SendKeys.SendWait(",")
        End If
    End Sub

purtroppo oltre il punto mi da anche la virgola
come faccio ad azzerare keycode?
lo ho messo sia a zero che a nothing,esiste un modo piu' semplice?
grazie

[motogpdesmo16]

e se all'evento lostFocus facessi una replace della textbox o checchessia che ha perso il fuoco???

replace (nome,carattere da modificare, carattere modificato)

[Kahm]

Originariamente inviato da motogpdesmo16
e se all'evento lostFocus facessi una replace della textbox o checchessia che ha perso il fuoco???

replace (nome,carattere da modificare, carattere modificato)

sarebbe piu semplice a livello di form!
infatti ho impostatoil keypreview a true

fare queta funzione per ogni text..mi pare controproducente, sia per le modifiche successive che per il notevole tempo da impiegarci

[Luciano79]

Prova così

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim KeyCode As Short = e.KeyCode
        If KeyCode = 110 Then
            SendKeys.SendWait(Chr(8))  'cancella l'ultimo carattere (il punto)
            SendKeys.SendWait(",")
        End If
    End Sub

l'ho testato funziona, ma il punto non è 110, è 190!

[Kahm]

Originariamente inviato da Luciano79
Prova così

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim KeyCode As Short = e.KeyCode
        If KeyCode = 110 Then
            SendKeys.SendWait(Chr(8))  'cancella l'ultimo carattere (il punto)
            SendKeys.SendWait(",")
        End If
    End Sub

l'ho testato funziona, ma il punto non è 110, è 190!

ficooo!
tu cancelli l'ultimo carattere!, beh certo puo' essere un'idea

[ans]

viene prima l'evento keypress, quindi ti basta fare in tale evento:
If e.KeyChar = "." Then e.KeyChar = ","