[..] GUI - menu tout simple

[OmegAMRS]

Bonjour,

j'aimerais faire un menu classique au possible, style "Menu" , avec 2 choix "se déconnecter" et "quitter"...
niveau GUI c'est fait, mais j'dois être un peu tagos , j'trouve pas comment affecter l'exécution d'une fonction à un item de mon menu ...


help please

OmegA

[guitarist]

Voilà une reponse pour toi :

Code : Tout sélectionner

$msg = GUIGetMsg ()

If $msg = $menuquitter Then
    Exit
EndIf

If $msg = $menusedeconnecter Then
    
    ;ton action se deco.
EndIf   
   

[pop45]

Regarde dans la section coda tu devrait trouver un $button1 et $button2

si 1 c'est pour Quitter et 2 pour se déconnecter et bien
tu rajoute sa apres case $GUI_EVENT_CLOSE

Code : Tout sélectionner

case $Button1
Msgbox ("quitter" , "Vous avez cliquer sur quitter"
case $Button2 
msgbox ("se deconnecter" , "Vous avez cliquer sur se déconnecter
 

Voila j'espère aider

[OmegAMRS]

merci , mais ça ne marche toujours pas pour moi :s

voici mon code :

► Afficher le texte

Code : Tout sélectionner

$idMainMenu = GUICtrlCreateMenu("Menu")
$seDeconnecterMenuItem = GUICtrlCreateMenuItem("Se déconnecter",$idMainMenu)
$quitterMenuItem = GUICtrlCreateMenuItem("Quitter",$idMainMenu)

While 1
    $msg = GUIGetMsg()
    if $msg = $quitterMenuItem then mySoftClose()
    Sleep(100)
WEnd
 

[Tlem]

Savez-vous qu'il y à une aide dans AutoIt ?
Avez-vous regardé l'aide de la commande GUICtrlCreateMenuItem() ?
Ne croyez-vous pas que l'exemple fournit dans l'aide est amplement suffisant ?

[OmegAMRS]

exemple de l'aide :

Code : Tout sélectionner

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)

While 1
        $msg = GUIGetMsg()
        
        If $msg = $fileitem Then
            $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
            If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
        EndIf
...
Wend

quelle est la différence avec mon code ????????
aucune, donc où est l'erreur ???

merci, j'ai regardé l'aide ...si vous regardez mes posts sur d'autres topic, vous verrez que c'est la première chose que je répond généralement sur ce type de questions ..

[Tlem]

Ha ! Effectivement il y à un problème.
Je vous conseil donc de mettre à jour votre version de AutoIt, vous verrez que les exemples sont nettement plus riche.

[OmegAMRS]

j'ai installé AutoIt et Scite il y a moins d'un mois !

pensez vous que j'ai une version à mettre à jour ?

[Tlem]

Sûrement, car chez moi, l'aide de la commande GUICtrlCreateMenu() me donne comme exemple :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $defaultstatus = "Ready", $status, $filemenu, $fileitem
    Local $helpmenu, $saveitem, $infoitem, $exititem, $recentfilesmenu
    Local $separator1, $viewmenu, $viewstatusitem, $okbutton, $cancelbutton
    Local $statuslabel, $msg, $file
    
    GUICreate("My GUI menu", 300, 200)


    $filemenu = GUICtrlCreateMenu("&File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    $saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

    $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2)   ; create a separator line

    $viewmenu = GUICtrlCreateMenu("View", -1, 1)    ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $okbutton = GUICtrlCreateButton("OK", 50, 130, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    $cancelbutton = GUICtrlCreateButton("Cancel", 180, 130, 70, 20)

    $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

    GUISetState()
    While 1
        $msg = GUIGetMsg()
        
        If $msg = $fileitem Then
            $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
            If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
        EndIf
        If $msg = $viewstatusitem Then
            If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                GUICtrlSetState($statuslabel, $GUI_HIDE)
            Else
                GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                GUICtrlSetState($statuslabel, $GUI_SHOW)
            EndIf
        EndIf
        If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
        If $msg = $infoitem Then MsgBox(0, "Info", "Only a test...")
    WEnd
    GUIDelete()
EndFunc   ;==>Example

Ce qui est nettement plus complet que ce que vous donnez !!!

[OmegAMRS]

d'accord c'est plus complet, mais intrèsequement, est-ce différent ? vous voyez un erreur dans mon code ?

merci en tout cas de vous pencher sur mon "cas"

[Tlem]

Et bien tout simplement vous utilisez une fonction GUICtrlxxxx pour créer un contrôle, mais vous n'avez pas de GUI, donc cela ne peut pas fonctionner.

[guitarist]

Voilà une reponse :

► Afficher le texte

Code : Tout sélectionner

GUICreate ("ex",100,100)
$idMainMenu = GUICtrlCreateMenu("Menu")
$seDeconnecterMenuItem = GUICtrlCreateMenuItem("Se déconnecter",$idMainMenu)
$quitterMenuItem = GUICtrlCreateMenuItem("Quitter",$idMainMenu)
GUISetState (@sw_show)

While 1
    $msg = GUIGetMsg()
   ; if $msg = $quitterMenuItem then mySoftClose()
   ; Sleep(100)
;EndIf ;  <=====tu l'avai oublier TRES IMPORTANT

If $msg = $seDeconnecterMenuItem Then
    ;FONCTION Se DECONECTER 
EndIf   
If $msg = $quitterMenuItem Then
    Exit
EndIf   
WEnd
 

ATTENTION TU AVAIS OUBLIER LES ENDIF C'EST TRES TRES GRAVE

[Tlem]

@guitarist
Il est très sympa de votre part de répondre à la question de OmegAMRS, mais uniquement si c'est pour dire quelque chose de vrai. En l'occurrence, vous n'y êtes pas du tout.

Un If peut avoir deux formes :

Code : Tout sélectionner

If $Var = 1 Then $Condition = True

ou

Code : Tout sélectionner

If $Var = 1 Then
  $Condition = 1
  MsgBox(32,"Hello", "Hello World")
EndIf

Mais ceci est faux :

Code : Tout sélectionner

If $Var = 1 Then $Condition = 1
  MsgBox(32,"Hello", "Hello World")
EndIf

[guitarist]

Alors toutes mes escuses Mais j'espere que mon script est bin au moins

[sylvanie]

Qu'est ce qui ne marche pas au juste ?
- pas d'action déclenchée
-pas d'affichage du menu
- de la gui ?

ça aiderait à cibler.

[OmegAMRS]

merci pour vos réponses à tous

en effet, il n'y a pas de GUI créé dans le bout de code que je vous ai fourni, mais il existe bel et bien dans mon programme, je vous rassure.
ce programme fait pour l'instant environ 500 lignes de code, aussi ais-je mis ici simplement celles qui me posaient problème.

le problème est le suivant : pas d'action déclenchées quand je clique sur les éléments de mon menu...

d'autres part, je voulais savoir si vous voyez un moyen de personnaliser le menu, à savoir la taille du bouton initial, son emplacement par rapport au GUI, etc ... pour l'instant, je me penche sur le moyen de faire moi-même mon menu à la mano, mais bon je pressent que ça va être galère, et qu'au final ça sera une bidouille sans nom :/

merci à vous !

bonne journée

OmegA

[Tlem]

Personnellement, je vous recommande vivement l'installation de Scite4AutoIt si ce n'est pas déjà fait (lien ici).

Ensuite allez dans le dossier C:\Program Files\AutoIt3\SciTE\Koda puis lancez le programme FD.exe.
Regardez dans la section supérieure, vous trouverez dans l'onglet Standard le deuxième icône qui vous permettra de construire le menu qu'il vous faut trés facilement.
Cet outil comme vous le verrez fonctionne aussi pour tout les éléments graphique ...

Que du bonheur.

[sylvanie]

si la gui apparaît, c'est donc pas le guisetstate() qui manque (un grand classique ^^)

sinon, est que le mode évènementiel ( Opt("GUIOnEventMode", 1) ) est cumulé avec
GUIGetMsg(), car les deux ne marchent pas ensemble.

autre piste, est qu'il y a une succession de boucles while du type :

Code : Tout sélectionner

while gérant la gui
  ...
  appel à toto()

wend

func toto()
   while ...
         et on est coincé ici 
   wend
endfunc

[OmegAMRS]

sinon, est que le mode évènementiel ( Opt("GUIOnEventMode", 1) ) est cumulé avec
GUIGetMsg(), car les deux ne marchent pas ensemble.

aaaah ca je savais pas, en effet, mon problème doit venir de là.

je vérifie ça et je vous tiens au courant, merci !!

@Tlem : oui, j'utilise déjà Scite et Koda, mais le menu créé par koda s'affiche invariablement en haut à gauche du GUI, comme tout menu "classique" qui se respecte ...

[OmegAMRS]

j'ai laissé tomber l'idée du menu, n'arrivant pas a le placer en haut a DROITE de ma fenêtre

du coup j'ai remplacé par une sorte de mini barre d'outils, des boutons quoi ...
si quelqu'un a une soluce, je prend quand même

j'aime pas m'avouer vaincu et faire une bidouille pour arriver au but recherché :p