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


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2010
0506
¤Á¤ç¤Á¤ó¤Á¤ã¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤«¤é¥¢¥×¥ê¼«ÂΤòºÆÆɤ߹þ¤ß¤µ¤»¤ë°Ù¤Ë¤Ï4²ò·è


¤Á¤ç¤Á¤ó¤Á¤ã

¥ê¥ó¥¯

2010/5/6(Thu) 11:35:45|NO.32470

£³²óÌܤÎÅê¹Æ¤Ç¤¹¡£

¤ªÀ¤ÏäˤʤäƤޤ¹¡£

º£²ó¤Þ¤¿íµ¤¤¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤ªÊ¹¤­¤·¤¿¤¯

¤Þ¤¿Íè¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡û¨¯ŽÍŽßŽº¥Ã



Á°²ó¡¢¥¦¥£¥ó¥É¥¦ÏȤΤʤ¤¥¦¥£¥ó¥É¥¦¤ÎÁàºî¤ä¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Ë¤Ä¤¤¤Æ

¶µ¤¨¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

º£²ó¤ªÊ¹¤­¤·¤¿¤¤¤Î¤Ï

¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¹àÌܤò£×¥¯¥ê¥Ã¥¯¤ÇºÇ½é¤ËÌá¤ë¡¢

¤Ä¤Þ¤ê¥¢¥×¥ê¼«ÂΤòºÆÆɤ߹þ¤ß¤·¡¢¤â¤¦°ìÅÙ¤ä¤êľ¤¹¤³¤È¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤·¤¿¤¤¤ó¤Ç¤¹¡£

º£¤Î¸½¾õ¡¢Î®¤ì¤È¤·¤Æ¤Ï

0¥¦¥£¥ó¥É¥¦(gsel 0, 1)±¦¥¯¥ê¥Ã¥¯¤Ç¥Ý¥Ã¥×¥¢¥Ã¥×
¹àÌÜ¥¯¥ê¥Ã¥¯¤ÇÊÌ¥¦¥£¥ó¥É¥¦¡Êgsel 3, 2¡Ë¥ê¥¹¥È¥Ü¥Ã¥¯¥¹É½¼¨

¡¨¡¡£Á
¡¨¡¡£Â
¡¨¡¡£Ã
¡¨¡¡½ªÎ»

¤³¤Î½ªÎ»¤ò£×¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­
¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤·¤Æ¤¤¤ë3¥¦¥£¥ó¥É¥¦¤òÊĤ¸¤Æ
ºÇ½é¤Î0¥¦¥£¥ó¥É¥¦¤òɽ¼¨¤µ¤»±¦¥¯¥ê¥Ã¥¯¤Ë¤Æ¥Ý¥Ã¥×¥¢¥Ã¥×ɽ¼¨¡¦¡¦¡¦

¤È¡¢·«¤êÊÖ¤·¤Ç¤­¤ë¤è¤¦¤Ë¤·¤¿¤¤¤ó¤Ç¤¹¤¬

¤É¤¦¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£

0¥¦¥£¥ó¥É¥¦¤È¤ÏÊ̤Υ¹¥¯¥ê¥×¥È¤Ç

¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤µ¤»¤ë¤¿¤á¤Î¥¹¥¯¥ê¥×¥È¤Ï

bgscr 3,125,185,,50,50,,
bgscr 2,300,300,2,100,100,100,158

gsel 3,2

; WM_COMMAND
oncmd gosub *command, $111
onclick gosub *onjump1

objsize 125,170

listbox a, 60, " \n 1R £Á\n 2R £Â\n 3R £Ã\n 4R ½ªÎ»"
hListbox = objinfo(stat, 2)
GetWindowLong hListbox, -16
SetWindowLong hListbox, -16, stat | 1;LBS_NOTIFY

width , , xpos, ypos

stop

*command
if lparam = hListbox {
if HIWORD(wparam) = 2 {
if a == 1 : bgscr 2,300,300,2,100,100,100,158 : picload "£Á.jpg" ,1 : gsel 2,2
if a == 2 : bgscr 2,300,300,2,100,100,100,158 : picload "£Â.jpg" ,1 : gsel 2,2
if a == 3 : bgscr 2,300,300,2,100,100,100,158 : picload "£Ã.jpg" ,1 : gsel 2,2
if a == 4 : gosub *exit
width , , xpos, ypos

}
}

