I looked for this and couldn't find it, so I had to figure it out. Doing so I though I'd share it in case others might like/need it.
Code:
dim vL as C="" dim vnav as C for i = 1 to 200 vL=vL+rand_string(3)+"_"+padl(remspecial(substr((""+rand()*10000),1,4)),6,"0")+crlf() next vL=sortsubstr(vL,crlf()) dim dlg_title as C="Multi-Column List Box Navigation" ui_dlg_box(dlg_title,<<%dlg% {font=arial,10,b}{background=pale blue}{lf}; {comment=NAV BUTTONS} {region}{sp=29} <%O={J=C}{I:'$$navigate.move.prev'};OF={J=C}{I:'$$navigate.move.prev'}%6,1!move_left> <%O={J=C}{I:'$$navigate.move.first'};OF={J=C}{I:'$$navigate.move.first'}%6,1!move_home> <%O={J=C}{I:'$$navigate.move.next'};OF={J=C}{I:'$$navigate.move.next'}%6,1!move_right> <%O={J=C}{I:'$$navigate.move.last'};OF={J=C}{I:'$$navigate.move.last'}%6,1!move_end>; {endregion}; {comment=list box} {region} {font=lucida console,8,b}[%c=21,137%.102,11vpick^#vL]{font=arial,10,b}; {endregion};{lf}; {justify=center}<%O={J=C}{I:'$$window.close'}{F=arial,10} Close ;OF={J=C}{C=white}{B=black}{I:'$$window.close'}{F=Arial,10,bi} Close %29,2!Close> %dlg%,<<%code% if left(a_dlg_button,5)="move_" ui_dlg_ctl_goto(dlg_title,"vpick") vnav="sys_send_keys("+chr(34)+chr(123)+substr(a_dlg_button,6,6)+chr(125)+chr(34)+chr(41) evaluate_template(vnav) a_dlg_button="" end if %code%)
Comment