Tout est dans le zip.
Source / Exemple :
' Fait par Olivier KASPAR
Private Sub Form_Click()
Picture1.Visible = False
Picture2.Visible = False
End Sub
Private Sub Label1_Click()
If Picture1.Visible = True Then Picture1.Visible = False Else Picture1.Visible = True
End Sub
Private Sub Label2_Click(Index As Integer)
If Index = 2 Then Picture2.Visible = True
End Sub
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Index > -1 And Index < 10 Then
Shape1.Visible = True
Shape1.Top = Label2(Index).Top
Else
Shape2.Visible = True
Shape2.Top = Label2(Index).Top
End If
If Index <> 2 And Index < 9 Then Picture2.Visible = False
If Index = 2 Then Picture2.Visible = True
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.