XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox per CONTROL erstellen (auch leere Listbox mit vertikalem Scrollbalken)
Lauffähig ab Profan-Version 6.6

PROC Listbox2

    Parameters hWnd&,s$,x%,y%,dx%,dy%
    Return Control(LISTBOX,s$,$54211141,x%,y%,dx%,dy%,hWnd&,1000,%hInstance,$200)

EndProc

DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE LISTBOX1&
DECLARE LISTBOX2&
WINDOWSTYLE 63
WINDOWTITLE Neues Fenster
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,15,0,0,0,0
SETDIALOGFONT 1
LISTBOX1& = Listbox2(%HWND,LISTBOX,0216,0152,0130,0070)
LISTBOX2& = Listbox2(%HWND,LISTBOX,0424,0155,0130,0070)
ClearList
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
AddString Hallo
MoveListToList(listbox2&)
SendMessage(listbox2&,$0186,0,0)
WAITINPUT
END