为爱痴狂GAO33

靖江GAO33-永远的快乐家园

22 成员126 主题60 回复0 张照片

FoxPro 6.0 绝对机密

轻
轻风轻雨
2001-11-01 15:47
左右,上下移动Timer*****Timer**
if thisform.image1.left+500>0
this.parent.image1.left=this.parent.image1.left-10
else
thisform.image1.left=400
endif
if thisform.image2.top+500>0
this.parent.image2.top=this.parent.image2.top-10
else
thisform.image2.top=400
endif
************************************************************
左右伸缩画面****Timer***Timer***
if thisform.image1.width<=400
thisform.image1.width= thisform.image1.width+2
* thisform.image1.top= thisform.image1.top+2
else
if thisform.image1.width=402
thisform.timer1.enabled=.f.
thisform.timer2.enabled=.t.
endif
endif
***************************
****Timer2****Timer2***
if thisform.image1.width>=4
thisform.image1.width= thisform.image1.width-2
*thisform.image1.top= thisform.image1.top-2
else
if thisform.image1.width=2
thisform.timer1.enabled=.t.
thisform.timer2.enabled=.f.
endif
endif
**********************************************************
属性Interval 60 left 36 top 12 width 25
***************************************************************
窗帘式画面
if thisform.label1.width>10
thisform.label1.width=thisform.label1.width-3
thisform.label2.left=thisform.label2.left+3
else
if thisform.label1.width<=10
thisform.label1.width=thisform.label1.width+3
thisform.label2.left=thisform.label2.left+3
endif
endif
**********************
******Timer2*********8
if thisform.image2.top<84
thisform.image2.visible=.t.
thisform.image2.top=thisform.image2.top+2
*thisform.image2.width=thisform.image2.width+1
else
thisform.image2.top=84
endif
*******************************************************************












婕
婕儿
2002-03-03 15:30
眼花
--缭乱
1 / 1

登录后回复。