this works perfectly fine
windows set font 7,"Arial",0,0,0,1
start bbb gui `"Media\Ruby.msstyles"
main = get dbpro window() : set main window main
cls rgb(255,255,255)
w=make window(400,150,"Example window with single line editbox",main)
`rem makes a label
dLabel = make label(350,20,100,20,"Item Description..",w)
`rem creates a multiline editbox
dEdit = BBB Editbox_Make(350,40,400,100,ES_MULTILINE||WS_VSCROLL,w)
window set text dEdit,"enter item description here.."
//editbox set max char count dEdit,750
make object box 1,2,2,2
do
text 20,20,dText_0$
text 20,40,dText_1$
text 20,60,dText_2$
text 20,80,dText_3$
dText_0$ = BBB Editbox_GetLine (dEdit,0) `rem gets the 1st line
//e=BBB MessageBox(dText_0$," ",MB_OK): e=0
dText_1$ =BBB Editbox_GetLine (dEdit,1) `rem should get the second line butonly gets the 1st
//e=BBB MessageBox(dText_1$," ",MB_OK): e=0
dText_2$ = BBB Editbox_GetLine (dEdit,2) `rem same
//e=BBB MessageBox(dText_2$," ",MB_OK): e=0
dText_3$ = BBB Editbox_GetLine (dEdit,3) `rem same
//e=BBB MessageBox(dText_3$," ",MB_OK): e=0
repeat
get event
h=event get handle()
m=event get message()
if h=get main window()
if m=WM_CLOSE
a=BBB MessageBox("Are you sure you want to quit?","BBB Gui plugin",MB_YESNO)
if a=IDYES then end bbb gui : end
endif
endif
until m=0
sync
loop
EDIT:
this works too:
dText_0$ = BBB Editbox_GetLine (dEdit,0) `rem gets the 1st line
if len(dText_0$)>50
var=123
window set text dEdit,""
e=BBB MessageBox(str$(var)+dText_0$," ",MB_OK): e=0
endif
