用VB做多媒体程序播放程序

“如何播放avi，Wave，midi文件”，:
“谁知道用api播放Avi，mpg的详细方法？您可以设置“将图像放置在设置的表单中”、
“如何同时播放两个Wav文件”
等问题。其实一个类模块什么都可以做，不需要任何控件之类的东西。下面的类模块(不知道从哪里找到的)已经修改的更好了。将以下类模块另存为Mmedia.cls
批注:-。

备注:-可以播放Avi、Wave和Midi文件
备注:用法:
备注:Dim multimedia作为新媒体
备注:Multimedia . mm open " c:est . wav "
备注:Multimedia.mmPlay
备注记住:在程序的最后，一定要使用Set Multimedia=nothing来释放资源！！！
注意:-。

说明:-=-=-=-attribute-=-=-
说明:sFilename当前文件名
说明:nLength文件长度(只读)
说明:nPosition当前位置
说明:sStatus当前状态(只读)[

注意:-=-=-=-method-=-=-=-
注意:mmOpen打开要播放的文件
注意:mmClose关闭当前文件
注意:mmPause暂停
注意:mmStop停止后可以跳过重新开始播放[

注意:-。

Private sAlias As String注释:alias
注释:Private hwnd As long
Private s filename As String注释:当前文件名
Private nLength As Single注释:文件长度

Private nPosition As Single注释:当前位置
Private sStatus As String注释:当前状态
Private bWait As Boolean注释:决定是否等待播放结束
Const WS _ CHILD = & h 40000000
注意:-
Private Declare函数McSendString Lib " winmm . dll " _
别名" mciSendStringA "(ByVal lpstrCommand As String，_
ByVal lpstrreturn

注释:私有声明函数getactivewindowlib "user32 "()为整数

注意:当sTheFile为Avi文件时，参数hWnd指定动画播放的位置
注意:如果hWnd=0，将打开一个新窗口播放动画。
注意:如果听不到Midi音乐，请在Windows下用媒体播放器测试。
注意:文件名不能有空case
public sub mm open(byval sth file为string，可选hwnd为long = 0)。

Dim n return long
Dim style as string注释:文件类型
static nunum as integer

If sAlias " "然后注意:关闭开始打开的文件
mmClose
End If

If (Dir(sTheFile) = " ")然后注释:判断是否是已有文件
sFilename = " file " & sthe file & "不存在！"
exit sub
else
s filename = sthe file
注意:nNum = nNum+1
End If
注意:Stop
sAlias = sFilename注意:使用文件名作为别名。
注意:判断文件类型
选择case ucase $ (right $ (sthefile，3))
case " wav "
style = " wave audio "
case " avi "
style。

case " mid "
stype = " sequencer "
case else
注意:未知文件格式，退出。
退出Sub
结束选择

如果sType = "AviVideo "且hWnd > 0，则
nReturn = mciSendString(" Open " & sthe file & " ALIAS " & sAlias _
& " TYPE avi video parent " & hWnd & " style " & LTrim $(Str $(WS _ CHILD))，0&，0，0)
Else
nReturn = mciSendString(" Open " & sthe file & " ALIAS " & sAlias _
& " TYPE " & sType，"，0

末端接头

注意:关闭当前打开的多媒体文件
public sub mm Close()
dim n return as long。

注意:如果没有打开的文件，那么Exit
If sAlias = " " Then Exit Sub "

n return = mciSendString(" Close " & sAlias，""，0，0)
sAlias = " "
sFilename = " "

末端接头

注意:Pause
Public Sub mmPause()

Dim nReturn一样长

If Salias = ""那么
exit Sub
else If status = " paused "那么注意:如果之前已经暂停过，那么
mm play
else
nreturn = mcisendstring(" pause " & Salias，" "，0，0)
end if
注意:nPosition = Position
End Sub

注意:Play
Public Sub mmPlay()

Dim nReturn一样长

If Salias = " " then
exit sub
else If position = length then注意:如果已经到达结尾
mmSeek 0注意:跳到开头
End If

If bWait Then
n return = mciSendString(" Play " & sAlias & " wait "，""，0，0)
Else
n return = mciSendString(" Play " & sAlias，""，0，0)
End If
End Sub

注意:停止
注意:停止后跳转到开始，这样
Public Sub mmStop()就可以重新播放了。

Dim nReturn一样长

如果sAlias = " "那么退出Sub

N = mcisendstring ("stop" & salias，""，0，0)
MMSEEK 0备注:跳转到开始位置
End Sub