HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0303
HSP太郎mod_menu.asの使い方1未解決


HSP太郎

リンク

2019/3/3(Sun) 20:25:02|NO.86795

mod_menu.asを使ってメニューバーを横に2つ並べて表示することってできますか?

#include "mod_menu.as" #const CMD_NEW 1 #const CMD_OPEN #const CMD_QUIT screen 0, 640,500 oncmd gosub *OnCommand, WM_COMMAND ; メッセージ割り込み //ファイルメニュー ; サブメニュー作成 newmenu subfilemenu,1 addmenu subfilemenu, "新規作成(&N)", CMD_NEW addmenu subfilemenu, "開く(&O)", CMD_OPEN addmenu subfilemenu, "終了(&Q)", CMD_QUIT ; トップメニュー作成 newmenu tfilemenu,0 addmenu tfilemenu, "ファイル(&F)", subfilemenu, 0x0010 applymenu tfilemenu //オブジェクトメニュー ; サブメニュー作成 newmenu subobjmenu,1 addmenu subobjmenu, "ボタン(&B)", CMD_NEW addmenu subobjmenu, "拡大図(&Z)", CMD_OPEN addmenu subobjmenu, "アイテム(&I)", CMD_QUIT ; トップメニュー作成 newmenu tobjmenu,0 addmenu tobjmenu, "オブジェクト(&O)", subobjmenu, 0x0010 applymenu tobjmenu stop ; メッセージの処理 *OnCommand cmd=wparam & 0xFFFF if cmd=CMD_NEW { dialog "新規作成" } if cmd=CMD_OPEN { dialog "開く" } if cmd=CMD_QUIT { end } return
これだとオブジェクトだけ表示されてしまいます。
どのように改善したらいいでしょうか?



この記事に返信する


名無三

リンク

2019/3/3(Sun) 22:49:13|NO.86805


#include "mod_menu.as" #const CMD_NEW 1 #const CMD_OPEN #const CMD_QUIT screen 0, 640,500 oncmd gosub *OnCommand, WM_COMMAND ; メッセージ割り込み //ファイルメニュー newmenu subfilemenu,1 addmenu subfilemenu, "新規作成(&N)", CMD_NEW addmenu subfilemenu, "開く(&O)", CMD_OPEN addmenu subfilemenu, "終了(&Q)", CMD_QUIT //オブジェクトメニュー newmenu subobjmenu,1 addmenu subobjmenu, "ボタン(&B)", CMD_NEW addmenu subobjmenu, "拡大図(&Z)", CMD_OPEN addmenu subobjmenu, "アイテム(&I)", CMD_QUIT //トップメニュー newmenu tobjmenu,0 addmenu tobjmenu, "ファイル(&F)", subfilemenu, 0x0010 addmenu tobjmenu, "オブジェクト(&O)", subobjmenu, 0x0010 applymenu tobjmenu stop ; メッセージの処理 *OnCommand cmd=wparam & 0xFFFF if cmd=CMD_NEW { dialog "新規作成" return } if cmd=CMD_OPEN { dialog "開く" return } if cmd=CMD_QUIT { end } return
こうじゃな
ファイルのサブメニューの部分、(気づいてたらゴメンけど)そのつどreturn必須ゾ



ONION software Copyright 1997-2018(c) All rights reserved.