Discussion :

[stracoma]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ProgElecT]

Salut

Si tu codes comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[stracoma]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Re

ai-je bien compris

Oui
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.

[stracoma]

Merci beaucoup
C'est résolu

[DD-78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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