Code : Tout sélectionner
If OpenWindow(0, 0, 0, 270, 140, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ComboBoxGadget(0, 10, 10, 250, 100)
AddGadgetItem(0, -1, "ComboBox")
ButtonGadget(1, 10, 40, 250, 20,"Delete")
SetGadgetState(0, 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Select EventType()
Case #PB_EventType_LeftClick
RemoveGadgetItem(0,0)
EndSelect
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit=1
EndIf