Re: Ouvrir et fermer combo gadget
Publié : sam. 29/août/2020 10:38
@venom > oui, mais il ouvre bien le combo ou le ferme après c'est du Windows ^^.
Cordialement,
GallyHC
Cordialement,
GallyHC
dans la librairie API de "RSBasic" https://www.rsbasic.de/winapi-library/
il y a les exemples connus de ce qu'on peut faire avec un ComboBoxGadget
Cordialement
ps: shadow merci, pas besoin de tes sarcasmes !
Code : Tout sélectionner
EnableExplicit
Define EventID
Define a
Define SelectItem$
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ComboBoxGadget(1, 10, 10, 200, 20, 0)
For a=1 To 10
AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
Next
SetGadgetState(1, 0)
SelectItem$ = "Item 5"
SendMessage_(GadgetID(1),#CB_SHOWDROPDOWN, 1, 0)
SendMessage_(GadgetID(1), #CB_SELECTSTRING, 0, @SelectItem$)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf