Discussion :

[angelevil]

Bonjour à tous et toutes !

J'ai une application que je fais pour un ami qui au départ fonctionnait dans Excel.

C'était une feuille Excel pour rentrer les heures de travail des employés avec la description de la tâche.

La feuille était pour une semaine au complet.

Genre...

7h00
1h00 travaillé entretient
8h00

8h00
3h30 travaillé formation
11h30

etc.....

cet affichage X 5 pour les cinq jours de la semaine.

Il veut un suivit informatique avec des rapports et tout le tralala...


J'ai fait l'interface et tout est ok.

J'ai dans une journée quatre combo box qui affichera les mêmes choix pour l'emploi (formation, entretient, etc.......). Je sais que c'est pas extra comme interface mais c'est la demande du client et les employés ne veulent pas de changement dans l'interface. DOnc je dois faire tout mon possible afin que le logiciel soit pareil à la feuille EXCEL.... grrrr !

Chaque jour de la semaine c'est un GroupBox qui contient les champs de saisie des heures de travail (début et fin), avec des label pour afficher le nombre d'heures travaillés et quatre combo box pour les choix de travails.

Quatre combo box par jour FOIS 5 donne 20 combo box à remplir. Je vois mal d'appeler 20 fois une procédure ou fonction pour remplir ces combo box...

Je me demandais s'il existe un moyen d'avoir tous les combo box qui sont dans un groupebox, prendre leur nom de controle, les passer en paramètres à une procédure pour remplir ces combo box (code avec BD Access déjà opérationel testé sur un combo box) en bouche for each genre ????

J'ai fouillé dans la FAQ et rien trouvé et après 10 pages dans le forum je n'ai rien trouvé. Je ne veux pas faire 20 fois un remplissage c'est impensable côté optimisation....

Merci de m'aider

AngelEvil!

[Chris@Xerox]

Bonjour angelevil,

S'il s'agit simplement de remplir tes ComboBox, tu peux faire ceci:

Code :

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

1
2
3
For i = 0 To LastComboRef
    Me.Controls("ComboBox" & i).Text = "Value"
Next

Il suffit que tes ComboBox soient référencés de manière croissante (ComboBox0, ComboBox1,..., ComboBoxLastRef).

[Pol63]

il faut éviter les conventions de nomages, surtout avec des variables en dur pour dire le nombre qu'il y a

ca donnerait donc plutot ceci :

Code :

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

1
2
3
for each c as control in legroupbox.controls
  if typeof c is combobox then RempliCombobox(directcast(c,combobox))
next

ou en linq, un truc dans le genre

Code :

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

1
2
dim comboboxes = (from c as control in legroupbox.controls where typeof c is combobox select directcast(c,combobox))
comboboxes.foreach(addressof RempliCombobox)

dans les 2 cas ca n'optimise pas le temps d'exécution par rapport à 20 appels explicites
ca réduit juste le nombre de lignes (donc plus rapide à coder et à relire)


après si ta procédure fait juste des .items.add avec des string définis tu peux aussi faire

Code :

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

1
2
3
4
5
6
7
8
 
dim listevaleurs as new list(of string)
listevaleurs.Add("valeur 1")
listevaleurs.Add("valeur 2")
 
for each c as combobox in legroupbox.controls.oftype(of combobox)
    c.items.addrange(listevaleurs.toarray)
next

voilà pour quelques syntaxes possibles avec le framework 3.5, avec le framework 4 on pourrait encore gagner une ligne avece une méthode anonyme

[angelevil]

Merci pour vos réponses.

Je vais regarder ca et si j'ai des questions je vous reviendrai.

bonne soirée !

[Pol63]

tu aurais aussi pu créer tes x combobox par code avec une boucle plutot que de les poser à la main

[angelevil]

Bonsoir,

J'ai essayé l'appel de fonction

Code :

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

1
2
3
4
 
for each c as control in legroupbox.controls
  if typeof c is combobox then RempliCombobox(directcast(c,combobox))
next

que j'ai modifié bien sur et ça fonctionne. J'ai 5 fois ce code qui me donner le résultat escompté.

Merci de m'avoir aidé!

AngelEvil