est-ce une "bonne idée" ? objets transparents et survol de souris

Le
Alfred WALLACE
bonjour,
j'aimerai faire apparaitre et disparaitre (eeeettt hop !) une
sorte de "panneau" dès que ma souris passe dans une zone
bien determinée de mon userform.

Comme on peut le voir lorsque on masque la barre des taches
de windows, et que celle ci apparait quand on déplace la souris
en bas de l'écran.


j'imagine un "objet" transparent en bas de mon userform
avec une certaine hauteur (pour que celà soit facile).

il me semble avoir lu ( merci JB) une proc style :

Private Sub Image1_MouseMove(xxxxxxxxx

j'aimerai donc, dès que ma souris arrive sur cette zone transparente
faire apparaitre une frame avec des boutons qui afficherait des menus
permettant de faire d'autres choix dans l'application.

voila, je ne sais pas si c'est possible.

Merci pour vos remarques et commentaires.
José
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Silve Hervé
Le #17969941
Bonsoir,

Un petit bricolage avec un Frame qui contient les boutons et un Image pour
l'apparition/disparition :
Mettre un contrôle "Frame" avec ses boutons sur la Form et paramétrer ces
derniers (position, dimensions, etc...) puis mettre un contrôle "Image" sur
la Form au dessus du cadre sensiblement aux même dimensions que ce dernier
(pour avoir accès aux boutons et cadre, clic droit et "Premier plan",
"Arrière-plan")
- La propriété "Visible" du Frame sur False.
- La propriété "BackStyle" de l'Image sur transparent et la propriété
BorderStyle sur None.
A mettre dans le module de ta Form et tester :

Private Sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Frame1.Visible = True
Image1.ZOrder (1)
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Frame1.Visible = False
Image1.ZOrder (0)
End Sub

Hervé.


"Alfred WALLACE"
bonjour,
j'aimerai faire apparaitre et disparaitre (eeeettt hop !) une
sorte de "panneau" dès que ma souris passe dans une zone
bien determinée de mon userform.

Comme on peut le voir lorsque on masque la barre des taches
de windows, et que celle ci apparait quand on déplace la souris
en bas de l'écran.


j'imagine un "objet" transparent en bas de mon userform
avec une certaine hauteur (pour que celà soit facile).

il me semble avoir lu ( merci JB) une proc style :

Private Sub Image1_MouseMove(xxxxxxxxx

j'aimerai donc, dès que ma souris arrive sur cette zone transparente
faire apparaitre une frame avec des boutons qui afficherait des menus
permettant de faire d'autres choix dans l'application.

voila, je ne sais pas si c'est possible.

Merci pour vos remarques et commentaires.
José
Publicité
Poster une réponse
Anonyme