Timer控件的使用问题
答案:2 悬赏:50 手机版
解决时间 2021-04-13 18:46
- 提问者网友：世勋超人
- 2021-04-13 08:15
标签1.left=标签1.left 100,当标签1.left=2080时标签1.left递减100
最佳答案
- 五星知识达人网友：末日狂欢
- 2021-04-13 08:41
Dim flag As Boolean
Private Sub Form_Load()
Timer1.Interval = 5000
Timer2.Interval = 500
Image1.Left = 0
End Sub
Private Sub Timer1_Timer()
If Image1.Left <= 0 Then
flag = False
ElseIf Image1.Left >= 2080 Then
flag = True
End If
If flag = False Then
Image1.Left = Image1.Left + 100
Else
Image1.Left = Image1.Left - 100
End If
End Sub
全部回答
- 1楼网友：逐風
- 2021-04-13 09:41
就在ontimer事件里面就写好了啊，做个判断
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