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