replacing the character that is pressed by another 1

[stx]

hi

following problem:
I have a textbox. When the decimal point is pressed on my keyboard i need it to be replaced by the comma.

I vb6 that was easy. you just had to replace the keyascii value in the keypress event.

In .NET the e.keychar seems to be read-only and cannot be replaced.

Is there a way to get around this or another way to solve the problem.

Any thoughts are welcome.
thnx

 

[Custom24]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = "."c Then
e.Handled = True
TextBox1.Text &= ","c
TextBox1.Select(TextBox1.Text.Length, 0)
End If
End Sub Mark

 

[smeyer52]

Thanks for the code snippet. I don't understand VB.net (VB6 seemed much simpler). I modified your code to only allow numeric entries in a text box:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar > Chr(57) Or e.KeyChar < Chr(48) Then
e.Handled = True
TextBox1.Text &= Chr(0)
TextBox1.Select(TextBox1.Text.Length, 0)
End If
End Sub

It works fine, although I don't entirely understand what it does. Why did you use the letter &quot;c&quot; in two lines of your code?

 

[Custom24]

c is the only way in vb.net that you can specify you are using a character literal. I guess it would not have made that much difference to use a string literal. In fact, with the second time, it might even have been more efficient.



Mark

 

[JohnYingling]

What if the user is inserting the decimal point in the middle.
Try SendKeys
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = &quot;.&quot; Then
e.Handled = True
SendKeys.SendWait(&quot;,&quot
End If
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript