|
))
Status = Left$(sStatus, nLength - 1)
End Property
''''从头开始播放
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]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
