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

HUGサンプル /

VSLIDER

縦型のスライダーを作成します。ボタン付きの棒で、上下にする事で値を設定するものです。

' vslider.bac
 
INCLUDE "hug.bac"

SUB My_VSLIDER()
 PRINT GET(VSLIDER_STR)
END SUB
 
INIT
 Mainwin = WINDOW( "すらいだ〜", 170, 200 )
 
 FRAME_STR = FRAME(150, 150)
 ATTACH( Mainwin, FRAME_STR, 10, 10 )
 
 VSLIDER_STR = VSLIDER(140, 140, 1, 10, 1)
 ATTACH( Mainwin, VSLIDER_STR, 15, 15 )
 
 GET_NUMBER = BUTTON("あたい〜", 70, 25)
 ATTACH( Mainwin, GET_NUMBER , 10, 165 )
 CALLBACK(GET_NUMBER, My_VSLIDER)
 
 My_chk = BUTTON("おわり〜", 70, 25)
 ATTACH( Mainwin, My_chk, 90, 165 ) 
 CALLBACK( My_chk, QUIT)
DISPLAY