[R] TrayCreateItem coché

[Vins83]

Bonjour à tous.
On sait que si sur une checkbox est coché sa donne:
If BitAND(GUICtrlRead($ma_checkbox), $GUI_CHECKED) then
l'action se passe......
endif

Mais j'ai voullu tester avec une TrayCreateItem:

$ma_traycreateitem = TrayCreateItem("Anglais", -1, -1, 1)

If BitAND(GUICtrlRead($ma_traycreateitem),$TRAY_CHECKED) Then
ben là sa bug,rien ne se passe...
endif

Quelqu'un a t'il une idée?

Merci beaucoup

[L4crymal]

Est ce que les CREATEITEM son considéré comme des CTRL ???
Si non alors le GUICtrlRead ne sert à rien, je peut me tromper naturellement mais je pense que c'est juste le GUICtrlRead qui faut remplacer par une autre détection.

[Vins83]

Effectivement,celà ne fonctionne pas avec un GUICtrlRead alors,je test sans succé pour le moment.

++ Vins

[Vins83]

C'est bon,j'ai trouver la solution:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Constants.au3>

Opt("TrayMenuMode", 1)
$choix_langues = TrayCreateMenu("Langues")
$langues_anglais = TrayCreateItem("Anglais", $choix_langues)
$langues_francais = TrayCreateItem("Français", $choix_langues)
TrayItemSetState($langues_francais, $TRAY_CHECKED)
TrayCreateItem("")
$exititem = TrayCreateItem("Quitter")

Func langues()
    If BitAND(TrayItemGetState($langues_anglais), $TRAY_CHECKED) Then
        $texte1 = "Anglais"
    EndIf
    If BitAND(TrayItemGetState($langues_francais), $TRAY_CHECKED) Then
        $texte1 = "Français"
    EndIf
    GUICtrlCreateLabel($texte1, 20, 20)
EndFunc   ;==>langues

GUICreate("My GUI")

GUISetState(@SW_SHOW)

AdlibEnable("langues", 0)

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $langues_anglais
            TrayItemSetState($langues_francais, $TRAY_UNCHECKED)
            TrayItemSetState($langues_anglais, $TRAY_CHECKED)
        Case $msg = $langues_francais
            TrayItemSetState($langues_anglais, $TRAY_UNCHECKED)
            TrayItemSetState($langues_francais, $TRAY_CHECKED)
        Case $msg = $exititem
            ExitLoop
    EndSelect

WEnd

Merci beaucoup

[L4crymal]

Tout est bien qui fini bien