condition (if) sur un textebox

Bonsoir
je vous demande de l'aide pour comprendre ce que je n'arrive pas à comprendre.

Code:

---

1 2 3 4 5

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged If IsNumeric(Me.TextBox1.Text) = False Then Me.TextBox1.Text = "tata" ' N° 1 Me.TextBox1.Text = "tata" ' N° 2 End If

---

quand je tape par exemple 'm' le combobox affiche bien 'tata', s'agit-il de tata N° 1 ou N°2 ?
Merci
(ce n'est que le début de mon problème)

Salut

Si tu codes comme ceci

Code:

---

1 2 3 4

If IsNumeric(Me.TextBox1.Text) = False Then Me.TextBox1.Text = "tata N° 1" Me.TextBox1.Text = "tata N° 2" End If

---

qu'apparait il dans ton TextBox1 ?

Si tu codes comme ceci

Code:

---

1 2 3 4 5

If IsNumeric(Me.TextBox1.Text) = False Then Me.TextBox1.Text = "tata N° 1" Else Me.TextBox1.Text = "tata N° 2" End If

---

En tapant un chiffre, il apparait quoi dans le TextBox1?
En tapant tout autre chose qu'un chiffre, il apparait quoi dans le TextBox1?

Par anticipation, Comment ne saisir que des caractères numériques dans mon TextBox ? va t'être utile.
Un lien qui semblerai interessant aussi Tutoriels pour débutants et cours complets pour apprendre la programmation DotNet.

Bonjour et merci pour la réponse
avec ce code:

Code:

---

1 2 3 4

If IsNumeric(Me.TextBox1.Text) = False Then Me.TextBox1.Text = "tata N° 1" Me.TextBox1.Text = "tata N° 2" End If

---

Quand je tape un nombre, c'est ce nombre qui s'affiche.
Quand je tape une lettre, c'est le crash --> System.StackOverflowException

avec ce code:

Code:

---

1 2 3 4 5

If IsNumeric(Me.TextBox1.Text) = False Then Me.TextBox1.Text = "tata N° 1" Else Me.TextBox1.Text = "tata N° 2" End If

---

c'est toujours "tata N° 1" qui s'affiche quelque soit le caractère tapé.
j'en conclus, d'ailleurs c'est pour ça que j'ai créé ce sujet, qu'à chaque fois que je change la valeur de Me.TextBox1.Text à l'intérieur de de la procédure, toute la procédure "TextBox1_TextChange" se relance. C'est pour ça que dans le premier code, quand je tape une lettre (donc non numérique), je rentre dans la condition, -->Me.TextBox1.Text = "tata N° 1" suivie immédiatement de la réaffectation "Me.TextBox1.Text = "tata N° 2", qui n'est pas numérique, ce qui déclenche à nouveau la procédure ..... Donc une boucle infinie, d'où le message System.StackOverflowException.
Pour le 2ème code, quand je tape "m", Me.TextBox1.Text = "tata N° 1"; quand je tape "5" , Me.TextBox1.Text = "tata N° 2" (non numérique) la procédure est relancée, je rentre dans le if donc Me.TextBox1.Text = "tata N° 1"
ai-je bien compris

Re

Citation:

---

Envoyé par stracoma

ai-je bien compris

---

Oui:ccool:
Regardes le 1er lien, tu as toutes les réponses pour comprendre la façon de maitriser les entrées numérique dans un TextBox.

Merci beaucoup
C'est résolu

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Label1.Text = Nothing Init_point() End Sub   Private Sub Init_point() ' Force la culture à autoriser le point pour les décimales Dim oldDecimalSeparator As String = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator   If Not oldDecimalSeparator = "." Then ' Si se n'est pas un point Dim forceDotCulture As Globalization.CultureInfo forceDotCulture = CType(Application.CurrentCulture.Clone(), Globalization.CultureInfo) forceDotCulture.NumberFormat.NumberDecimalSeparator = "." Application.CurrentCulture = forceDotCulture End If   End Sub   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged   If TextBox1.Text = Nothing Then Label1.Text = Nothing : Exit Sub   If IsNumeric(TextBox1.Text) = False Then Label1.Text = "Non numérique : tata N° 1" Else TextBox1.Text = Replace(TextBox1.Text, " ", "") ' 'Remplace les espaces par rien. TextBox1.Select(TextBox1.Text.Length, 0) ' Position du curseur en fin de chaine ' TextBox1.Select(0, 0) ' Position du curseur en début de chaine Label1.Text = "Numérique : tata N° 2" End If   End Sub End Class

---

Merci DD-78
avec un copier-coller ça marche, mais il me faut du temps pour assimiler le code (trop de choses nouvelles pour moi)

Il ne faut pas vous focaliser sur Init_point()
Cet ajout uniquement pour vous faire découvrir la prise en compte du point du clavier pour le séparateur décimal (plus convivial au clavier).

Il faut s'orienter vers ce que vous dit ProgElecT.

N'oubliez pas que les TextBox retournent des chaines de caractères (String). Si l'on veut utiliser les entrées pour faire des calculs
il faut les convertir par les fonctions de type Cint, Cdbl etc...
Voir : https://msdn.microsoft.com/fr-fr/lib...v=vs.120).aspx


exemple :

Code:

---

1 2 3 4 5

Dim monEntier As Integer TextBox1.Text = "100" ' Initialisation d'une valeur quelconque pour le test. J'ai pris aléatoirement 100, bien entendu numérique. monEntier = CInt(TextBox1.Text) + 1 ' La variable monEntier est le résultat de la conversion CInt(TextBox1.Text) en ajoutant 1 pour la démonstration. Label1.Text = "Résultat de mon calcul : " & monEntier ' On affiche le résultat dans le contrôle Label1. Le signe & permet de faire une concaténation. Dans cet exemple le résultat sera toujours 101.

---

Courage, les débuts sont difficiles mais on finit toujours par parvenir à ces fins en s'obstinant !

Bien compris.
:merci: