HUGサンプル /

COMBO

コンボボックスを生成します。プルダウンのセレクトボックスです。
COMBO に1つ目の項目を含めている事に注意して下さい。2つ目以降は TEXT で追加します。
選択時に CALLBACK が実行されます。
GET で選択場所(一番上の項目が 0)、GRAB$ で選択している値を取り出せます。

combo.jpg

' combo.bac
 
INCLUDE "hug.bac"

SUB subcombo()
 PRINT GET(My_combobox) , " - " , GRAB$(My_combobox)
END SUB
 
INIT
 Mainwin = WINDOW( "こんぼ!", 250, 65 )
 

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

 My_combobox = COMBO("1 combo!", 240, 30)
 TEXT(My_combobox ,"2 combo!!" )
 TEXT(My_combobox ,"3 combo!!!" )
 ATTACH( Mainwin, My_combobox, 5, 30 )
 CALLBACK(My_combobox, subcombo)

DISPLAY