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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0208
たぬきメニューをつけて4解決


たぬき

リンク

2008/2/8(Fri) 00:49:43|NO.13456

質問があるのですが、メニューのところにゲームデータのセーブやロード、バージョン情報など、
他のゲームエンジンなんかについているようなものを作成することはできますか?
宜しくお願いします。



この記事に返信する


Megane

リンク

2008/2/8(Fri) 17:56:13|NO.13465

メニューバーのことでしょうか。

「メニューバー」でここを検索すれば、それっぽいものはいくらでも。



GENKI

リンク

2008/2/8(Fri) 20:26:48|NO.13466

この掲示板の「スレッド一覧」ページの下の方で、過去ログを検索することが出来ます。
ぜひ活用してください。またその下に「サイト内検索」というものもあります。ぜひご活用ください。

さて、問題のメニューバーですが、サンプルにもあります。
詳細な場所は過去ログに記事があると思いますのでそちらを参照するか、サンプルビューワで地道に探してみてください。



hirosenzm

リンク

2008/2/9(Sat) 17:39:00|NO.13473

これらの命令はmod_menu.as内にて定義されています。
newmenu ID,p2

ID=メニューのID(名前) p2=配置する場所(0=ウィンドウ内,1=メニューリスト) この命令は、メニューカテゴリ(?)を指定するものです。 ・
addmenu ID, "string", p2
ID=newmenu命令で指定したID
"string"=メニュー(項目)文字列
p2=操作ID
p2の操作IDは、あらかじめ#enum命令で定義しておかなければいけません。
サンプルのっけときます

#include "mod_menu.as" ; メニューアイテムIDを定義 #enum global NULL=0 ; NULL #enum CMD_OPEN ; [開く]アイテムのID #enum CMD_SAVE ; [保存]アイテムのID #enum CMD_QUIT ; [終了]アイテムのID #enum CMD_MESS ; [表示]アイテムのID ; メッセージ割り込み oncmd gosub *OnCommand, WM_COMMAND onexit gosub *OnExitMess ; ポップアップメニューの作成 ; [ファイル]メニュー newmenu hfilemenu,1 ; サブメニュー作成 addmenu hfilemenu, "開く(&O)", CMD_OPEN ; 開く addmenu hfilemenu, "保存(&S)", CMD_SAVE ; 保存 addmenu hfilemenu, "", NULL, 0x800 ; セパレータ addmenu hfilemenu, "終了(&Q)", CMD_QUIT ; 終了 ; [ヘルプ]メニュー newmenu hhelpmenu,1 ; サブメニュー作成 addmenu hhelpmenu, "表示(&M)", CMD_MESS ; 表示 ; メニューバーの作成 newmenu hmenu,0 ; メニュー作成 addmenu hmenu, "ファイル(&F)", hfilemenu, 0x10 ; ファイル addmenu hmenu, "ヘルプ(&H)", hhelpmenu, 0x10 ; ヘルプ addmenu hmenu, "終了(&Q)", CMD_QUIT ; 終了 applymenu hmenu ; メニュー割り当て stop ; メッセージの処理 *OnCommand switch (wparam & 0xFFFF) case CMD_OPEN ; 開く dialog "*", 16 if stat = 1 { dialog refstr + "を開きました", 0, "テスト" } swbreak case CMD_SAVE ; 保存 dialog "*", 17 if stat = 1 { dialog refstr + "を保存しました", 0, "テスト" } swbreak case CMD_QUIT ; 終了 ; ( Send だと終了できないので注意 ) PostMessage hwnd, WM_CLOSE, 0, 0 swbreak case CMD_MESS ; 表示 dialog "メニュー作成のテストです", 0, "メッセージ表示" swbreak default swbreak swend return *OnExitMess dialog "終了しますか?", 2, "確認" if stat = 6 { end } return
質問あったらきいてね



たぬき

リンク

2008/2/9(Sat) 19:43:58|NO.13485

Megane様、GENKI様、hirosenzm様、ご丁寧にありがとうございました。

早速やってみます。



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