求助

Question

怎么样写代码才能让图片框在规定的时间内变化图片呀!本人不知道怎么在TIMER属性里写代码呀,请指教!

Answer 1

Dim pFlag As Boolean
Private Sub Form_Load()
Timer1.Interval = 1000'定时一秒
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
pFlag = Not pFlag
If pFlag Then
Picture1.Picture = LoadPicture("c:\aa.bmp")
Else
Picture1.Picture = LoadPicture("c:\dd.bmp")'轮番显示图片
End If
End Sub

Answer 2

Option Explicit
Dim a(5) As String
Dim i As Integer
Private Sub Form_Load()
    Timer1.Interval = 500
    Timer1.Enabled = True
    For i = 1 To 5
      a(i) = "d:\bmp\bmp" + Trim(Str(i)) + ".img"
    Next i
End SubPrivate Sub Timer1_Timer()
    If i > 5 Then i = 1
    Picture1.Picture = LoadPicture(a(i))
End Sub