Ouvrir et fermer combo gadget

[GallyHC]

@venom > oui, mais il ouvre bien le combo ou le ferme après c'est du Windows ^^.

Cordialement,
GallyHC

[kernadec]

bjr à tous
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

[GallyHC]

@kernadec : Trop tard fallait répondre avant (je rigole ^^), sinon sympa la sélection par le string, je le note ça peut toujours être utile.

Cordialement,
GallyHC