Help me :) urgent svp :)

Messages postés
9
Date d'inscription
mardi 10 septembre 2002
Statut
Membre
Dernière intervention
31 janvier 2003
-
Messages postés
55
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
20 décembre 2005
-
Voila, mon probleme est le suivant, je voudrais à l aide d'une liste box afficher telle ou telle image, (suivant le choix dans la liste) et pour cela, j utilise un select case. Mais comme j'ai 2 liste box (meme contenu) j'ai utilisé un index pour les distingué et j ai mixer cet index dans le select case, voila le code que j'ai mis:

Private Sub cmxpays_Click(Index As Integer)

Select Case cmxpays(Index).Text
Case cmxpays(Index).Text
  GranFlagJ(Index) = "Flags" & cmxpays(Index).Text & ".gif"

End Select

GranFlagJ(Index) = App.Path & "" & GranFlagJ(Index)
frmChoix_joueur.imgFlagJ(Index).Picture = LoadPicture(GranFlagJ(Index))

End Sub


'cmxpays c'est le nom des 2 listes (avec un index 0et 1
'GranFlagJ c'est la var qui contien le chemin de destination de l'image

mais ca ne marche pas, il me met une erreur en me disant "Procedure Sub ou fonction non definie".... j ai tout controlé, les nom etc mais ce n'est pas ca, je pense plutot que le probleme vien de ce qu'il y a a l interieur de la procédure...

Merci d'avance si qqun peu m aider!! :)

3 réponses

Messages postés
55
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
20 décembre 2005

Le plus simple c'est de donner 2 noms différents pour les listbox, et de faire deux select case !
Messages postés
9
Date d'inscription
mardi 10 septembre 2002
Statut
Membre
Dernière intervention
31 janvier 2003

non, il faut vraiment k j utilise k'1 case...
Messages postés
55
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
20 décembre 2005

Pédale de têteux de merde !!!