return
*onjump1
gsel 2, -1
gsel 3, 2

return

**********************************************************


¸µ¤Î¥á¥¤¥ó¤È¤Ê¤ë¥¹¥¯¥ê¥×¥È¤Ë

*exit
; ¸½ºß¤ÎxºÂɸÃÍ¡¢yºÂɸÃͤòÊݸ
notesel buf
noteadd "[WINDOW posx] "+ginfo(4), 0, 1
noteadd "[WINDOW posy] "+ginfo(5), 1, 1
notesave "windowpos.ini"
end

¤È¡¢½ñ¤¤¤Æ¤¤¤Þ¤¹¡£


¤É¤³¤ò¤É¤¦ºÜ¤»¤ÆÀâÌÀ¤¹¤ì¤Ð¤¤¤¤¤Î¤«

¤ï¤«¤é¤Ê¤¤¤Î¤Ç¤ï¤«¤ê¤Å¤é¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢

µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


¤Á¤ç¤Á¤ó¤Á¤ã

¥ê¥ó¥¯

2010/5/6(Thu) 11:52:35|NO.32471

****Äɵ­¤Ç¤¹*****

¥á¥¤¥ó¤È¤Ê¥¹¥¯¥ê¥×¥È¤Ë¤Ï²¼µ­¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤Þ¤¹¡£
¥¸¥ã¥ó¥×¤·¤ÆÆɤ߹þ¤ó¤ÀÀ褬Àè¤Û¤É½ñ¤¤¤¿¥ê¥¹¥È¥Ü¥Ã¥¯¥¹É½¼¨¤Ë¤Ê¤ê¤Þ¤¹¡£


#include "user32.as"
#define ctype HIWORD(%1) (%1 >> 16 & $FFFF)
#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2
bgscr 0,300,300,0,,,110,20
picload "dekadepth.jpg" ,1

gsel 0,2
onclick gosub *onjump ; ¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯»þ
onexit *exit1

CreatePopupMenu
hMenu.1 = stat
AppendMenu hMenu.1, 0, $1, "AA"
AppendMenu hMenu.1, 0, $2, "BB"
AppendMenu hMenu.1, 0, $3, "CC"
AppendMenu hMenu.1, $800,0, "¡¡"
AppendMenu hMenu.1, 0, 0, "½ªÎ»"

stop


*onjump

if wparam == 1 {
cursel = ginfo_sel : gsel ginfo_act
sendmsg hwnd ,$a1,2,z
gsel cursel

}
gsel 0,2
xpos = ginfo_wx1;¥¦¥£¥ó¥É¥¦¤Îº¸¾åXºÂɸ
ypos = ginfo_wy2;¥¦¥£¥ó¥É¥¦¤Î±¦²¼YºÂɸ



if wparam = 2 {
TrackPopupMenu hMenu.1, $100, ginfo(0), ginfo(1), 0, hwnd, 0
if stat = 0 : goto *exit ; ¥¢¥×¥ê½ªÎ»
if stat = $1 : goto *A
if stat = $2 : goto *B
if stat = $3 : goto *C

return
}

return


*A
#include "a.hsp"
*B
#include "b.hsp"
*C
#include "c.hsp"


exist "windowpos.ini"
if strsize != -1 {
; Á°²ó¤ÎxºÂɸÃÍ¡¢yºÂɸÃͤòÆɤ߹þ¤à
notesel buf
noteload "windowpos.ini"
noteget posx, 0
noteget posy, 1
}

screen , 200, 200, 2, int(posx), int(posy)

onexit *exit

gsel 0, 1

stop


*exit
; ¸½ºß¤ÎxºÂɸÃÍ¡¢yºÂɸÃͤòÊݸ
notesel buf
noteadd "[WINDOW posx] "+ginfo(4), 0, 1
noteadd "[WINDOW posy] "+ginfo(5), 1, 1
notesave "windowpos.ini"
end


*error
screen 0,250,50,2
dialog "¥¨¥é¡¼¤Ç¤¹¡£²¼¤Î¿ô»ú¤òÊó¹ð¤·¤Æ¤¯¤À¤µ¤¤¡£\n"+"\n1 : "+wparam+"\n2 : "+lparam+"\n3 : "+iparam,1,"¥¨¥é¡¼"
goto *exit

