★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:212 ポップアップメニュ
by うｗｓｃ 2009/06/16(Tue) 23:54:50
//　ポップアップメニュ
戻値　=　POPUPMENU( メニュ項目,　[X,　Y] )　
引数
　　メニュ項目：　表示メニュ項目を配列変数にて渡す
　　　　　　　　　　（サブメニュは { } にて指定： aaa, bbb, {ccc, ddd}, eee の場合は ccc,dddがbbbのサブメニュになる）
　　X、Y：　表示位置 X、Y　　（デフォルトはマウス位置）
戻値
　　選択された項目の配列変数位置

//　ボタン選択
SELECT　SLCTBOX(SLCT_BTN,　10,　"どれか選んでね",　"AAAA",　"BBBB",　"CCCC")
　CASE　SLCT_1
　　FUKIDASI("１番目が選ばれました")
　CASE　SLCT_2
　　FUKIDASI("２番目が選ばれました")
　CASE　SLCT_3
　　FUKIDASI("３番目が選ばれました")
　CASE　0
　　FUKIDASI("タイムアウトしました")
SELEND
Sleep(3)
FUKIDASI()

//　チェックボックス（複数選択の可能性あり）
ans　=　SLCTBOX(SLCT_CHK,　0,　"必要なものをチェックしてね",　_ //　行結合
　　　　　　"AAAA",　"BBBB",　"CCCC")
wks　=　""
if　(ans　and　SLCT_1)　<>　0　then　wks　=　wks　+　"１番目"
if　(ans　and　SLCT_2)　<>　0　then　wks　=　wks　+　"２番目"
if　(ans　and　SLCT_3)　<>　0　then　wks　=　wks　+　"３番目"
FUKIDASI(wks　+　"が選ばれました")
Sleep(3)
FUKIDASI()

//　CASE　の定義は文字でも数値でも変数でもＯＫさ
wkmoji　=　"BBB"
SELECT　INPUT("なんか入れて")
　CASE　"AAA"　　　　　　　//　文字
　　FUKIDASI("AAA")
　CASE　wkmoji　　　　　　　//　変数
　　FUKIDASI(wkmoji)
　CASE　3　　　　　　　　　　//　数値
　　FUKIDASI("３")
　DEFAULT
　　FUKIDASI("訳わかんないです")
SELEND
Sleep(3)

// ポップアップメニュ
dim pp[7] = "aaa", "bbb", "ccc", "{111", "222", "333}", "ddd"　　// 111, 222, 333 は cccのサブメニュ
x = POPUPMENU(pp)
ifb x >= 0
　print pp[x] + "が選ばれた"
else
　print "キャンセルされた"
endif