• Home
 · 
• Graphics
 · 
• This code create a mini movie in a picturebox from a picture control array.

This code create a mini movie in a picturebox from a picture control array.

This code create a mini movie in a picturebox from a picture control array.

Rate This code create a mini movie in a picturebox from a picture control array.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' 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