BCX_COMBOBOX creates a combobox that displays a list when the user selects the dropdown button next to the edit control.
Syntax:hCtl = BCX_COMBOBOX(Text AS STRING, _ hwndParent AS HWND, _ hCtlID AS INTEGER, _ Xpos AS INTEGER, _ Ypos AS INTEGER, _ Width AS INTEGER, _ Height AS INTEGER _ [, WinStyle AS INTEGER] _ [, ExWinStyle AS INTEGER]) Return Value:
Parameters:
|
The default window Style for a BCX_COMBOBOX control also can be changed by using the MODSTYLE function.
GUI "EZCombo" DIM Form1 AS CONTROL DIM Combo1 AS CONTROL SUB FORMLOAD LOCAL i, A$ Form1 = BCX_FORM("EZ-GUI BCX_FORM", 0, 0, 155, 50) Combo1 = BCX_COMBOBOX("Not used placeholder", Form1, 108, 5, 5, 140, 35) FOR i = 97 TO 97 + 25 A$ = "ComboBox item " & UCASE$(CHR$(i)) SendMessage(Combo1, CB_ADDSTRING, 0, A$) NEXT CENTER(Form1) SHOW(Form1) ' Show it! END SUB BEGIN EVENTS SELECT CASE CBMSG CASE WM_LBUTTONDOWN SetWindowText(Form1, "Left Button Down") EXIT FUNCTION CASE WM_LBUTTONUP SetWindowText(Form1, "Left Button Up") EXIT FUNCTION CASE WM_RBUTTONDOWN SetWindowText(Form1, "Right Button Down") EXIT FUNCTION CASE WM_RBUTTONUP SetWindowText(Form1, "Right Button Up") EXIT FUNCTION CASE WM_CLOSE DestroyWindow(Form1) EXIT FUNCTION CASE WM_DESTROY PostQuitMessage(0) EXIT FUNCTION END SELECT END EVENTS
For another example using the BCX_COMBOBOX function see Demo.bas.