*exit1
; ¤É¤³¤Î¥¦¥£¥ó¥É¥¦¤Ë¤âÄ¥¤êÉÕ¤¤¤Æ¤¤¤Ê¤¤¥á¥Ë¥å¡¼¤ÏÌÀ¼¨Åª¤ËÇË´þ
DestroyMenu hMenu.1

end



´õ˾¤È¤·¤Æ¤Ïº£¤Î¤³¤Î¥¹¥¯¥ê¥×¥È¤òÊѤ¨¤º¤Ë

·«¤êÊÖ¤·¤¹¤ë°Ù¤Î¥¹¥¯¥ê¥×¥È¤ò­¤·¤¿¤¤¤Ç¤¹¡£

µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£



¥Æ¥Ã¥¯

¥ê¥ó¥¯

2010/5/6(Thu) 14:25:21|NO.32475

¼ÁÌä¤ÎÆâÍƤ¬¡¢¤È¤Æ¤âÊ£»¨¤Ë¤Ê¤Ã¤Æ¤Þ¤¹¤Í¡Á¡£
¤Á¤ç¤Ã¤ÈÀ°Íý¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

£±¡¥¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤µ¤»¤ë¤¿¤á¤Î¥¹¥¯¥ê¥×¥È¤È
¡¡¥á¥¤¥ó¤Î¥¹¥¯¥ê¥×¥È¤Ï¡¢Ê̤ΣȣӣХե¡¥¤¥ë¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
¢¨Ãí°Õ½ñ¤­¤Ë¤â¤¢¤ê¤Þ¤¹¤¬¡¢¥¹¥¯¥ê¥×¥È¤Ï¡¢
¡¡È¾³Ñ¤Î¡ãpre¡ä¡Á¡ã/pre¡ä¤Ç°Ï¤ó¤À¤Û¤¦¤¬¤¤¤¤¤Ç¤¹¡£
¡¡¤½¤¦¤¹¤ì¤Ð¡¢°Ê²¼¤ÎÎã¤Î¤è¤¦¤Ë°Ï¤ó¤À²Õ½ê¤Î¥Æ¥­¥¹¥È¥«¥é¡¼¤¬ÊѤï¤ê¡¢
¡¡¥¹¥¯¥ê¥×¥È¤È¥¹¥¯¥ê¥×¥È°Ê³°¤Î¶èÊ̤¬ÉÕ¤­¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£
¡¡¤Þ¤¿Ê̤ΣȣӣХե¡¥¤¥ë¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢
¡¡°Ê²¼¤ÎÎã¤Î¤è¤¦¤Ë⤷½ñ¤­¤òµ­ºÜ¤·¤¿¤Û¤¦¤¬¤¤¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£

[¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤µ¤»¤ë¤¿¤á¤Î¥¹¥¯¥ê¥×¥È¤Î¥Õ¥¡¥¤¥ë̾.hsp]

¡¡¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤µ¤»¤ë¤¿¤á¤Î¥¹¥¯¥ê¥×¥È¤ÎÆâÍÆ

[¥á¥¤¥ó¤Î¥¹¥¯¥ê¥×¥È¤Î¥Õ¥¡¥¤¥ë̾.hsp]

¡¡¥á¥¤¥ó¤Î¥¹¥¯¥ê¥×¥È¤ÎÆâÍÆ

£²¡¥º£¤Î¾õ¶·¤Ï¡¢
¡¡­¡¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤Ê¤·¡¦ÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤¬É½¼¨¤µ¤ì¤ë
¡¡­¢¥¦¥£¥ó¥É¥¦¤ò±¦¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¡ÖAA¡×¡ÖBB¡×¡ÖCC¡×¡Ö½ªÎ»¡×¤Î
¡¡¡¡¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬É½¼¨¤µ¤ì¤ë¡£
¡¡­£¡ÖAA¡×¡ÖBB¡×¡ÖCC¡×¤Î¤¤¤º¤ì¤«¤òÁªÂò¤¹¤ë¤È¡¢
¡¡¡¡½é´ü¤Î¥¿¥¤¥È¥ë¥Ð¡¼¡¦ÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤¬¾Ã¤¨¤Æ¡¢
¡¡¡¡¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤¢¤ê¤Î¥¦¥£¥ó¥É¥¦¤¬É½¼¨¤µ¤ì¤ë

