Discussion :

[Damou56]

Bonjour,
j'ai créer une Windows Forms qui m'affiche des labels dynamiquement par rapport à un ComboBox avec des informations de ma base de données. Ce que je n'arrive pas à faire c'est lorsque je change d'élément dans mon ComboBox au lieu que mes labels s'effacent et se réinscrivent, il s'empile. Si quelqu'un pourrait m'aider merci.

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
34
35
36
37
    'Je n'ai pas mis ma condition qui efface les labels
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_Classe.SelectedIndexChanged
        Dim i As Integer
        Dim NbLignes As Integer
        Dim Requete_L As String
        Dim DTable As DataTable
        Dim Position01 As Integer
        Dim Position02 As Integer
        Dim L_Eleve As Label
        Dim T_Note As TextBox
 
        Position01 = 33
        Position02 = 30
        Requete_L = "SELECT nom_elev, pre_elev FROM eleve, classe WHERE classe.no_clas = eleve.no_clas AND nom_clas = '" & CB_Classe.Text & "' ORDER BY nom_elev, pre_elev"
        DTable = ReqSelection(Requete_L, "eleve")
        NbLignes = DTable.Rows.Count
 
        For i = 0 To NbLignes - 1
            'On créé nos éléments
            L_Eleve = New Label
            T_Note = New TextBox
 
            'On leurs donnent toutes leurs caractéristiques
            L_Eleve.Name = "L_Eleve" & Str(i)
            T_Note.Name = "T_Note" & Str(i)
            L_Eleve.Location = New System.Drawing.Point(211, Position01)
            T_Note.Location = New System.Drawing.Point(508, Position02)
            T_Note.Size = New System.Drawing.Point(30, 20)
            T_Note.TextAlign = HorizontalAlignment.Right
            Position01 = Position01 + 22
            Position02 = Position02 + 22
            L_Eleve.Text = DTable.Rows(i).Item(0) & " " & DTable.Rows(i).Item(1)
            'On les incorpore dans la WindowsForm
            Controls.Add(L_Eleve)
            Controls.Add(T_Note)
        Next i
    End Sub

[Hinault Romaric]

C'est normal a chaque évènement ComboBox1_SelectedIndexChanged tu créer et ad des nouveaux label sans toute fois supprimer ou cacher les anciens

[Damou56]

oui je sais justement j'ai déjà essayé plusieurs méthode pour les supprimer sans résultat d'où ma demande

[Hinault Romaric]

tu peut mettre tout tes label dans un même conteneur et chaque fois tu redessine juste le conteneur avant de add les labels

[Damou56]

Je vois ce que tu veux dire j'avais essayé avec une collection, niveau code tu peux me donner juste la syntaxe d'un conteneur?

[Hinault Romaric]

Tu insert un panel dans ton formulaire et tu
essaie sa

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
34
35
36
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_Classe.SelectedIndexChanged
        Dim i As Integer
        Dim NbLignes As Integer
        Dim Requete_L As String
        Dim DTable As DataTable
        Dim Position01 As Integer
        Dim Position02 As Integer
        Dim L_Eleve As Label
        Dim T_Note As TextBox
        Position01 = 33
        Position02 = 30
        Panel1.Controls.Clear
        Requete_L = "SELECT nom_elev, pre_elev FROM eleve, classe WHERE classe.no_clas = eleve.no_clas AND nom_clas = '" & CB_Classe.Text & "' ORDER BY nom_elev, pre_elev"
        DTable = ReqSelection(Requete_L, "eleve")
        NbLignes = DTable.Rows.Count
 
        For i = 0 To NbLignes - 1
            'On créé nos éléments
            L_Eleve = New Label
            T_Note = New TextBox
 
            'On leurs donnent toutes leurs caractéristiques
            L_Eleve.Name = "L_Eleve" & Str(i)
            T_Note.Name = "T_Note" & Str(i)
            L_Eleve.Location = New System.Drawing.Point(211, Position01)
            T_Note.Location = New System.Drawing.Point(508, Position02)
            T_Note.Size = New System.Drawing.Point(30, 20)
            T_Note.TextAlign = HorizontalAlignment.Right
            Position01 = Position01 + 22
            Position02 = Position02 + 22
            L_Eleve.Text = DTable.Rows(i).Item(0) & " " & DTable.Rows(i).Item(1)
            'On les incorpore dans la WindowsForm
            Panel1.Controls.Add(L_Eleve)
            Panel1.Controls.Add(T_Note)
        Next i
    End Sub

Panel1.Controls.Clear
va supprimer tout les labels et textbox

[Damou56]

je ne connaissais pas merci beaucoup

EDIT : je suis désolé mais ça ne fonctionne pas il empile encore a chaque fois mes label et textbox auxune suppression

[Hinault Romaric]

je ne comprend pas a tu ajouter panel.controls.clear dans l'évènement ComboBox1_SelectedIndexChanged() en principe sa devrai marcher

[Damou56]

oui juste après les déclarations de mes variables c'est vrai que c'est très bizarre

[Hinault Romaric]

met un point d'arret sur la ligne suivante
NbLignes = DTable.Rows.Count

Code :

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

NbLignes = DTable.Rows.Count

pour voir le nombre de ligne qui est retourne et comparer un peut avec le nombre de label dans le panel
je crois que sa doit être due au nombre de label insérer

[Damou56]

oui l'erreur est là il additionne avec mes précédentes lignes je vais tenter de resoudre le problème

EDIT : je sais pas pourquoi mais le DTable.Rows.Count garde ma valeur précédente et l'additionne avec la nouvelle alors que la requête est bonne

[Hinault Romaric]

essaye de voir s'il n'ya pas une propriété clear dans ton Dtable

[Damou56]

oui elle y est je viens de la trouver je la met à la fin de mon traitement et ça fonctionne merci encore pour le coup de main

[Hinault Romaric]

de rien
n'oublie pas de mettre résolue à cette discussion