[R] Menu avec sous menus sur un bouton ?

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

[R] Menu avec sous menus sur un bouton ?

#1

Message par ericire »

Bonjour
est-il possible de créer un menu avec sous menus sur un bouton ?
(pas un contextuel menu)
Modifié en dernier par ericire le ven. 22 avr. 2016 22:49, modifié 1 fois.
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: menu avec sous menus sur un bouton ?

#2

Message par mikell »

Difficile de répondre sans infos sur le but de la chose
A priori un bouton n'est pas fait pour ça
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

Re: menu avec sous menus sur un bouton ?

#3

Message par ericire »

disons que je veux imiter un menu avec plusieurs item actions mais dans le corps de la fenêtre avec un look bouton
ou à la façon d'un combo à liste mais sans la flèche à droite
sur un bouton j'arrive à simuler un clic droit et faire apparaitre un menu contextuel avec des items, mais je n'arrive pas à intercepter les items
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: menu avec sous menus sur un bouton ?

#4

Message par mikell »

Si un menu contextuel peut faire l'affaire l'exemple du fichier d'aide pour GUICtrlCreateContextMenu correspond parfaitement
Le voilà, légèrement modifié pour mettre 2 sous-menuitems

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
    GUICreate("My GUI Context Menu", 300, 200)

    Local $idButton = GUICtrlCreateButton("OK", 100, 100, 70, 20)
    Local $idButtoncontext = GUICtrlCreateContextMenu($idButton)
    Local $idMenuAbout = GUICtrlCreateMenu("About button", $idButtoncontext)
    Local $idMenu1 = GUICtrlCreateMenuItem("1", $idMenuAbout)
    GUICtrlCreateMenuItem("", $idMenuAbout) ; separator
    Local $idMenu2 = GUICtrlCreateMenuItem("2", $idMenuAbout)

    GUISetState(@SW_SHOW)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idButton
                MsgBox($MB_SYSTEMMODAL, "Button Clicked", 'OK')
            Case $idMenuAbout
                MsgBox($MB_SYSTEMMODAL, "Menu Selected", 'About')
            Case $idMenu1
                MsgBox($MB_SYSTEMMODAL, "Menu Selected", 'about 1')
            Case $idMenu2
                MsgBox($MB_SYSTEMMODAL, "Menu Selected", 'about 2')
        EndSwitch
    WEnd
EndFunc   ;==>Example
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

Re: menu avec sous menus sur un bouton ?

#5

Message par ericire »

bon j'ai rajouté un

Code : Tout sélectionner

ControlClick ( "", "", $idButton, "right")
et ça fonctionne....presque
car l'action déclenchée par le second item du contextmenu est d'ouvrir l'explorateur sur un dossier précis et fermer la fenêtre gui crée par autoit,
et je n'arrive pas à fermer le gui avec exit après l'appel au FileOpenDialog().
ericire
Niveau 2
Niveau 2
Messages : 25
Enregistré le : lun. 12 nov. 2012 15:12
Status : Hors ligne

Re: menu avec sous menus sur un bouton ?

#6

Message par ericire »

c'est bon j'ai fait un GUISetState ( @SW_HIDE ) avant d'ouvrir l'explorateur
merci
Répondre