Discussion :

[patoch76]

Bonjour

Voila une partie de code en example :
Je voudrais a partir d'une liste de nom de ville dans un ListBox, apeler un des Label ci dessous ,example : Mont de Marsan = L40
Blois = L41

Je precise que j'ai plus de cent Label

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
Private Sub L40_Click()
LitDepartement 40
Label1.Caption = "Département des Landes"
Dim path
path = App.path
If Right$(path, 1) <> "\" Then path = path & "\"
Image2.Picture = LoadPicture(App.path & "\Image\Landes" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d40" & ".gif")
End Sub
 
Private Sub L41_Click()
LitDepartement 41
Label1.Caption = "Département du Loir-et-Cher "
Dim path
path = App.path
If Right$(path, 1) <> "\" Then path = path & "\"
Image2.Picture = LoadPicture(App.path & "\Image\Loir-et-Cher" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d41" & ".gif")
End Sub

Merci pour la reponse

[jacma]

Bonjour

Ta liste des villes, tu l'obtiens comments? Table base de données?

[patoch76]

Je vais la mettre dans ma ListBox

[jacma]

Je vais la mettre dans ma ListBox

Je, et pour tout dire ile me semble "nous', ne vois pas vraiment ce que tu veux obtenir et à partir de quoi. Il ne me semble pas que tu ais vraiment réfléchi au problème.

Tu semble entrer manuellement tes villes dans ta liste, je suppose donc avec la propriété List? As-tu réfléchis au nombre de villes? Et comment tu va mettre à jour ta liste? et autres joyeusetées...

As-tu la possibilité d'utiliser une base de données et le voudrais-tu?

[jmfmarques]

Dim path
path = App.path
If Right$(path, 1) <> "\" Then path = path & "\"
Image2.Picture = LoadPicture(App.path & "\Image\Loir-et-Cher" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d41" & ".gif")

1) Avant toute autre chose, je m'interroge sur les raisons pour lesquelles tu demandes des conseils si tu ne les lis pas !
J'ai déjà (un autre sujet) eu l'occasion de te dire qu'il était incompréhensible de définir Path, comme tu le fais à nouveau ici, sans t'en servir finalement !
2) reformule ta question, après avoir corrigé cette partie de ton code, avec plus de précision et en nous disant clairement ce que sont L40 et L41 (quels types de contrôles). Car il semble (en tout cas je l'espère, que ce se sont pas les listes !
Nous ne savons même pas, en fin de compte, si une liste existe déjà et quel est son nom !
Je ne crois donc pas que tu auras une réponse tant que de telles précisions, destinées principalement à y voir suffisamment clair dès le début et éviter ainsi d'avancer à tatons, sur des pages et des pages inutilement
A bientôt donc, mais à ces conditions élémentaires, s'il te plait
Apprends à exposer l'état actuel des lieux et, au besoin, à exprimer l'état que tu voudrais atteindre au lieu, comme tu le fais là, d'enoncer des choses dont on ne voit pas trop si elles sont un fait ou une expression de souhait (et même ainsi, ...)

[SfJ5Rpw8]

Plutôt que faire cent procédure (Sub)... ne pourrai-tu pas n'en faire qu'une.. ? tu récupére le Libellé dans un tableau .. ou par la fonciton LitDépartement... dans ton fameux fichier... ?

[patoch76]

Voila mon code est corrigé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub L40_Click()
LitDepartement 40
Label1.Caption = "Département des Landes"
Image2.Picture = LoadPicture(App.path & "\Image\Landes" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d40" & ".gif")
End Sub
 
Private Sub L41_Click()
LitDepartement 41
Label1.Caption = "Département du Loir-et-Cher "
Image2.Picture = LoadPicture(App.path & "\Image\Loir-et-Cher" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d41" & ".gif")
End Sub

Bon pou reprendre ma question je voudrais a partir d' un LisBox que je vais appeler list1 d'ou je vais y rentrer des noms de ville et de la je voudrais avoir acces a mes Label qui sont plus Haut Private Sub L40_Click /Private Sub L41_Click etc etc .example si je clique sur le mot BLOIS dans le Lisbox je voudrais acceder a Private Sub L40_Click pour visionner mon image qui se nomme Landes.
Je peut pas faire plus clair je crois ?

[patoch76]

Merci BBILL mais je ne suis pas un pro j'arrive a pas mal de truc mais je ne connait pas encore toute les ficelles de la programation.Je suis ouvert a tout .
Toute aide est bienvenu

[jmfmarques]

Voilà qui se précise ! Tu n'as pas encore fait ta listbox (je m'en doutais un peu).
Alors : commence par la faire et la remplir (de noms de villes, si je comprends bien)
Mais il va te falloir penser à un mécanisme d'association de la ville à un Département. Qu'as-tu prévu pour celà ?
Il y a certainement mieux que des quantités de labels, non ?
Interesse-toi un peu à la façon dont tu pourrais au moins utiliser une liste à 2 colonnes, ou 2 listes, ou une liste et un tableau dynamique, entre autres
... et reviens nous exposer la stratégie que tu auras arrêtée, sans avoir besoin de passer par un label intermédiaire !

[patoch76]

Reponse a Jacma

Je voulais eviter la bese de données mais vu le nombre de ville par département je crois que cela s'impose ?Si y as pas moyen d'eviter .

[jacma]

Reponse a Jacma

Je voulais eviter la bese de données mais vu le nombre de ville par département je crois que cela s'impose ?Si y as pas moyen d'eviter .

Je pense que c'est le mieux . Et comme le dit jmf, penses que pour un département, tu as x villes... et beaucoup d'exemples.

Celà illustre parfaitement qu'avant de se lancer à alligner quelques lignes de codes, il faut OBLIGATOIREMENT passer par une phase d'analyse, si minime soit-elle.