if j<3
passyes=thisform.text1.value
do case
case i=0
if alltrim(passyes)="7119224".and.val("passyes")=7119224
yn=messagebox("请确定密码！" ,33," 操作提示")
if yn=1
thisform.text1.value=""
thisform.text1.setfocus
i=i+1
else
yn=2
thisform.release
endif
else
=messagebox("密码错！请重新输入！",64,"操作提示")
thisform.text1.value=""
return 0
j=j+1
endif
case i=1
if alltrim(passyes)="7119224".and.val("passyes")=7119224
thisform.image1.visible=.t.
else
=messagebox("重试失败！",64,"操作提示")
thisform.text1.value=""
return 0
i=i-1
endif
case i=2

otherwise
endcase
endif
if j>=3
wait "非法用户！！！请退出！！！" window at 10,25 timeout 5
thisform.timer1.enabled=.t.
endif
&***********************************************************************&

*****************************************************************************
做一个流动的标签
do case
case i=0
*if thisform.label6.left>=0
thisform.label6.left=thisform.label6.left+2
thisform.label6.top=thisform.label6.top-2
*endif
if thisform.label6.top<0
i=1
endif
case i=1
*if thisform.label6.top<0
thisform.label6.left=thisform.label6.left+2
thisform.label6.top=thisform.label6.top+2
if thisform.label6.left>420
i=2
endif
*endif
case i=2
thisform.label6.left=thisform.label6.left-2
thisform.label6.top=thisform.label6.top+2
if thisform.label6.top>360
i=3
endif
case i=3
thisform.label6.left=thisform.label6.left-2
thisform.label6.top=thisform.label6.top-2
if thisform.label6.left<=0
i=0
endif
endcase
********************************************************
做一个收放的照片
public i
do case
case i=0
if thisform.image2.height>1
thisform.image2.width=thisform.image2.width-3
thisform.image2.height=thisform.image2.height- 2
else
i=1
endif
case i=1
if thisform.image2.height<217
thisform.image2.width=thisform.image2.width+3
thisform.image2.height=thisform.image2.height+ 2
else
i=0
endif
endcase
************************************************************
做一个跳动的标签
if thisform.label1.left+1068>0
thisform.label1.left=thisform.label1.left-10
else
thisform.label1.left=770
endif
if thisform.label2.left-768<0
thisform.label2.left=thisform.label2.left+10
else
thisform.label2.left=-1400
endif
public i
do case
case i=0
*if thisform.label6.left>=0
thisform.label6.left=thisform.label6.left+2
thisform.label6.top=thisform.label6.top-2
*endif
if thisform.label6.top<0
i=1
endif
case i=1
*if thisform.label6.top<0
thisform.label6.left=thisform.label6.left+2
thisform.label6.top=thisform.label6.top+2
if thisform.label6.left>420
i=2
endif
*endif
case i=2
thisform.label6.left=thisform.label6.left-2
thisform.label6.top=thisform.label6.top+2
if thisform.label6.top>360
i=3
endif
case i=3
thisform.label6.left=thisform.label6.left-2
thisform.label6.top=thisform.label6.top-2
if thisform.label6.left<=0
i=0
endif
endcase

**&&&&&&&&&&&&&&&&&&*&*&&******************
do case
case i=0
if thisform.label1.left+840>0
thisform.label1.left=thisform.label1.left-20
else
thisform.label1.left=768
j=j+1
endif
if j>=2
i=1
thisform.label1.left=0
endif
case i=1

*tn=thisform.label1.forecolor
do case
case k=0
thisform.label1.fontsize=38
thisform.label1.caption="欢迎你的进入！"
*tn=tn+20
thisform.label1.forecolor=rgb(0,250,0)
thisform.label1.left=thisform.label1.left+2
thisform.label1.top=thisform.label1.top-2

if thisform.label1.top<0
k=1
endif
case k=1
thisform.label1.fontsize=38
thisform.label1.caption="请继续浏览！"
*tn=tn+20
thisform.label1.forecolor=rgb(200,255,0)
thisform.label1.left=thisform.label1.left+2
thisform.label1.top=thisform.label1.top+2
if thisform.label1.left>420
k=2
endif
*endif
case k=2
thisform.label1.fontsize=38
thisform.label1.caption="你想休息一下吗？"
*tn=tn+20
thisform.label1.forecolor=rgb(250,50,100)
thisform.label1.left=thisform.label1.left-2
thisform.label1.top=thisform.label1.top+2
if thisform.label1.top>360
k=3
endif
case k=3
thisform.label1.fontsize=38
thisform.label1.caption="好看的在后边呢！"
*tn=tn+20
thisform.label1.forecolor=rgb(60,50,250)
thisform.label1.left=thisform.label1.left-2
thisform.label1.top=thisform.label1.top-2
if thisform.label1.left<=0
k=0
endif
endcase
endcase
&*********************************************************&
*gt=thisform.image1.top
*tn=thisform.image1.left
do case
case i=0
thisform.image1.top=thisform.image1.top-20
if thisform.image1.top<0
i=1
endif
case i=1
thisform.image1.top=thisform.image1.top+20
thisform.image1.left=thisform.image1.left+20
if thisform.image1.left>770
i=2
endif
case i=2
thisform.image1.top=thisform.image1.top+20
thisform.image1.left=thisform.image1.left-20
if thisform.image1.top>432
i=3
endif
case i=3
thisform.image1.left=thisform.image1.left-20
thisform.image1.top=thisform.image1.top-20
if thisform.image1.left<0
i=4
endif
case i=4
thisform.image1.left=thisform.image1.left+20
thisform.image1.top=thisform.image1.top-20
if thisform.image1.top<0
i=1
endif
endcase
*n1=thisform.image1.height
*n2=thisform.image1.width
do case
case j=0
thisform.image1.height=thisform.image1.height-10
thisform.image1.width=thisform.image1.width-10
if thisform.image1.height<50
j=1
endif
case j=1
thisform.image1.height=thisform.image1.height+10
thisform.image1.width=thisform.image1.width+10
if thisform.image1.height>400
j=0
endif
endcase