Bonjour
J'ai cré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é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é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