[VB.NET] Virgule Textbox
Résolu
Gornarf
Messages postés
121
Date d'inscription
Statut
Membre
Dernière intervention
-
Gornarf Messages postés 121 Date d'inscription Statut Membre Dernière intervention -
Gornarf Messages postés 121 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VB.NET] Virgule Textbox
- Google sheet remplacer point par virgule - Forum Réseaux sociaux
- 2 décimales après la virgule excel ✓ - Forum Programmation
- Remplacement automatique dans Google Sheets - Forum Google Docs
- Le point à la place de la virgule ✓ - Forum Excel
- Excel:chiffres après virgule ✓ - Forum Excel
3 réponses
Salut,
tu peut le gerer dans l'evenement KeyPress avec un code comme celui la tu peut l'ameliorer car la je le fais rapidement en C# mais bon la syntaxe et assez ressemblante a VB.net pour cet exemple
tu peut le gerer dans l'evenement KeyPress avec un code comme celui la tu peut l'ameliorer car la je le fais rapidement en C# mais bon la syntaxe et assez ressemblante a VB.net pour cet exemple
if(e.KeyChar == ',')
{
if(textBox1.Text.Contains(","))
{
e.Handled = true;
}
}
Ca marche nickel nico, merci.
Je poste ma solution complète qui permet de remplacer le point par la virgule et de n'autorisée la saisie que de 1 seule virgule dans la TXTbox
Private Sub NumericTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumericTextBox1.KeyPress
'Remplace le point par une virgule
If Asc(e.KeyChar) = 46 Then e.KeyChar = ","
If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 Or CType(sender, TextBox).Text = "") Then e.Handled = False
NumericTextBox1.MaxLength = 8
'N'autorise qu'une seule virgule dans la box
If (e.KeyChar = ",") Then If (NumericTextBox1.Text.Contains(",")) Then e.Handled = True
End Sub
Je poste ma solution complète qui permet de remplacer le point par la virgule et de n'autorisée la saisie que de 1 seule virgule dans la TXTbox
Private Sub NumericTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumericTextBox1.KeyPress
'Remplace le point par une virgule
If Asc(e.KeyChar) = 46 Then e.KeyChar = ","
If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 Or CType(sender, TextBox).Text = "") Then e.Handled = False
NumericTextBox1.MaxLength = 8
'N'autorise qu'une seule virgule dans la box
If (e.KeyChar = ",") Then If (NumericTextBox1.Text.Contains(",")) Then e.Handled = True
End Sub