HUGサンプル/LIST - BaCon - A free BAsic CONverter for Unix Wiki - BaCon - A free BAsic CONverter ...

HUGサンプル /

LIST

リストを生成します。
LIST そのものは大きさの指定のみで、実際の項目は TEXT で加えていきます。
選択したところで CALLBACK が呼ばれます。
GET で選択している場所（一番最初の項目が 0）、GRAB$ で選択項目の内容を取り出せます。

ターミナル・端末の表示にも注目して下さい。

' list.bac
 
INCLUDE "hug.bac"
 
SUB sublistbox()
 PRINT GET(My_listbox) ," = ", GRAB$(My_listbox)
END SUB
 
INIT
 Mainwin = WINDOW( "りすと〜", 250, 110 )

 Menu_label = MARK("どれがいいの〜" , 240, 30)
 ATTACH( Mainwin, Menu_label, 5, 0 )

 My_listbox = LIST(240, 75)
 TEXT(My_listbox ,"1 - ICHI..." )
 TEXT(My_listbox ,"2 - NII..." )
 TEXT(My_listbox ,"3 - SAN!" )
 ATTACH( Mainwin, My_listbox, 5, 30 )
 CALLBACK(My_listbox, sublistbox)
DISPLAY