Un beau menu déroulant graphique style internet

Soyez le premier à donner votre avis sur cette source.

Vue 12 541 fois - Téléchargée 1 473 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

debian_linux
Messages postés
6
Date d'inscription
samedi 29 octobre 2005
Statut
Membre
Dernière intervention
19 mai 2006
-
Salut belt ma parole j'adoore ce menu ca rend vraiment bien !!! Peut etre tu pourrai m'aider je voudrais rajouter des rubrique mais je ne comprend pas ton code si tu pourrai m'aider un peu ce serrai sympas !!
jcconi
Messages postés
72
Date d'inscription
mardi 1 juillet 2003
Statut
Membre
Dernière intervention
8 mars 2004
-
Salut!! J'aime bien ton menu derroulant et j'aimerai bien l'utiliser dans mon profet acces 2000. d'ailleur si tu pouvais m'aider a l'integrer ds mon projet ce serrai sympa car je comprend rien a ton code!!

Merci!!!!
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1 -
manger tant de ressources systeme !
cs_steven007
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007
-
meme avis que psycho
cs_psycho
Messages postés
232
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
27 octobre 2007
-
c sympa effectivement, mais peut etre qu une meilleure gestion des mouse move rendrait ton code encore mieux. sinon, c bien, bon boulot et continu comme ca..

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.