|
本帖最后由 ge 于 2018-1-22 18:43 编辑
谢谢!但是我还是有问题!
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
SET ::WM_LBUTTONDOWN=0x0201
FROM
_SUB FROM,W500H580,中國象棋,,#2
ENVI ZZF=R
ENVI YZZ=
ENVI BCD=
IMAG Image1,L42T40W403H447,F:\遊戲\象棋\Piece\MiniBoard.bmp,*
ENVI @Image1.MSG=0x0201: CALL ZZJS、、好像是只有这个可以执行
LABE LabelR01,L45T45W40H40,車,*,0x0000ff#0x00ffff,30
ENVI @LabelR01.MSG=0x0201: FIND $%ZZF%=R,ENVI YZZ=LabelR01! TEAM ENVI BCD=LabelR01 | CALL ZZJS、、点击这个没有动作!这个控件也是在图片框上面的
_END
_SUB ZZJS
ENVI @FROM.Cur=?L;T
CALC L=int(%L%/40)*40
CALC T=int(%T%/40)*40
FIND $%BCD%=Image1,! ENVI @%BCD%.Visible=0
ENVI @%YZZ%.POS=%L%:%T%
_END
|
|