[用法]
1、
比如要在窗体上播放一个动画,只需3个语句就搞定。
Dim MmAvi As New Mmedia
MmAvi.mmOpen "G:\resource\Avi\Test.avi", Me.hWnd
MmAvi.mmPlay
2、循环播放
Private Sub Timer1_Timer()
Dim S As String
S = "当前文件：" & MmAvi.filename & vbCrLf & "当前位置：" & MmAvi.Position _
& "总长度：" & MmAvi.Length & "当前状态：" & MmAvi.Status
Label1.Caption = S
If MmAvi.Status = "stopped" Then MmAvi.mmRestart
End sub
3、同时播放几个文件（类型可以相同、可以不同）
在Form1中加入Private MmWave(1) As New Mmedia
在需要播放的地方加上：
MmWave(0).mmOpen "G:\resource\wave\m16.wav"
MmWave(1).mmOpen "G:\resource\wave\Welcom98.wav"
MmWave(0).mmPlay
MmWave(1).mmPlay
4、将动画放入一个圆形区域播放
Dim hr As Long
Dim usew&, useh&
Dim MmAvi As New Mmedia
usew& = Frame1.Width / Screen.TwipsPerPixelX
useh& = Frame1.Height / Screen.TwipsPerPixelY
usew = useh
hr& = CreateEllipticRgn(0, 0, usew, useh)
Call SetWindowRgn(Frame1.hWnd, hr, True)
MmAvi.mmOpen "G:\resource\Avi\start.avi", Frame1.hWnd
MmAvi.mmPlay
|
|