[R] Multiple boutton

[locos974]

Bonjour,

Je suis entrain de crée un tool avec une gestion de grade de 1 à 10.
Avec 2 boutons, on peut en supprimé ou en ajouté.
Le truc c'est que lors de l'ajout d'un Grade, je doit ajouté 1 boutton, j'aimerais que celui-ci soit sous cette forme :

Code : Tout sélectionner

$Button[$i] = GuiCtrlCreateButton(..)

Et que je puisse le géré dans la boucle While ( GuiGetMsg ).

J'ai trouvé un sujet à propos de ça, mais ne répond pas à ma question :
http://www.autoitscript.fr/forum/viewto ... f=3&t=1333

Merci d'avance ! Locos974.

[mikell]

On comprend l'idée mais pour le reste c'est pas très précis
Est-ce que ce genre de code ça irait ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("my_gui", 350, 100)
Dim $button[11]
For $i = 1 to 10
    $button[$i] = GUICtrlCreateButton($i, $i*30, 10, 20, 20)
Next
$plus = GUICtrlCreateButton("ajouter", 100, 50, 60, 25)
$moins = GUICtrlCreateButton("enlever", 200, 50, 60, 25)
GUISetState()

While 1
  $nMsg = GUIGetMsg()
  If $nMsg = $GUI_EVENT_CLOSE Then Exit
  For $i = 1 to 10
    Switch $nMsg
          Case $button[$i] 
              MsgBox(0,"", $i)
    EndSwitch
  Next
  If $nMsg = $moins Then 
     For $i = 10 to 1 step -1
        If BitAnd(GUICtrlGetState($button[$i]), $GUI_SHOW) = $GUI_SHOW Then
           GUICtrlSetState($button[$i], $GUI_HIDE)
           Exitloop
        EndIf
     Next
  EndIf
  If $nMsg = $plus Then 
     For $i = 1 to 10
        If BitAnd(GUICtrlGetState($button[$i]), $GUI_HIDE) = $GUI_HIDE Then
           GUICtrlSetState($button[$i], $GUI_SHOW)
           Exitloop
        EndIf
     Next
  EndIf
WEnd

[locos974]

C'est exactement ça, mais chez moi cela ne marche pas.
Les boutons se crée lorsqu'on appuie sur un bouton pour crée une nouvelle TabItem qui crée ensuite le bouton.
Sinon il m'enchaîne les MsgBox..

[mikell]

Voilà pour le manque de précisions... on parlait de boutons et maintenant ya des tabitems qui débarquent

[locos974]

Voilà pour le manque de précisions... on parlait de boutons et maintenant ya des tabitems qui débarquent

, il est où le problème vue que c'est presque pareil ?

[mikell]

Si c'est presque pareil alors mon code doit pouvoir s'adapter très facilement à ton script ^^
En attendant le problème il est là :

C'est exactement ça, mais chez moi cela ne marche pas.

[locos974]

Voilà, je vous est fourni le fichier si cela peux vous aidez ! En tout cas, avec plusieurs tentative.. Aucun succès.

[mikell]

Dans mon code on crée tous les boutons et on les ajoute/enlève en les montrant /cachant, la gestion est beaucoup plus simple et cohérente
Là tu crées/supprimes des controles => c'est le bordel
Si tu appelles un controle qui n'est pas défini alors $nMsg=0 et les msgbox sortent
Tu peux vérifier en mettant juste dans le switch

Code : Tout sélectionner

If $selectSpell[$i] = 0 Then Msgbox(0,"", "tilt")

[locos974]

Il me renchaîne tout de même les MsgBox à répétition .
Pourriez-vous me fournir le petit bout de code ?

[mikell]

Bah ça devient évident, du moins pour ce détail-là

Code : Tout sélectionner

    For $i = 1 to 10
        Switch $nMsg
            Case $selectSpell[$i]
                If $selectSpell[$i] <> "" Then MsgBox(0,"", $i)
        EndSwitch
    Next

[locos974]

Que faire sans vous.. Merci ! ça marche niquel .