Horizontal List Box as Prompts

[Nancy Palmquist]

Bob @ MidCity Office wrote:

Bob,

I have been using this for years and wanted to point out a great point.  If the 
listbox is in ENTSEL processing the record is not locked when you are waiting 
for a response.  Then use PUSHKEY to start update processing and send the user 
on to the next request, move to the correct record, etc.

Nancy


> Hi
>  
> Thought I'd pass this on. Today I used a Listbox at the bottom of a 
> screen for the user to select the next action after leaving the last 
> input field on a screen. I thought it was cool, and didn't know if it 
> was well known use of Listbox.
>  
> ::end:
> @wlf1::'
> ::cls("21") ; cursor off:
> ::showctr("22") "Please Select":
> ::dim listbox1(7):
> ::listbox1("1") = "Top":
> ::listbox1("2") = "Vend Inst":
> ::listbox1("3") = "Prev Vend":
> ::listbox1("4") = "Next Vend":
> ::listbox1("5") = "Total Scr":
> ::listbox1("6") = "Main Scr":
> ::listbox1("7") = "More Opts":
> ::List1Choice = listbox(listbox1,,,"23",,"1","80"):
> :List1Choice eq "1":msgbox "Choice1" ; cursor on ; screen ,1:
> :List1Choice eq "2":msgbox "Choice2" ; cursor on ; screen ,1:
> :List1Choice eq "3":msgbox "Choice3" ; cursor on ; screen ,1:
> :List1Choice eq "4":msgbox "Choice4" ; cursor on ; screen ,1:
> :List1Choice eq "5":msgbox "Choice5" ; cursor on ; screen ,1:
> :List1Choice eq "6":msgbox "Choice5" ; cursor on ; screen ,1:
> :List1Choice eq "7":msgbox "Choice7" ; cursor on ; screen ,1:
> :List1Choice gt "7":List1Choice = "" ; cursor on ; goto @wlf1:
> ::end:
> ::declare List1Choice:
>  
> Bob Simcoe
> Mid-City Office Furniture, Inc.
>  
>  
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list


-- 
Nancy Palmquist 		MOS & filePro Training Available
Virtual Software Systems	Web Based Training and Consulting	
PHONE: (412) 835-9417		   Web site:  http://www.vss3.com