メニューバー・・・
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 ; A変 更
ww =hwnd ; B追 加
SetMenu hwnd,hMenu.0 ; C行移動
DrawMenuBar hwnd ; D行移動
bgscr 1,320,240 ; E追 加
Setparent ww,hwnd ; F追 加
color:boxf 0,hh,320,hh+20 ; G変 更
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 ; A変 更
ww =hwnd ; B追 加
SetMenu hwnd,hMenu.1 ; C行移動
DrawMenuBar hwnd ; D行移動
bgscr 1,320,240 ; E追 加
Setparent ww,hwnd ; F追 加
color:boxf 0,hh,320,hh+20 ; G変 更
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^*)