°Ê¾å¤Î¾õ¶·¤Ç¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©
£³¡¥¼ÁÌä¤ÎÆâÍƤϡ¢
¡¡­¤¾åµ­­£¤Î¾õÂ֤ǡ¢¥¦¥£¥ó¥É¥¦¤ò±¦¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¡ÖAA¡×¡ÖBB¡×¡ÖCC¡×¡Ö½ªÎ»¡×¤Î
¡¡¡¡¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬É½¼¨¤µ¤ì¤ë¡£
¡¡­¥¡Ö½ªÎ»¡×¤òÁªÂò¤¹¤ë¤È¡¢¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤¢¤ê
¡¡¤Î¥¦¥£¥ó¥É¥¦¤¬¾Ã¤¨¤Æ¡¢­¡¤Î¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤Ê¤·¡¦
¡¡¡¡¡¡ÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤òɽ¼¨¤·¤¿¤¤
¡¡¤È¤¤¤¦¤³¤È¤Ç¤è¤í¤¤¤Ç¤·¤ç¤¦¤«¡©

¾åµ­¤Î¼ÁÌäÆâÍƤǤ¢¤ì¤Ð¡¢
¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤Ê¤·¤È
¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤¢¤ê¤Î¼Â¹Ô¥Õ¥¡¥¤¥ë¤ò
ÊÌ¡¹¤ËºîÀ®¤·¡¢
exec "filename"Ì¿Îá¤Ç¼Â¹Ô¤¹¤ëÊýË¡¤«¡¢

run "filename"Ì¿Îá¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ËÀ©¸æ¤ò°Ü¤¹ÊýË¡¤¬
¤¢¤ë¤È»×¤ï¤ì¤Þ¤¹¡£
¢¨runÌ¿Îá¤Ç»ØÄꤹ¤ë¥Õ¥¡¥¤¥ë̾¤Ï¡¢
£È£Ó£Ð¥¹¥¯¥ê¥×¥È¥¨¥Ç¥£¥¿¤Î¥á¥Ë¥å¡¼¡Ö£È£Ó£Ð¡×¡Ý¡Ö¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ëºîÀ®¡×
¤ÇºîÀ®¤·¤¿³ÈÄ¥»Ò¤¬AX¤Î¥Õ¥¡¥¤¥ë¤Ç¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£



¤Á¤ç¤Á¤ó¤Á¤ã

¥ê¥ó¥¯

2010/5/6(Thu) 19:27:19|NO.32494

¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¡Ê¥á¥¤¥ó¤È¤Ê¤ë¥¹¥¯¥ê¥×¥È¡Ë

#include "user32.as" #define ctype HIWORD(%1) (%1 >> 16 & $FFFF) #define WM_NCLBUTTONDOWN $000000A1 #define HTCAPTION 2 bgscr 0,300,300,0,,,110,20 picload "dekadepth.jpg" ,1 gsel 0,2 onclick gosub *onjump ; ¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯»þ onexit *exit1 CreatePopupMenu hMenu.1 = stat AppendMenu hMenu.1, 0, $1, "AA" AppendMenu hMenu.1, 0, $2, "BB" AppendMenu hMenu.1, 0, $3, "CC" AppendMenu hMenu.1, $800,0, "¡¡" AppendMenu hMenu.1, 0, 0, "½ªÎ»" stop *onjump if wparam == 1 { cursel = ginfo_sel : gsel ginfo_act sendmsg hwnd ,$a1,2,z gsel cursel } gsel 0,2 xpos = ginfo_wx1;¥¦¥£¥ó¥É¥¦¤Îº¸¾åXºÂɸ ypos = ginfo_wy2;¥¦¥£¥ó¥É¥¦¤Î±¦²¼YºÂɸ if wparam = 2 { TrackPopupMenu hMenu.1, $100, ginfo(0), ginfo(1), 0, hwnd, 0 if stat = 0 : goto *exit ; ¥¢¥×¥ê½ªÎ» if stat = $1 : goto *A if stat = $2 : goto *B if stat = $3 : goto *C return } return *A #include "a.hsp" *B #include "b.hsp" *C #include "c.hsp" exist "windowpos.ini" if strsize != -1 { ; Á°²ó¤ÎxºÂɸÃÍ¡¢yºÂɸÃͤòÆɤ߹þ¤à notesel buf noteload "windowpos.ini" noteget posx, 0 noteget posy, 1 } screen , 200, 200, 2, int(posx), int(posy) onexit *exit gsel 0, 1 stop *exit ; ¸½ºß¤ÎxºÂɸÃÍ¡¢yºÂɸÃͤòÊݸ notesel buf noteadd "[WINDOW posx] "+ginfo(4), 0, 1 noteadd "[WINDOW posy] "+ginfo(5), 1, 1 notesave "windowpos.ini" end *error screen 0,250,50,2 dialog "¥¨¥é¡¼¤Ç¤¹¡£²¼¤Î¿ô»ú¤òÊó¹ð¤·¤Æ¤¯¤À¤µ¤¤¡£\n"+"\n1 : "+wparam+"\n2 : "+lparam+"\n3 : "+iparam,1,"¥¨¥é¡¼" goto *exit *exit1 ; ¤É¤³¤Î¥¦¥£¥ó¥É¥¦¤Ë¤âÄ¥¤êÉÕ¤¤¤Æ¤¤¤Ê¤¤¥á¥Ë¥å¡¼¤ÏÌÀ¼¨Åª¤ËÇË´þ DestroyMenu hMenu.1 end
¡ÊÊÌ¥¹¥¯¥ê¥×¥È¤Ç¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤µ¤»¤ë°Ù¤Î¥¹¥¯¥ê¥×¥È¡Ë
¡Ê#include "a.hsp"¡Ë

