by Brandon (46 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 7th December 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
a neat little image clip...flashes different images like you see on websites
API Declarations
Private i As Integer
'put a timer on your form.
'in the procedure store images, locate your own files
'on your pc and enter replace the file path where your
'pictures are located.
'watch this, now you have an animated picture clip.
Private Sub Form_Load()
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 1000
StoreImages
For i = 1 To 5
Picture1.Picture = LoadPicture(PictureArray(i))
Next i
End Sub
Sub StoreImages()
PictureArray(1) = "c:\America Online 6.0\download\\My Pics\Brandon1.jpg"
PictureArray(2) = "c:\America Online 6.0\download\My Pics\Brandon2.jpg"
PictureArray(3) = "c:\America Online 6.0\download\My Pics\Brandon3.jpg"
PictureArray(4) = "c:\America Online 6.0\download\My Pics\Brandon4.jpg"
PictureArray(5) = "c:\America Online 6.0\download\Other Pics\Brandie2.jpg"
End Sub
No comments have been posted about a neat little image clip...flashes different images like you see on websites. Why not be the first to post a comment about a neat little image clip...flashes different images like you see on websites.