HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2013 0525	yamazey	メニューバー・・・	3

yamazey

2013/5/25(Sat) 06:19:05|NO.54272

メニューバーでの操作関連の事でわからないことがあります。
ソースを開くとメニューバーが用意されてて、そこには「メニュー」と「Google」
があります。
メニューを押すと終了タブが開いてそこを押せば終了します。
Googleを押すとexecでGoogleが開くように指定しています。
ですがGoogleを押してもIEが開きません。。。
Googleを押せばGoogleに飛ぶようなソースを教えてください。
それとメニューを押したら終了タブと同時にメッセージタブがあります。
メッセージタブを押すとなにかメッセージが出るようなソースもご教授お願いします＞＜

/////////////ソース//////////////////
#include "user32.as"
#define ctype LOWORD(%1) (%1 & $FFFF)
; 項目ID
#enum IDM_KOUMOKU1
#enum IDM_KOUMOKU2
; WM_COMMANDメッセージ
oncmd gosub *Menu_bar, $111
CreatePopupMenu
hMenu.1=stat
AppendMenu hMenu.1,0,IDM_EXIT,"終了"
AppendMenu hMenu.1,0,IDM_EXIT,"メッセージ"
; <メインのメニューバー>
CreateMenu
hMenu.0=stat
AppendMenu hMenu.0,$10,hMenu.1,"メニュー"

GetSystemMetrics 15 :hh = stat ; ①追　加
bgscr 0,320,hh,,0,0 :cls 2 ; ②変　更
ww =hwnd ; ③追　加
SetMenu hwnd,hMenu.0 ; ④行移動
DrawMenuBar hwnd ; ⑤行移動

bgscr 1,320,240 ; ⑥追　加
Setparent ww,hwnd ; ⑦追　加

color:boxf 0,hh,320,hh+20 ; ⑧変　更
onclick gosub *move
//////////////////////////////////////////////////////////

; <Googleを開く>
CreateMenu
hMenu.1=stat
AppendMenu hMenu.0,$10,hMenu.1,"Google"

GetSystemMetrics 15 :hh = stat ; ①追　加
bgscr 0,320,hh,,0,0 :cls 2 ; ②変　更
ww =hwnd ; ③追　加
SetMenu hwnd,hMenu.1 ; ④行移動
DrawMenuBar hwnd ; ⑤行移動

bgscr 1,320,240 ; ⑥追　加
Setparent ww,hwnd ; ⑦追　加

color:boxf 0,hh,320,hh+20 ; ⑧変　更
onclick gosub *HP
stop

*move
if mousey <hh+20:if wparam=1:sendmsg hwnd,$00A1,2,0
return
*Menu_bar
end

///*HP
if mousey <hh+20:if wparam=1:sendmsg hwnd,$00A1,2,0
return
*HP
if mousey <hh+20:if wparam=1:sendmsg hwnd,$00A1,2,0
return
*Menu_bar1
end

この記事に返信する

pizza

2013/5/25(Sat) 06:44:43|NO.54273

APIでメニューを使いたいんですね。
ちょくとさんのページは必読。
http://chokuto.ifdef.jp/advanced/menubar.html

せっかLOWORDマクロ書いてあるから、使うと良いです。

ツノン

2013/5/25(Sat) 22:25:59|NO.54291



#include "user32.as"

#const global WM_COMMAND 0x111

#enum IDM_NULL =0
#enum IDM_EXIT
#enum IDM_MESSAGE
#enum IDM_GOOGLE
	
	onexit *exit

bgscr 0
	Createpopupmenu:hm_menu = stat
		AppendMenu hm_menu,0,IDM_EXIT,"終了(&Q)"
		AppendMenu hm_menu,0,IDM_MESSAGE,"メッセージ(&M)"
	
	CreateMenu :hm_main = stat
		AppendMenu hm_main,0x10,hm_menu,"メニュー(&M)"
		AppendMenu hm_main,0,IDM_GOOGLE,"Google(&G)"
	
	SetMenu hwnd,hm_main
	DrawMenuBar hwnd

	oncmd gosub *oncmd_wm_command,WM_COMMAND
	stop

*exit
	// 作成したメニューは必ず任意に削除
	DestroyMenu hm_main // 親メニューを破棄すれば、関連付けられたすべてのメニューが破棄される為これだけでよい。
	end
	stop
	
*oncmd_wm_command
	wID = wParam & 0xFFFF;
	if(lparam==0){
		if(wid==IDM_EXIT){
			goto*exit
		}else:if(wid==IDM_MESSAGE){
			dialog "仮メッセージ"
		}else:if(wid==IDM_GOOGLE){
			exec "http://www.google.co.jp/",16
		}
	}
	return

yamazey

2013/5/26(Sun) 00:53:59|NO.54295

ツノンさんありがとうございます！
私の求めてたものです
またお世話になることがあるかと思いますがどうかよろしくです(*^0^*)