bgscr 3,125,185,,50,50,, bgscr 2,300,300,2,100,100,100,158 gsel 3,2 ; WM_COMMAND oncmd gosub *command, $111 onclick gosub *onjump1 objsize 125,170 listbox a, 60, " \n 1R £Á\n 2R £Â\n 3R £Ã\n 4R ½ªÎ»" hListbox = objinfo(stat, 2) GetWindowLong hListbox, -16 SetWindowLong hListbox, -16, stat | 1;LBS_NOTIFY width , , xpos, ypos stop *command if lparam = hListbox { if HIWORD(wparam) = 2 { if a == 1 : bgscr 2,300,300,2,100,100,100,158 : picload "£Á.jpg" ,1 : gsel 2,2 if a == 2 : bgscr 2,300,300,2,100,100,100,158 : picload "£Â.jpg" ,1 : gsel 2,2 if a == 3 : bgscr 2,300,300,2,100,100,100,158 : picload "£Ã.jpg" ,1 : gsel 2,2 if a == 4 : gosub *exit width , , xpos, ypos } } return *onjump1 gsel 2, -1 gsel 3, 2 return

¤È¡¢¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£

£²¡¥º£¤Î¾õ¶·¤Ï¡¢
¡¡­¡¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤Ê¤·¡¦ÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤¬É½¼¨¤µ¤ì¤ë
¡¡­¢¥¦¥£¥ó¥É¥¦¤ò±¦¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¡ÖAA¡×¡ÖBB¡×¡ÖCC¡×¡Ö½ªÎ»¡×¤Î
¡¡¡¡¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬É½¼¨¤µ¤ì¤ë¡£
¡¡­£¡ÖAA¡×¡ÖBB¡×¡ÖCC¡×¤Î¤¤¤º¤ì¤«¤òÁªÂò¤¹¤ë¤È¡¢
¡¡¡¡½é´ü¤Î¥¿¥¤¥È¥ë¥Ð¡¼¡¦ÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤¬¾Ã¤¨¤Æ¡¢
¡¡¡¡¥¿¥¤¥È¥ë¥Ð¡¼(ºÇ¾®²½¡¦ºÇŬ²½¡¦½ªÎ»¥Ü¥¿¥ó)¤¢¤ê¤Î¥¦¥£¥ó¥É¥¦¤¬É½¼¨¤µ¤ì¤ë


