Deleting a button made from an array.

[gottygolly]

I had this problem a couple days back and brushed it off thinking it wouldn't come up again but I got bored and wanted to find out how to do this. I tried all kind of things (I tried _ArrayDelete()) just wondering if anyone knows how to do this, please help me.

expandcollapse popup

$gui = GuiCreate("",215,300,-1,-1)
Opt("GUIOnEventMode",1)
GuiSetOnEvent(-3,"_Exit")
Local $button[11]
$y = 5
For $i = 1 To 10
    $button[$i] = GUICtrlCreateButton($i,5,$y,100,20)
    GUICtrlSetOnEvent($button[$i],"_Button")
    $y += 30
Next
$y = 5
Local $delete[11]
For $i = 1 To 10
$delete[$i] = GUICtrlCreateButton("Delete "&$i,110,$y,100,20)
GUICtrlSetOnEvent($delete[$i],"_Button_Delete")
    $y += 30
Next
$y = 0
GuiSetState()

While 1
Sleep(10)
Wend

Func _Exit()
Exit
EndFunc

Func _Button()
    $id = GUICtrlRead(@GUI_CtrlId,1)
    MsgBox(0,"Clicked","Button "&'"'&$id&'"'&" was clicked")
EndFunc

Func _Button_Delete()
    $id = GUICtrlRead(@gui_ctrlid,1)
    $string = StringRight($id,1)
    If $id = "Delete 10" Then
        $string = StringRight($id,2)
    EndIf
    MsgBox(0,"Clicked","Button "&'"'&$id&'"'&" was clicked"&@CRLF&"Its number is "&$string)
    ;-- What do I put here to delete the corresponding button?
EndFunc

 

[argumentum]

it's your code. You'd know how you want to do it.

GUICtrlDelete($button[$i])

then you'd

_ArrayDelete($button,$i)

or 

$button[$i] = 0

...good luck

[nitekram]

You could do this, but your going to have to make sure that each delete button matches to the corresponding button.

 

expandcollapse popup

$gui = GUICreate("", 215, 300, -1, -1)
Opt("GUIOnEventMode", 1)
GUISetOnEvent(-3, "_Exit")
Local $button[11]
$y = 5
For $i = 1 To 10
    $button[$i] = GUICtrlCreateButton($i, 5, $y, 100, 20)
    GUICtrlSetOnEvent($button[$i], "_Button")
    $y += 30
Next
$y = 5
Local $delete[11]
For $i = 1 To 10
    $delete[$i] = GUICtrlCreateButton("Delete " & $i, 110, $y, 100, 20)
    GUICtrlSetOnEvent($delete[$i], "_Button_Delete")
    $y += 30
Next
$y = 0
GUISetState()

While 1
    Sleep(10)
WEnd

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Func _Button()
    $id = GUICtrlRead(@GUI_CtrlId, 1)
    MsgBox(0, "Clicked", "Button " & '"' & $id & '"' & " was clicked")
EndFunc   ;==>_Button

Func _Button_Delete()
    $id = GUICtrlRead(@GUI_CtrlId, 1)
    $string = StringRight($id, 1)
    If $id = "Delete 10" Then
        $string = StringRight($id, 2)
    EndIf
    MsgBox(0, "Clicked", "Button " & '"' & $id & '"' & " was clicked" & @CRLF & "Its number is " & $string)
    ;-- What do I put here to delete the corresponding button?

    GUICtrlDelete(@GUI_CtrlId - 10)

EndFunc   ;==>_Button_Delete