HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


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^*)



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