Code : Tout sélectionner
Macro ComboBoxPwdChar(gadget, Char)
SendMessage_(GetWindow_(GadgetID(gadget), #GW_CHILD), #EM_SETPASSWORDCHAR, Char, 0)
EndMacro
If OpenWindow(0,50,50,320,240,"") And CreateGadgetList(WindowID(0))
ComboBoxGadget(0,10,10,200,200,#PB_ComboBox_Editable)
ComboBoxPwdChar(0, 'X')
SetActiveGadget(0)
Repeat
Until WaitWindowEvent() = #WM_CLOSE
EndIf