ckcolor" ELSE c="thisformmandgroup1mand"+ALLTRIM(STR(i))+".backcolor" endif IF thisformmandgroup1mand105.top=&;a AND thisformmandgroup1mand105.left=&;b+30 AND &;c=RGB(255,255,255) FOR i=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(i))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(i))+".left" IF &;e=thisformmandgroup1mand105.top AND &;f=thisformmandgroup1mand105.left-30 &;f=&;f-30 endif ENDFOR thisformmandgroup1mand105.left=thisformmandgroup1mand105.left30 ENDIF ENDFOR
ENDIF *-----------------------右方向的 CASE nkeycode=4 FOR k=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(k))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(k))+".left" IF &;e=thisformmandgroup1mand105.top &;f=thisformmandgroup1mand105.left+30 n=n+1 exit ENDIF ENDFOR FOR k=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(k))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(k))+".left" IF n=1 IF &;e=thisformmandgroup1mand105.top &;f=thisformmandgroup1mand105.left+60 t=t+1 ENDIF endif ENDFOR IF t=0 FOR i=1 TO 99 a="thisformmandgroup1mand"+ALLTRIM(STR(i))+".top" b="thisformmandgroup1mand"+ALLTRIM(STR(i))+".left" IF n=1 c="thisformmandgroup1mand"+ALLTRIM(STR(i+1))+".backcolor" ELSE c="thisformmandgroup1mand"+ALLTRIM(STR(i))+".backcolor" endif IF thisformmandgroup1mand105.top=&;a thisformmandgroup1mand105.left=&;b-30 AND &;c=RGB(255,255,255) FOR i=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(i))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(i))+".left" IF &;e=thisformmandgroup1mand105.top &;f=thisformmandgroup1mand105.left+30 &;f=&;f+30 endif ENDFOR
AND
AND
AND
AND
thisformmandgroup1mand105.left=thisformmandgroup1mand105.left+30 ENDIF
ENDFOR endif *-----------------------上方向的 CASE nkeycode=5 FOR k=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(k))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(k))+".left" IF &;e=thisformmandgroup1mand105.top-30 AND &;f=thisformmandgroup1mand105.left n=n+1 exit ENDIF ENDFOR FOR k=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(k))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(k))+".left" IF n=1 IF &;e=thisformmandgroup1mand105.top-60 AND &;f=thisformmandgroup1mand105.left t=t+1 ENDIF endif ENDFOR IF t=0 FOR i=11 TO 100 a="thisformmandgroup1mand"+ALLTRIM(STR(i))+".top" b="thisformmandgroup1mand"+ALLTRIM(STR(i))+".left" IF n=1 c="thisformmandgroup1mand"+ALLTRIM(STR(i-10))+".backcolor" ELSE c="thisformmandgroup1mand"+ALLTRIM(STR(i))+".backc
olor" endif IF thisformmandgroup1mand105.top=&;a+30 AND thisformmandgroup1mand105.left=&;b AND &;c=RGB(255,255,255) FOR i=101 TO 104 e="thisformmandgroup1mand"+ALLTRIM(STR(i))+".top" f="thisformmandgroup1mand"+ALLTRIM(STR(i))+".left" IF &;e=thisformmandgroup1mand105.top-30 AND &;f=thisformmandgroup1mand105.left &;e=&;e-30 endif ENDFOR thisformmandgroup1mand105.top=thisformmandgroup1mand105.top30
ENDIF ENDFOR ENDIF CASE nkeycode=27 IF MESSAGEBOX("你真的退出吗??",4+32+0,"退出提示")=6 thisform.release ENDIF ENDCASE endproc PROCEDURE load PUBLIC n,t n=0 t=0 ENDPROC PROCEDURE timer1.timer PUBLIC q q=0 FOR k=101 TO 104 e="thisformmandgroup1mand"+AL