Discussion :

[Vincinho]

Bonjour tout le monde !!

Je développe une petite appli qui permettra de coder les codes articles de mon entreprise. J'ai commencé avec un certain type d'article et tout marche bien mais j'ai un problème pour le deuxième et je ne comprend pas pourquoi ca ne fonctionne pas.

J'ai donc mis un bouton "Nouvelle saisie" qui permet d'éffacer les informations sélectionné et saisi par l'utilisateur pour qu'il recommence, pour le premier cas ca marche mais pas pour le second alors que j'ai fais la meme chose.

Voici mon code pour le bouton

Code :

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

1
2
3
4
5
6
7
 TextBox3.Text = ""
        ComboBox1.Items.Clear()
        ComboBox2.Items.Clear()
        ComboBox3.Items.Clear()
        ComboBox4.Items.Clear()
        ComboBox5.Items.Clear()
        Visserie_Load(sender, e)

La ca marche je me retrouve avec la fenetre de départ avec tout effacé et voici le code de l'autre bouton :

Code :

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

1
2
3
4
5
6
TextBox4.Text = ""
        ComboBox1.Items.Clear()
        ComboBox2.Items.Clear()
        ComboBox3.Items.Clear()
        ComboBox4.Items.Clear()
        MatieresPremieres_Load(sender, e)

La je me retrouve avec la fenetre de départ mais mes ComboBox ont gardé en mémoire les occurences précédemment sélectionné et je ne vois pas pourquoi.

Avez vous une idée ?

Merci

[loulouklm]

C'est sûrement un pb d'ordre d'appel ou mauvais appel de fonction. Tu peux nous donner plus de détail sur l'appel des tes méthodes et comment tu remplies tes combobox ?

[Vincinho]

Pour etre plus clair, lors du lancement de l'application l'utilisateur n'a le choix que de sélectionner une valeur dans la CB1 qui, lorsqu'elle est renseigné, va entrainé l'apparition de la CB2 remplie et ainsi de suite. Puis une fois les CB remplis je fais apparaitre les TextBox où l'utilisateur saisi les données numérique.

Voila comment je remplis ma 2e combobox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        Label2.Visible = True
        ComboBox2.Visible = True
        Label2.Text = ("Type matière")
        ComboBox2.Items.Clear()
        If ComboBox1.SelectedItem = "Tôle" Then
            ComboBox2.Items.Add("Acier")
            ComboBox2.Items.Add("Galva")
            ComboBox2.Items.Add("Inox")
            ComboBox2.Items.Add("Aluminium")
End If
End Sub

J'ai pas tout copié ca serait trop long

Pour charger mon appli :

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
Private Sub MatieresPremieres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        MaximizeBox = False
 
        ComboBox1.Items.Add("Tôle")
        ComboBox1.Items.Add("Poutrelle")
        ComboBox1.Items.Add("Plat")
        ComboBox1.Items.Add("Carre")
        ComboBox1.Items.Add("Rond")
        ComboBox1.Items.Add("Tube")
        ComboBox1.Items.Add("Cornière")
        ComboBox1.Items.Add("Té")
        ComboBox1.Items.Add("U à congés")
 
        Label1.Text = ("Type de matière première")
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        ComboBox2.Visible = False
        ComboBox3.Visible = False
        ComboBox4.Visible = False
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
 
    End Sub

Et donc pour recommencer une saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        TextBox4.Text = ""
        ComboBox1.Items.Clear()
        ComboBox2.Items.Clear()
        ComboBox3.Items.Clear()
        ComboBox4.Items.Clear()
        MatieresPremieres_Load(sender, e)
 
    End Sub

Merci pour vos réponses

[laedit]

Il faudrait que tu vide aussi la propriété Text des autres ComboBox :

Code :

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

1
2
3
4
5
6
 
ComboBox1.Text = String.Empty;
ComboBox2.Text = String.Empty;
ComboBox3.Text = String.Empty;
ComboBox4.Text = String.Empty;
ComboBox5.Text = String.Empty;

[Vincinho]

Merci beaucoup ca marche comme ca. Je vais le laisser ainsi pour le moment mais je me repencherais dessus car je ne vois pas pourquoi ca marche dans mon premier module et non dans le deuxieme.

Merci encore et bonne journée