oncmd¤Î¥Ð¥°¤Ã¤Ý¤¤¤Ç¤¹¡£
¡Öoncmd 1¡×¤ò»ÈÍѤ·¤¿¾ì¹ç
¾¤Î¥¦¥¤¥ó¥É¥¦¤Î¼õ¤±¼è¤Ã¤¿¥á¥Ã¥»¡¼¥¸¤¬¡¢ºÇ¸å¤Ë¡Öoncmd 1¡×¤ò¼Â¹Ô¤·¤¿¥¦¥¤¥ó¥É¥¦¤Ë¤Î¤ßÈ¿±Ç¤µ¤ì¤ë¤è¤¦¤Ç¤¹¡£
¡Ö#module¡×¡Ö#global¡×¤Ç¶èÀڤäƤâÊѤï¤é¤Ê¤¤¤ß¤¿¤¤¤Ç¤¹¡£
¾¤Î¥¦¥¤¥ó¥É¥¦¤Ç¼õ¤±¼è¤Ã¤¿¥á¥Ã¥»¡¼¥¸¤ò°ì¤Ä¤Î¥¦¥¤¥ó¥É¥¦¤ËÈ¿±Ç¤ò½¸Ã椵¤»¤ë¤³¤È¤¬ÍưפˤʤäƤ¤¤ë¤ß¤¿¤¤¤Ç¤¹¤¬
oncmd¤ÇÆÃÄꥦ¥¤¥ó¥É¥¦¤Î¤ß¤Î½èÍý¤òÃæÃǤµ¤»¤ë¤Ë¤Ï
°ÜÆ°Àè¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤ÇȽÄꤹ¤ë¤·¤«¤Ê¤¤¤ß¤¿¤¤¤Ç¤¹¤Í¡£
#const global WM_NCLBUTTONDBLCLK $000000A3
#const global WM_MOVE 0x0003
/*moduleA*/
#module a
#deffunc AA_
screen 0
mes "screen A : ¥¿¥¤¥È¥ë¥Ð¡¼¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·¤Æ¤ß¤Æ²¼¤µ¤¤"
input a
oncmd gosub *wm_command,$111
oncmd gosub *WM_NCLBUTTONDBLCLK__ , WM_NCLBUTTONDBLCLK ;¥¿¥¤¥È¥ë¥Ð¡¼¥À¥Ö¥ë¥¯¥ê¥Ã¥¯
return
#deffunc oncmd_0_AA_
gsel 0
oncmd 0
return
*wm_command
mes "wm_command"
return
*WM_NCLBUTTONDBLCLK__
mes "¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤µ¤ì¤Þ¤·¤¿ : ¥«¥¦¥ó¥È"+str(i)
i++
return
#global
/*moduleB*/
#module b
#deffunc BB_
screen 1
mes "screenB"
mes "¤³¤Îwindow¤ò°ÜÆ°¤·¤Æ¤ß¤Æ²¼¤µ¤¤¡¢¥¹¥¯¥ê¡¼¥óD¤Î¥¿¥¤¥È¥ë¤¬ÊѤï¤ê¤Þ¤¹"
oncmd gosub *WM_MOVE__ , WM_MOVE
return
*WM_MOVE__
title "¥¹¥¯¥ê¡¼¥ó£±¤ò°ÜÆ°¤·¤Þ¤·¤¿ : ¥«¥¦¥ó¥È"+str(i)
i++
return
#global
/*moduleC*/
#module c
#deffunc CC_
screen 2
mes "screenC"
input b
oncmd 1 ;oncmd 1¤ÎÄêµÁ
return
#global
/*moduleC*/
#module d
#deffunc DD_
screen 3
gsel 3 , 2
mes "screenD"
oncmd gosub *WM_NCLBUTTONDBLCLK__ , WM_NCLBUTTONDBLCLK
oncmd 1 ;oncmd 1¤ÎÄêµÁ
return
#deffunc oncmd_1_DD
oncmd 1
return
*WM_NCLBUTTONDBLCLK__
mes "¥À¥Ö¥ë¥¯¥ê¥Ã¥¯"
return
#global
#const time_ 1000
AA_ : BB_ : CC_ : DD_
wait time_ : gsel 3 : cls : color 255,0,0 : mes "[wait "+str(1000)+" ¤¬·Ð²á¤·¤Þ¤·¤¿\noncmd 0 ¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹]" : color 0,0,0
oncmd_0_AA_
wait time_ : gsel 3 : cls : color 255,0,0 : mes "[oncmd 1 ¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹\nwait "+str(1000)+" ¤¬·Ð²á¤·¤Þ¤·¤¿]" : color 0,0,0
oncmd_1_DD