[Visual Basic] only one comma in a textBox
Solved
kikou93
Posted messages
438
Status
Membre
-
kikou93 Posted messages 438 Status Membre -
kikou93 Posted messages 438 Status Membre -
Hello everyone, I am seeking your help for the following subject:
I would like to limit the number of commas in a textBox to 1.
That is, if I insert a comma in a textBox and try to insert a second one, nothing happens.
I found the following code:
in:
https://forums.commentcamarche.net/forum/affich-22991758-vb-net-virgule-textbox
but nothing changes (even though the person who posted the code marked the subject as resolved)
I have already figured out how to prohibit the entry of letters and other symbols, and also how to replace the period with a comma
Here is the Code:
I just need that
Please help me and thank you in advance
Configuration: Windows / Chrome 49.0.2623.112
--
How it works is cool!
1000 Thanks friends
I would like to limit the number of commas in a textBox to 1.
That is, if I insert a comma in a textBox and try to insert a second one, nothing happens.
I found the following code:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (e.KeyChar = ",") Then If (TextBox1.Text.Contains(",")) Then e.Handled = True
End Sub
in:
https://forums.commentcamarche.net/forum/affich-22991758-vb-net-virgule-textbox
but nothing changes (even though the person who posted the code marked the subject as resolved)
I have already figured out how to prohibit the entry of letters and other symbols, and also how to replace the period with a comma
Here is the Code:
Dim desNuméro() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not desNuméro.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
e.Handled = True
End If
If e.KeyChar = "."c Or e.KeyChar = ","c Then
e.Handled = True
TextBox1.AppendText(",")
End If
End Sub I just need that
Please help me and thank you in advance
Configuration: Windows / Chrome 49.0.2623.112
--
How it works is cool!
1000 Thanks friends
2 réponses
If TextBox.Text.Contains(",") then 'refuse input of the dot/comma.
Otherwise, also try copying and pasting into your textbox to see if it still works. (like "jhdk51258...54fg" -> Textbox)
--
I primarily work in VB6 and VB.NET, with a bit of C#, but moderation often brings me to other languages.
In VB.NET, remember to enable "Option Explicit" and "Option Strict"
Otherwise, also try copying and pasting into your textbox to see if it still works. (like "jhdk51258...54fg" -> Textbox)
--
I primarily work in VB6 and VB.NET, with a bit of C#, but moderation often brings me to other languages.
In VB.NET, remember to enable "Option Explicit" and "Option Strict"
Good evening
Try this
Try this
Dim desNuméro() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not desNuméro.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
e.Handled = True
End If
If e.KeyChar = "."c Or e.KeyChar = ","c Then
e.Handled = True
If Not (TextBox1.Text.Contains(",")) Then TextBox1.AppendText(",")
End If
End Sub
