
(1)命令按扭Command1的事件代码:
Thisform.Timer1.Enabled=.T.
(2)命令按扭Command2的事件代码:
Thisform.Timer1.Enabled=.F.
(3)表单Form1的Init事件:
Thisform.Timer1.Interval=500
Thisform.Timer1.Enabled=.F.
(4)计时器Timer1的Timer事件:
IF Thisform.Shape1.Top=0
Thisform.Shape1.Top=Thisform.Height-Thisform.Shape1.Height
ELSE
Thisform.Shape1.Top=0
ENDIF
Thisform.Refresh
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)