BCX_LISTBOX function
Purpose: BCX_LISTBOX creates a listbox that sorts strings in the list box alphabetically. The parent window receives an input message whenever the user clicks or double-clicks a string. The list box has borders on all sides.
Syntax: hCtl = BCX_LISTBOX(Text$, _ hWndParent, _ hCtlID%, _ Xpos%, _ Ypos%, _ Width%, _ Height% _ [,WinStyle%] _ [,ExWinStyle%]) Parameters:
|
Remarks: The default window Style for a BCX_LISTBOX control also can be changed by using the MODSTYLE function.
Here is a complete example using the BCX_LISTBOX function.
GUI "EZIDEPROG", PIXELS GLOBAL Form1 AS HWND GLOBAL List1 AS HWND CONST ID_Form1 = 0 CONST ID_List1 = 1 SUB FORMLOAD Form1 = BCX_FORM("Form1", 102, 88, 396, 338) List1 = BCX_LISTBOX("", Form1, ID_List1, 72, 52, 236, 204) '************************************************************************** SendMessage(List1, LB_ADDSTRING,0,"Annealed Glass") SendMessage(List1, LB_ADDSTRING,0,"Themerally Tempered Glass") SendMessage(List1, LB_ADDSTRING,0,"Polycarbonate") SendMessage(List1, LB_ADDSTRING,0,"Laminated Themerally Tempered Glass") SendMessage(List1, LB_ADDSTRING,0,"Laminated Semi-Tempered Glass") SendMessage(List1, LB_ADDSTRING,0,"Laminated Annealed Glass") '************************************************************************** CENTER(Form1) SHOW (Form1) END SUB BEGIN EVENTS SELECT CASE CBMSG CASE WM_COMMAND IF CBCTL = ID_List1 THEN IF CBCTLMSG = LBN_SELCHANGE THEN Call List1_Click(ID_List1) EXIT FUNCTION END IF END IF END SELECT END EVENTS SUB List1_Click(Id AS INTEGER) DIM RAW hWnd AS HWND DIM RAW cSel, Buffer$ hWnd = GetDlgItem(Form1,Id) cSel = SendMessage(hWnd,LB_GETCURSEL,0,0) Buffer$ = SPACE$(255) SendMessage(hWnd,LB_GETTEXT,cSel,Buffer$) SetWindowText(Form1, Buffer$) END SUB 'List1_Click
For another example of the BCX_LISTBOX function see Demo.bas in the BCX\Gui_Demo\EZ_Gui folder.
Also the Listbox.Bas file at
http://tech.groups.yahoo.com/group/BCX/files/Win32_API_Snippets/
contains many examples of ListBox wrappers for WinAPI ListBox functions.