Discussion :

[Triwis]

Bonjour,
je voudrais réduire mon code au minimum et j'ai besoin de conseils. Le probleme est que je possede plusieurs images et que chaque images est appeler à être afficher dans un picturebox suite à une selection au hasard. Le tout ce fait par l'intermédiare d'un très très long Select Case. Comment faire pour réduire ce Select case?

[AP]

Poste-nous un extrait significatif de ton code, sans cela il est assez dur de savoir ce que tu fais.

[Pol63]

+1

sinon la solution sera surement de travailler avec les nom des objets et des images, s'ils concordent il est parfois possible en une ligne de faire le travail d'un select case

[Triwis]

Voici à quoi ressemble mon code. Ce que je veux réduire c'est le Select Case. (Il n'y a qu'une petite partie du code car sinon ce serait trop long).

Pour pécision: "case" sont les picturebox qui doivent recevoir des images et "image" sont des picturebox qui contiennent des images. "Y" a pris une valeur de 1 dans Form_Load

Code :

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

1
2
3
4
5
6
7
8
9
10
Randomize
x = Int(Rnd * 52) +1
 
Select Case y
     Case 1
          Select Case x
               Case 1
                    case1.image = image1.image
               Case 2
                     case1.image = image2.image

Bref, pour vous donner une idée de la longeur du code, il y a 52 Case x et 10 Case y. Donc, je cherche un moyen de réduire ce code.

[Pol63]

utilise des collections
enfin tes objets sont deja dans une collec remarque, celle de ta feuille
enfin si tu pouvais les mettre dans des groupbox ca serait encore plus simple

un groupbox par type de picturebox

puis

for i = 1 to nb_picturebox

for each obj as picturebox in groupbox1.controls
obj.image = groupbox2.controls(i)
next

next


enfin faut voir exactement ce que tu veux faire ...
une chose est sûre il ne faut pas faier ce que tu as fait, il y a plein de méthodes pour éviter ca

[Triwis]

ok, je vais essayer ça. Mais juste par curiosité, aurait-il un autre moyen de faire?

[Pol63]

oui faire un tableau de picturebox
dim image(30) as picturebox
et ensuite image(12).image = ...

par contre ca necessite de créer tes picturebox par code plutot que de les poser m'enfin ca prends 10 lignes ...

[Triwis]

ok, merci beaucoup