Un beau menu déroulant graphique style internet

Télécharger le projet
Commenter

Description

Quand on passe la souris au-dessus d'un bouton, un menu se déroule comme sur internet !!
L'image titre c'est Image2
L'image qui se déroule c'est Image3
et le reste c'est de la déco

Source / Exemple : 


Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Si on passe au dessus de l'image aide le timer se met en route

If 0 < X < 1260 Then
    
    Timer1.Enabled = True
    
Else
    Timer1.Enabled = False
End If

End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Traitement lorsque l'on clique sur l'image déroulée
If Button = 1 Then
 
   
   If Y > 0 And Y < 285 Then
        MsgBox "Aide User"
       ElseIf Y > 345 And Y < 645 Then
        MsgBox "Aide Technique"
           
       ElseIf Y > 660 And Y < 870 Then
           MsgBox "A propos"
   End If
    
End If

End Sub

Private Sub Form_Load()
Image3.Height = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Height = 0
End Sub

Private Sub Image4_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
'On déroule par pas de 100
Image3.Height = Image3.Height + 100
If Image3.Height > 870 Then
    'On arrive à la taille de l'image donc on arrète de dérouler
    Timer1.Enabled = False
End If

End Sub

Conclusion :


C'est juste pour montrer le fonctionnement donc ce n'est pas tout à fait au point.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Belt)