关于在多个PICTURE中每隔0.5s填入底色的代码

ygxshanghai 发布于 2019-08-18 22:15， 1564 次点击

想在多个PICTURE中，每隔0.5s，逐个在PICTURE填入底色，就象有的软件的启动时进度条一样，其代码如下（当然是不对的），请大侠修改，谢谢。
Option Explicit
Dim i As Integer

Private Sub Form_Load()
For i = 0 To 8
Timer1.Interval = 1000
Next i
End Sub

Private Sub Timer1_Timer()
Picture1(i).BackColor = &HC0C0FF
End Sub

1 回复

wufuzhang2019-08-19 09:14

回复楼主 ygxshanghai

程序代码：

Option Explicit

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Static i As Integer
  If i <= 15 Then
     Picture1(i).BackColor = &HC0C0FF
  Else
     For i = 0 To 15
         Picture1(i).Visible = False
     Next
  End If
  i = i + 1
End Sub