Future BASICからのToolbox使用例
- BUTTON -
◆ボタンが押されているかどうか調べる
マウスのボタンが押されているかどうか調べます。ボタンが押されていればtrueになり、押されていなければfalseになります。アプリケーションがバックグラウンドで動作していても、この関数は有効です。
- 引数：
- なし
- 戻り値：
- msFlag%
- マウスボタンが押された時true、そうでない場合false
◆今回のプログラムリスト
<![CDATA[
'--------------------------
' "Toolbox Call Event Manager"
'
' msFlag% = FN BUTTON
'
'--------------------------
LOCAL FN sample
msFlag% = FN BUTTON
IF (msFlag%) THEN PRINT "マウスのボタンを押しましたね(^^)/"
END FN
LOCAL FN initMenu
MENU 1,0,_enable,"ファイル"
MENU 1,1,_enable,"/G実 行"
MENU 1,2,_enable,";"
MENU 1,3,_enable,"/Q終 了"
END FN
'--------------------- "メニュー選択
LOCAL FN doMenus
menuID=MENU(_menuID)
itemID=MENU(_itemID)
SELECT menuID
CASE 1
SELECT itemID
CASE 1
FN sample
CASE 3
END
END SELECT
END SELECT
MENU
END FN
WINDOW #1,"Sample Window",(8,32)-(480,320),_doc
FN initMenu
ON MENU FN doMenus
PRINT:PRINT:PRINT:PRINT:PRINT
PRINT "マウスのボタンを押して下さい"
DO
HANDLEEVENTS
FN sample
UNTIL theProgramends
END
]]>