¢¬³ÎǧÆâÍƤǤ¹¤¬
­¢¤Î±¦¥¯¥ê¥Ã¥¯¤Ç¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¸¤ã¤Ê¤¯¤Æ¥Ý¥Ã¥×¥¢¥Ã¥×¤¬³«¤­¤Þ¤¹¡£
­£¤Î½é´ü¤ÎÏȤʤ·¥¦¥£¥ó¥É¥¦¤¬¾Ã¤¨¤Æ¤È¤¢¤ê¤Þ¤¹¤¬
¾Ã¤¨¤º¤ËºÇÁ°Ì̤Τޤޤ½¤Î¥¦¥£¥ó¥É¥¦¤Î¿¿²¼¤ËÊÌ¥¦¥£¥ó¥É¥¦¤Ç¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬³«¤­¤Þ¤¹¡£


¼ÁÌäÆâÍƤȤ·¤Þ¤·¤Æ¡¢

¤½¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¹àÌܤˤ¢¤ë½ªÎ»¤ò£×¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­¡¢
º£¤Î¥¹¥¯¥ê¥×¥È¤À¤È¥¸¥ã¥ó¥×Àè¤Ëend¤È¤¢¤ê¤Þ¤¹¤Î¤Ç
¥¢¥×¥ê¼«ÂΤ¬½ª¤ï¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤½¤ì¤ò½ª¤ï¤é¤»¤º¤Ë¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬¾Ã¤¨¤ÆºÇ½é¤ÎÏȤʤ·¤Î¥¦¥£¥ó¥É¥¦¤À¤±¤Î¾õÂ֤ˤ·
¾°³î¤Ä¤½¤Î¥¦¥£¥ó¥É¥¦¤ò±¦¥¯¥ê¥Ã¥¯¤Ë¤Æ¥Ý¥Ã¥×¥¢¥Ã¥×¡¦¡¦¡¦
¤È¡¢·«¤êÊÖ¤»¤ë¤è¤¦¤Ë¤·¤¿¤¤¤ó¤Ç¤¹¡£



¤Á¤ç¤Á¤ó¤Á¤ã

¥ê¥ó¥¯

2010/5/13(Thu) 10:16:22|NO.32633

¤ª¤Ï¤è¤¦¤´¤¶¤¤¤Þ¤¹¡£

¼«Ê¬¤Ê¤ê¤Ë¹Í¤¨¤Æ¤ä¤Ã¤Æ¤ß¤¿·ë²Ì¤Ê¤ó¤È¤«¤Ç¤­¤Þ¤·¤¿¤Î¤Ç

¤ªÅÁ¤¨¤·¤¿¤¯»²¤ê¤Þ¤·¤¿¡£

ÊÌ¥¹¥¯¥ê¥×¥È¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¹àÌÜ£×¥¯¥ê¥Ã¥¯È½Äê¤ÎÃæ¤Î




*command if lparam = hListbox { if HIWORD(wparam) = 2 { if a == 1 : bgscr 2,300,300,2,100,100,100,158 : picload "£Á.jpg" ,1 : gsel 2,2 if a == 2 : bgscr 2,300,300,2,100,100,100,158 : picload "£Â.jpg" ,1 : gsel 2,2 if a == 3 : bgscr 2,300,300,2,100,100,100,158 : picload "£Ã.jpg" ,1 : gsel 2,2 if a == 4 : gosub *exit




¤Î£´¹àÌÜ





if a == 4 : gosub *exit





¤ò





if a == 4 : gsel 2, -1 : gsel 3, -1 : gsel 0, 2 : goto *12345





¤È¡¢¤·¤Æ


¥á¥¤¥ó¥¹¥¯¥ê¥×¥È¤ÎºÇ½é¤ÎÉôʬ¡¢






#include "user32.as" #define ctype HIWORD(%1) (%1 >> 16 & $FFFF) #define WM_NCLBUTTONDOWN $000000A1 #define HTCAPTION 2 bgscr 0,300,300,0,,,110,20 picload "aaaaa.jpg" ,1





¤Î¥¦¥£¥ó¥É¥¦ÇÛÃÖ¤¹¤ëÉôʬbgscrÁ°¤Ë¡¢






#include "user32.as" #define ctype HIWORD(%1) (%1 >> 16 & $FFFF) #define WM_NCLBUTTONDOWN $000000A1 #define HTCAPTION 2 *12345;¤³¤³¤ØÈô¤Ð¤¹ bgscr 0,300,300,0,,,110,20 picload "dekadepth.jpg" ,1





¤È¤·¤¿¤é¡¢¤Ç¤­¤Þ¤·¤¿¡£


¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£



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