''''从头开始播放
Public Sub mmRestart()
    Dim nReturn As Long
   
    If sAlias = "" Then Exit Sub
  
    mmSeek 0
    mmPlay
End Sub

''''类的初始化
Private Sub Class_Initialize()
''''    sAlias = "" ''''别名初值为空
End Sub

''''关闭打开的多媒体设备
''''当该类的对象所在的窗体（或模块）卸载时，自动调用该过程
Private Sub Class_Terminate()
    mmClose
End Sub
''''----------------------------------------------------
[用法]
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
………………………………

上一页  [1] [2]