by Choosing Corporation (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 13th December 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code create a mini movie in a picturebox from a picture control array.
VBcoders
' E-Mail: [email protected]
' Until the movie you can't do anything
' Es: CreateMovie Picture1,Picture2,1000
Function Wait(WaitData)
Dim ORIGINAL_TIME
ORIGINAL_TIME = DateTime.Time
Do Until DateDiff("s", ORIGINAL_TIME, DateTime.Time, 0, 0) > Val(WaitData / 1000)
Loop
End Function
Function CreateMovie(objPictureArray As Object, objPictureResult As Object, WaitTime As Integer, Optional StartArray As Integer = 0, Optional EndArray As Integer)
Dim I As Integer
If EndArray = 0 Then EndArray = objPictureArray.Count
For I = StartArray To EndArray - 1
objPictureResult.Picture = objPictureArray(I).Picture
Wait (WaitTime)
Next I
End Function
No comments have been posted about This code create a mini movie in a picturebox from a picture control array.. Why not be the first to post a comment about This code create a mini movie in a picturebox from a picture control array..