数据库表单设计
发布网友
发布时间:2022-05-09 20:43
我来回答
共1个回答
热心网友
时间:2023-10-18 18:29
答案:(属性curvature设置为99 backcolor)
(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