[R] Création/gestion de plusieurs boutons

[Sylvaindd]

Bonjour, après plusieurs recherches sur Google et sur ce forum je n'ai pas trouvé de solution à mon problème, c'est pourquoi je postes mon problème ici, espérant trouver enfin une solution
Alors voilà, je veux me faire une petite Gui avec plusieurs boutons, disons 24 maxi, sachant que ceux-ci pourront être supprimés ou ajoutés via une Input avec un UpDown
Voilà mon Code pour le moment :

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#Include <Array.au3>
#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#Include <GuiMenu.au3>
#include <UpdownConstants.au3>

Global $GUI = GUICreate("Gestionnaire", 321, 221, -1, -1)
GUICtrlCreateLabel("Nombre de boutons: ",5,5)
$NbrEpz=GuiCtrlCreateInput("1", 100, 3, 40, 20,BitOR($ES_NUMBER,$ES_READONLY))
$UpDown=GuiCtrlCreateUpDown(-1,$UDS_ALIGNRIGHT)
GUICtrlSetLimit (-1,1,24)
Global $Button[24]
$NBR=GUICtrlRead($NbrEpz)
_button($NBR)
GUISetState()

While 1
$nMsg=GUIGetMsg()
Switch $nMsg

Case $Button[0] To $Button[_ArrayMaxIndex($Button,1)]
    For $i = 0 To _ArrayMaxIndex($Button,1)
        If $nMsg = $Button[$i] Then MsgBox(0,'',$i+1)
    Next
Case $UpDown
    $NBR=GUICtrlRead($NbrEpz)
    _button($NBR)
Case $GUI_EVENT_CLOSE
    Exit
EndSwitch
WEnd

Func _button($NBR)
If _ArrayMaxIndex($Button,1)=$NBR Then
_GUICtrlButton_Destroy($Button[$NBR])
_ArrayDelete($Button, _ArrayMaxIndex($Button,1))
Else
Global $Button[24],$TopButton=0,$LeftButton=5
For $i = _ArrayMaxIndex($Button,1)+1 to  $NBR
    $TopButton=$TopButton+30
    $EPZ="Bouton "&$i
    If $i<10 Then $EPZ="Bouton 0"&$i
    If $i>6 And $LeftButton<30 Then
    $LeftButton=$LeftButton+70
    $TopButton=30
    EndIf
    If $i>12 And $LeftButton<100 Then
    $LeftButton=$LeftButton+70
    $TopButton=30
    EndIf
    If $i>18 And $LeftButton<170 Then
    $LeftButton=$LeftButton+70
    $TopButton=30
    EndIf
$Button[$i-1]=GUICtrlCreateButton($EPZ,$LeftButton,$TopButton)
Next
EndIf
EndFunc

Les différents problèmes:
-J'arrives à créer les 24 boutons sans problèmes, mais je n'arrives pas à supprimer correctement, la suppression fonctionne unique si je re-créer un bouton et que je le re-supprime, je peux en gros supprimer que le dernier.
-Pour ce qui est de la petite MsgBox, elle ne fonctionne que pour le dernier bouton créé, pas pour les autres.
-J'aimerais donc savoir d'où viennent ces 'bugs', je pense que ça vient de l'Array, je ne dois pas la gérer correctement, mais je vois ce que c'est .
Merci d'avance pour votre aide !

[Kagami]

Houla, édite vite ton titre et ajoutes [..] et met ton code en spoiler avec un Admin/Modo ne passe par la :p
Tu recevras de l'aide après avoir fait ça

[Sylvaindd]

Fait ! Merci du conseil

[Tlem]

Dans un cas comme le votre, je créerais la totalité des boutons afin d'obtenir chaque ID dans le tableau (mais je les rendrait invisibles à la création). Ensuite, une simple gestion d'affichage ou de masquage de ce qui doit être modifié et le tour est joué.

[mikell]

Pas la joie ton script...
Le problème vient que tu reconstruis une ribambelle de boutons à chaque fois, et le script s'y perd...
Tu peux le vérifier en mettant un _ArrayDisplay($Button) dans la fonction, tu vas voir, c'est pas triste ^^
Et essaie d'utiliser des fonctions les plus simples possibles, tu te faciliteras la vie
Regarde ça, c'est simple et ça va tout seul

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#Include <Array.au3>
#include <GuiConstantsEx.au3>
#include <UpdownConstants.au3>

Global $Button[1]

Global $GUI = GUICreate("Gestionnaire", 321, 221, -1, -1)
GUICtrlCreateLabel("Nombre de boutons: ",5,5)
$NbrEpz = GuiCtrlCreateInput("1", 100, 3, 40, 20,BitOR($ES_NUMBER,$ES_READONLY))
$UpDown = GuiCtrlCreateUpDown(-1,$UDS_ALIGNRIGHT)
GUICtrlSetLimit (-1,1,24)
_button()
GUISetState()

While 1
$nMsg=GUIGetMsg()
For $i = 0 To UBound($Button)-1
    If $nMsg = $Button[$i] Then Msgbox(0, "", "bouton " & $i+1)
Next
Switch $nMsg
    Case $UpDown
         _button()
    Case $GUI_EVENT_CLOSE
        Exit
EndSwitch
WEnd

Func _button()
Local $n = GUICtrlRead($NbrEpz)
If $n < UBound($Button) Then
    GUICtrlDelete($Button[$n])
    _ArrayDelete($Button, $n)
Else
  If UBound($Button)<24 Then
    Redim $Button[$n]
    If Mod($n, 6) = 0 Then
      $nx = ($n/6-1)*60
    Else
      $nx = (Floor($n/6)*60)
    EndIf
    $ny = (Mod($n-1, 6)*30)
    $EPZ="Bouton "& $n
    $Button[$n-1] = GUICtrlCreateButton($EPZ, $nx+10, $ny+40, 55, 25)
  EndIf
EndIf
EndFunc
 

EDIT
Grillé par le boss
Mais il a raison, le script est fun mais pas pratique, tu ne peux détruire les boutons qu'en remontant à partir du dernier

[Sylvaindd]

En effet, mais étant novice je ne connaissais pas les fonctions que tu as utilisé, mais ton code marche à la perfection, merci mikell !

[Kagami]

Maintenant que tu as été aidé, édites ton premier message en mettant [R] comme balise