[VB6] Groupe de Label

Question

Bonjour

J'ai cr&#233;e un groupe de label lorsque je clique dessus le premier Case 0 fontionne mais les autres ne fonctionne pas pourquoi ? je vous met un bout de code ci dessous

Private Sub L01_Click(Index As Integer)


Select Case Index
  Case 0
LitDepartement 1
Label1.Caption = "D&#233;partement de l'Ain"
Image2.Picture = LoadPicture(App.path & "\Image\Ain" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d01" & ".gif")
Form2.Show
Form2.Picture1 = LoadPicture(App.path & "\Image\environs de Lyon1" & ".jpg")
Form2.Caption = "environs de Lyon"
  Case 1
LitDepartement 2
Label1.Caption = "D&#233;partement de l'Aisne"
Image2.Picture = LoadPicture(App.path & "\Image\Aisne" & ".jpg")
Image1.Picture = LoadPicture(App.path & "\Image\si_d02" & ".gif")
  Case 2
End Select
End Sub

Clad49 · Answer

Salut !
j'ai fait un teste avec ca :

Private Sub Label1_Click(Index As Integer)
Select Case UCase(Index)
Case "0"
Text1 = "1"
Case "1"
Text1 = "2"
Case "2"
Text1 = "3"
End Select
End Sub

Et ca fonctionne tr&#233; bien !
je ne voi pas ou est le pb !
Clad

cs_patoch · Answer

J'essaye 

   Merci Clad

cs_patoch · Answer

je viens de reessayer et le deuxieme Label ne fonctionne pas je precise que ces label sont dans une frame et une image,j'ai mis le premier label en premier plan , mais le deuxieme n'as pas l'air de si mettre aussi apparament il reste en dessous

Clad49 · Answer

Pour le labal, fait un clique droi sur le label et clique mettre o premier plan, si tu ny arrive pas envoi ton code 
clad49@free.fr
je v&#233;r&#233; si je peut t'aid&#233; ;)

Clad

fiko81 · Answer

Est-ce que tes labels sont superposés ? Fiko ;-) Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

cs_patoch · Answer

Non Fiko81 mes Labels ne sont pas supperpos&#233;s et j'ai bo mettre le label(01) en premier Plan il n'apparait pas et le clic ne fait rien,mais normalement dans un groupe de controle si le premier est en premier plan le sautres devraient y etre aussi non!!!

Clad49 · Answer

Je ne sais pas si tu a vue mon mail mais envoi moi l'int&#233;gralit&#233; de ton code pour que je puisse voir les controles etc... que je puisse faire des test . Zip le tt en renvoi ;)

Clad

cs_patoch · Answer

c'est fait Clad

cs_patoch · Answer

Ca y est ca fonctionne apparament il faut que je cr&#233;e mon groupe de label manuellement et non avec des copier / coller 
Merci a vous de votre aide

Clad49 · Answer

le probl&#233;me ven&#233; pet&#233;tre de tes index de tes label j'y ai pas penc&#233; ;)
Heureusement que tu a trouv&#233; car le sencond mail que tu a envoyer &#233;t&#233; vide :)
Bon courage

Clad

[VB6] Groupe de Label

10 réponses

Discussions similaires