[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 775
  • Last Modified:

Change Dot for comma vb6

Hello all,

I would like to know what i could do, only in one textbox, that if somedoby pless on the Dot "." , it put a comma automatically ","

How can i do this please?

Thanks for your help
0
Wilder1626
Asked:
Wilder1626
1 Solution
 
TonyRebaCommented:
can you post a part of the code so we can take a look ?
0
 
Wilder1626Author Commented:
Sure

Private Sub txtCout_unitaire_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
txtCout_unitaire.Text = Format(txtCout_unitaire.Text, "Currency")
End Sub
0
 
Patrick MatthewsCommented:
Try this:
Private Sub txtCout_unitaire_KeyPress(KeyAscii As Integer)

    If KeyAscii <> 46 Then
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    Else
        KeyAscii = 44
    End If
    txtCout_unitaire.Text = Format(txtCout_unitaire.Text, "Currency")

End Sub

Open in new window

0
 
danaseamanCommented:
Or just:

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 46 Then
      KeyAscii = 44
   End If
End Sub

Open in new window

0
 
Wilder1626Author Commented:
That is perfect.

Thanks a lot for your help
0

Featured Post

Learn to develop an Android App

Want to increase your earning potential in 2018? Pad your resume with app building experience. Learn how with this hands-on course.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now