Code: Select all
If OpenWindow(0, 0, 0, 200, 110, "ComboBox Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ComboBoxGadget(0, 5, 5, 190, #PB_Ignore, #CBS_NOINTEGRALHEIGHT)
For i = 1 To 10
AddGadgetItem(0, -1, "ComboBox item " + Str(i))
Next
SetGadgetState(0, 0)
MoveWindow_(GadgetID(0), GadgetX(0), GadgetY(0), GadgetWidth(0), 100, #True)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf : End
c ya,
nco2k