est-ce une "bonne idée" ? objets transparents et survol de souris
1 réponse
Alfred WALLACE
bonjour,
j'aimerai faire apparaitre et disparaitre (eeeettt hop !) une
sorte de "panneau" d=E8s que ma souris passe dans une zone
bien determin=E9e 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=E9place la souris
en bas de l'=E9cran.
j'imagine un "objet" transparent en bas de mon userform
avec une certaine hauteur (pour que cel=E0 soit facile).
il me semble avoir lu ( merci JB) une proc style :
Private Sub Image1_MouseMove(xxxxxxxxx
j'aimerai donc, d=E8s 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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Silve Hervé
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" a écrit dans le message de news:
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é
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" <jose6a@gmail.com> a écrit dans le message de news:
5d4363cc-ff81-4bb8-8c00-258f13a9933c@z1g2000yqn.googlegroups.com...
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.
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" a écrit dans le message de news:
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.
