请问如何让获取的flash文件随机播放？
请问如何让获取的flash文件随机播放？放完后再随机重复
On Error GoTo Err:
Static a As Long
Static b As Integer
Dim OBJ As Object
Set OBJ = IIf(playform.Visible = False, Me.Flash1, playform.ShockwaveFlash1)
b = IIf(a = OBJ.CurrentFrame, b + 1, 0)
If b > 80 Then OBJ.Playing = True
Caption = b
If b > 200 Or a + 1 >= OBJ.TotalFrames Then
b = 0
If File1.ListIndex < File1.ListCount Then
File1.Selected(File1.ListIndex + 1) = True
Else
File1.Selected(0) = True
End If
OBJ.Movie = Dir1 + "\" + File1.FileName
End If
a = OBJ.CurrentFrame
Set OBJ = Nothing
Exit Sub
Err:
b = 0
Set OBJ = Nothing
End Sub
[ 本帖最后由 sznt 于 2010-5-14 08:55 编辑 ]
