working on listing directory files vertical scroll bar is not appearing

[TexasPete]

I am working on listing images names in a list box. I seem to have the subroutine working just fine
but I wanted a vertical scroll bar in the control.
The following is a listing of how I have the control listed.

Code Select Expand


CONTROL d1,"L,Save,10,10,222,300,@CTEDITLEFT|@CTListnotify|@VSCROLL|@CTLISTNOTIFY,1"


I am sure it is something very simple, but a vertical scrollbar does not appear on the listview.

Any ideas!

Thanks
Texas Pete

[aurelCB]

Pete did you somtime read manual.
Or did you use GUI builder from creative toolbar.
OK...i dont blame you but use sometimes this things.It's all there..

Code Select Expand

CONTROL d1,"L,ListBox1,56,37,147,111,0x50A00142,1"
this is result from gui builder

Code Select Expand

CONTROL d1,"L,ListBox1,56,37,147,111,@ctliststandard|@vscroll,1"
and this is from cb code

quick example:

Code Select Expand

'MAIN SKELETON
DEF w1:window
DEF a,b,c,d,e,f,g,h,i,j,k,l:int
def text:string

Window w1,0,0,500,400,@minbox,0,"Skeleton",main
setwindowcolor w1,rgb(100,100,150)
'-------------------------------------------------------

CONTROL w1,"L,ListBox1,56,37,147,111,0x50A00142,1"
CONTROL w1,"L,ListBox1,256,37,147,151,@ctliststandard|@vscroll,2"
SETFONT w1, "courier new", 10, 400,0,2
SETCONTROLCOLOR w1, 2, rgb(0,200,230),rgb(0,0,160)

addstring w1,1,"one"
addstring w1,1,"one2"
addstring w1,1,"one3"
addstring w1,1,"one4"
addstring w1,1,"one5"
addstring w1,1,"one6"
addstring w1,1,"one7"
addstring w1,1,"one8"
addstring w1,1,"one9"
addstring w1,1,"one10"
addstring w1,1,"one11"
addstring w1,1,"one12"
addstring w1,1,"one13"
addstring w1,1,"one14"
addstring w1,1,"one15"

addstring w1,2,"one"
addstring w1,2,"one2"
addstring w1,2,"one3"
addstring w1,2,"one4"
addstring w1,2,"one5"
addstring w1,2,"one6"
addstring w1,2,"one7"
addstring w1,2,"one8"
addstring w1,2,"one9"
addstring w1,2,"one10"
addstring w1,2,"one11"
addstring w1,2,"one12"
addstring w1,2,"one13"
addstring w1,2,"one14"
addstring w1,2,"one15"
addstring w1,2,"one"
addstring w1,2,"one2"
addstring w1,2,"one3"
addstring w1,2,"one4"
addstring w1,2,"one5"
addstring w1,2,"one6"
addstring w1,2,"one7"
addstring w1,2,"one8"
addstring w1,2,"one9"
addstring w1,2,"one10"
addstring w1,2,"one11"
addstring w1,2,"one12"
addstring w1,2,"one13"
addstring w1,2,"one14"
addstring w1,2,"one15"
addstring w1,2,"one"
addstring w1,2,"one2"
addstring w1,2,"one3"
addstring w1,2,"one4"
addstring w1,2,"one5"
addstring w1,2,"one6"
addstring w1,2,"one7"
addstring w1,2,"one8"
addstring w1,2,"one9"
addstring w1,2,"one10"
addstring w1,2,"one11"
addstring w1,2,"one12"
addstring w1,2,"one13"
addstring w1,2,"one14"
addstring w1,2,"one15"
addstring w1,2,"one"
addstring w1,2,"one2"
addstring w1,2,"one3"
addstring w1,2,"one4"
addstring w1,2,"one5"
addstring w1,2,"one6"
addstring w1,2,"one7"
addstring w1,2,"one8"
addstring w1,2,"one9"
addstring w1,2,"one10"
addstring w1,2,"one11"
addstring w1,2,"one12"
addstring w1,2,"one13"
addstring w1,2,"one14"
addstring w1,2,"one15"




'----------------------------------
run=1
waituntil run=0
closewindow w1
end
'----------------------------------
Sub main
select @class
case @idclosewindow
run=0
case @idcreate
centerwindow w1
endselect
Return