[R] Do Do Switch ça peux s'entendre ?

[Arkenix]

Bonjour à tous.

Je suis entrain de développer un menu bouton dynamique.
J'arrive a créer donc mes jolie boutons grâce à plusieurs Arrays etc.

Bref le souci n'es pas là.
Je me retrouve dans la parti du "Switch", ou je souhaite donc réaliser un iniWrite, en fonction du bouton pressé.

Je crois que je suis parti un peu trop loin, et je me suis mis à faire des Do dans des Do avec du switch/select (je ne comprend pas tellement la différence).

Voici donc mon "bidouillage" pour cette parti :

Code : Tout sélectionner

Do
   $Slot = 0
   Do
      Switch GUIGetMsg()
         Case $SlotArray[$Slot]
         MsgBox(0,"","click")
         IniWrite(".\Save\Var.ini","Variables",$PCSArrayMenu[1],$Slot)
         $ExitLoop = 1
      EndSwitch
      $Slot +=1
   Until $Slot = $PCSMenuCount-3
Until $ExitLoop = 1

Seul souci c'est que ça ne réagit pas du tout.

Je pense que je me suis complètement paumé dans mon code, une petite aide ?
(un regard neuf est parfois plus efficace )


Merci pour vos aides chères amis !

[mikell]

Rien compris à ce que tu essaies de faire

[Arkenix]

^^ il n'y a pas que toi j'ai l'impression

Bon en clair j' essais d'effectuer une action lors ce qu'ont clic sur un bouton.
Sauf que celui ci est dynamique, et il est déclaré dans un Array.

Code : Tout sélectionner

For $m = 2 To $PCSMenuCount-1 step 1
$MenuSlot += 25
$SlotArray[$Slot] = GUICtrlCreateButton($PCSArrayMenu[$m],0,$HUDPosY+$MenuSlot,@DesktopWidth,25)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
$Slot += 1
Next

Ainsi je ne sais pas comment faire un switch / endswitch, avec des "case Array[nombre]"

1 - J'ai donc fait Do principal, qui attend que $ExitLoop soit à 1.
2 - A l'intérieur de se Do, il y a donc un autre Do, qui lui à mon fameux "Case Array[Chiffre]", lui même dans un switch.
Ce Do quand à lui attend que l'Array soit fini, et on recommence l'action a zero.


En clair, J'ai des boutons qui ont pour déclaration un Array.
J'aimerais donc vérifier si on clic sur tel ou tel bouton.

► Afficher le texteFunc complet

Code : Tout sélectionner

Func PCS_menu($PCSArrayMenu) ;PCSArrayMenu = [/menu ; #Var ; Bouton1 ; Bouton2 etc]
$PCSMenuCount = UBound($PCSArrayMenu)
Local $SlotArray[$PCSMenuCount-2]
Local $Slot = 0
Local $MenuSlot = 0
Local $ExitLoop = 0
GUICtrlSetData($PCSMainLabel,"")
For $m = 2 To $PCSMenuCount-1 step 1
$MenuSlot += 25
$SlotArray[$Slot] = GUICtrlCreateButton($PCSArrayMenu[$m],0,$HUDPosY+$MenuSlot,@DesktopWidth,25)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xffffff)
$Slot += 1
Next

Do
   $Slot = 0
   Do
      Switch GUIGetMsg()
         Case $SlotArray[$Slot]
         MsgBox(0,"","click")
         IniWrite(".\Save\Var.ini","Variables",$PCSArrayMenu[1],$Slot)
         $ExitLoop = 1
      EndSwitch
      $Slot +=1
   Until $Slot = $PCSMenuCount-3
Until $ExitLoop = 1

$Slot = 0
For $m = 2 To $PCSMenuCount-1 step 1
GUICtrlDelete($SlotArray[$Slot])
$Slot += 1
Next
EndFunc

[mikell]

Hum

► Afficher le texte

Code : Tout sélectionner

$msg = GuiGetMsg

For $slot = 0 to $PCSMenuCount-3
    Switch $msg
        Case $SlotArray[$slot] 
              MsgBox(0,"","click")
              ; ....
    EndSwitch
Next

Mais pour ce que tu veux faire ça serait mieux en OnEvent

► Afficher le texte

Code : Tout sélectionner

GUICtrlSetOnEvent(-1, "_BtnClicked")    ; à mettre sur tous les boutons créés

Func _BtnClicked()
 For $slot = 0 to $PCSMenuCount-3
    If @GUI_CtrlId = $SlotArray[$Slot] Then
        MsgBox(0,"","click")
        ; ....
    EndIf
Next
EndFunc

ou en GUIRegisterMsg (pas sûr de ce code...)

► Afficher le texte

Code : Tout sélectionner

GUIRegisterMsg($WM_COMMAND, "_BtnClicked")

Func _BtnClicked($hWnd, $Msg, $wParam, $lParam)  
 #forceref $hWnd, $Msg, $lParam
Switch BitShift($wParam, 16)
  Case 0   ; clic
   For $slot = 0 to $PCSMenuCount-3
    If BitAND($wParam, 0x0000FFFF) = $SlotArray[$slot]  Then
        MsgBox(0,"","click")
        ; ....
    EndIf
   Next
EndSwitch
  Return 'GUI_RUNDEFMSG'
EndFunc

[floriansia]

Hum...Et si tu recommencait tout?Tu verra peut-être le probleme...

[Arkenix]

Merci mikell pour tes réponses, je test ça de suite, et je te tien au courant.

Merci floriansia pour ce bel exemple de réponse dépourvu d’intérêt, peu constructif.
Nous tacherons de répondre la même chose quand vous exposerez vos problèmes


Edit : mikell, visiblement il n'aime pas énormément le @GUI_CtrlId. (erreur de macro).
J'ai supposé qu'il nous fallait un Opt("GUIOnEventMode", 1).

[mikell]

J'ai supposé qu'il nous fallait un Opt("GUIOnEventMode", 1)

Ben oui
Mais ça t'oblige à monter tout le script en mode évènementiel (on peut faire autrement, mais c'est plus délicat à gérer)

@floriansia
L'usage sur ce forum est d'exposer quelques arguments précis et sérieux pour étayer sa réponse

[Arkenix]

Oui donc non je vais faire avec le For je pense.

[mikell]

Si le code n°1 de ma réponse fonctionne, pourquoi s'emmerder la vie ?

( mais c'est quand même mieux le onevent.... )

[Arkenix]

Alors j'ai trouvé ma solution.
Ton code n°1 je l'avais déjà fait a vrai dire mais ça ne marchait pas.
Enfaite l’erreur est comment dire... humaine (et oui ah ah).

Il s'agit simplement d'un label situé en dessous/au dessus qui empêchait les clics.
Donc un simple

Code : Tout sélectionner

GUICtrlSetState($PCSMainLabel,$GUI_DISABLE)

Et la solution était toute trouvée
Merci en tout cas pour ta réactivité mikell, comme quoi parfois les fautes d'inattentions sont les plus courantes
Bonne journée à tous [R]

[mikell]

Enfaite l’erreur est comment dire... humaine (et oui ah ah).