Discussion :

[TWINOTTER]

Bonjour a tous

je vous soumets mon questionnement, ma "torture":
une form sur laquelle il y a 8 combobox
ces 8 combobox se remplissent a partir de la meme source de données
et permettent de recuperer des données a but de calcul (en fonction du selected item de chaque combobox)
les calculs a faire sont toujours les memes

Alors, je me suis dis (mais j'ai ptetre tord) que je pourrais ptetre faire tout ça avec une instanciation en boucle for Next pour avoir des combobox indicés, et des objets indicés liés aux combobox, et des boucles for next

Voici mon code

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
Dim lstTerrains As New List(Of Terrain)
        Dim lstcombox As New List(Of ComboBox)
 
 
        For i = 0 To 7
            Dim Terrain(i) As Terrain
            Terrain(i) = New Terrain
            lstTerrains.Add(Terrain(i))
            Dim cbx(i) As ComboBox
            cbx(i) = New ComboBox
            lstcombox.Add(cbx(i))
            cbx(i).Text = 100 + 10 * 1
        Next i
 
 
        For Each Terrain In lstTerrains
            For Each cbx In lstcombox
 
                Terrain.Nom = cbx.Text
                With cbx
                    cbx.Visible = True
                End With
 
            Next
 
        Next

Mon soucis?:
le code a l'air de fonctionner MAIS
je n'arrive pas a faire afficher mes combobox

merci d'avance pour votre aide

[mermich]

Salut,

De ce que je vois tu construit une liste de combox, puis dans la seconde partie de ton code tu les rends visibles, mais nulle part tu ajoutes ces combos box a ton form donc elles ne sont jamais affichees.

il te faut egalement dans le seconde boucle un truc ressemblant a ceci:

Code :

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

Me.Controls.Add(cbx);

Solution plus simple : si tu as un nombre limite de combos(non dynamique) et il est nettement plus facile de creer une liste de combosbox et d'ajouter celle-ci dedans, puis de faire ton traitement.

[TWINOTTER]

j'ai 8 combox au total qui se remplissent tous avec la mm base de données et les memes données
c'est effectivement l'instruction qui me manquait. J'avais vu Load combobox mais ct du vb6 et ça ne marche pas avec .net et vs2010!!

merci j'essaye de suite

[TWINOTTER]

Bon ben merci ça y est, mes combobox s'affichent et se remplissent

La suite du pbm: comment creer un evenement SelectedIndexChanged dans combobox(i) avec i allant de 1a 8
je pensais a

Code :

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

1
2
3
4
for i = 1 to 8 
if cbx(i).selectedItemChanged then
terrain(i)= 1+i
end if

mais j'ai de gros gros doutes car l'evenement doit etre detecté avant de lancer la procedure. voila le code

creation de mes combobox

Code :

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

1
2
3
4
5
6
7
8
  'création des combobox cbx(i)
           for i = 1 to 8
 Dim cbx(i) As ComboBox
            cbx(i) = New ComboBox
            lstcombox.Add(cbx(i))
            cbx(i).SetBounds(x, y - 3, 121, 21)
Me.Controls.Add(cbx(i))
Next

ensuite, je me connecte a la base de données et je rempli chaque combobox cbx(i)

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
 For Each cbx In lstcombox
            cbx.Items.Clear()
        Next
 
        Try
            MyCommand.Connection = MyConnection
            MyCommand.CommandText = "SELECT * FROM Terrains ORDER BY nom ASC"
 
            MyreaderTerrains = MyCommand.ExecuteReader
 
            Do While MyreaderTerrains.Read
                For Each cbx In lstcombox
                    cbx.Items.Add(MyreaderTerrains.GetString(1))
                Next
            Loop

maintenant je peux selecter un terrain dans une cbx
ensuite il faudrait que je charge des données en fonction de ce qui est selectionné dans les cbx
voila ce que j'ai ecrit, mais la c'est quand j'ai 8 combobox independants et non indicés. (exemple pour le comcobox nommé Terrain1_txt)
Comment faire pour lever l'evenement cbx(i)_selctedIndexChange

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
Private Sub Terrain1_txt_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
        'création de terrain(i) et de la liste des terrains
 
        For i = 1 To 8
            Dim Terrain(i) As Terrain
            Terrain(i) = New Terrain
            lstTerrains.Add(Terrain(i))
 
            ChargerDonnees(Terrain(i), cbx(i).Text)             ' cbx(i).text premet de faire la requete pour la recuperation des données
            AffectationsTerrain(Terrain(i))                           'effectue des calculs en fonction des données recuperees
 
        Next
 
 
    End Sub

merci de votre aide

[TWINOTTER]

EUREKAAAAA
La nuit porte conseil
Bon c'est pas tout a fait ce que je voulais, mais ça marche aussi;
un BOUTON avec evenement click pour lancer les calculs