VB播放器

来源：百度知道 编辑：UC知道 时间：2024/09/24 13:27:35
模块上定义 Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

播放按钮代码
Private Sub Command1_Click()
Dim temp
CommonDialog1.Filter = "(*.wav)|*.wav|"
CommonDialog1.Action = 1
temp = mciExecute("play" + CommonDialog1.FileName)
End Sub
错误提示 驱动程序无法识别指定命令
请高手帮忙
你好
还是不行 出现了2条同样的错误提示
错误提示为 指定的设备未打开，或不被MCI所识别

你用的API函数不对，用下面的就可以了。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
Dim temp
CommonDialog1.Filter = "(*.wav)|*.wav|"
CommonDialog1.Action = 1
Call mciSendString("open " & Chr(34) & CommonDialog1.FileName & Chr(34) & " type Waveaudio", vbNullString, 0, 0)
Call mciSendString("play " & Chr(34) & CommonDialog1.FileName & Chr(34), vbNullString, 0, 0)
End Sub

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
确实是api错了,我怎是郁闷,这个我都没注意看下 嘿嘿

给你一段我的播放器的调用函数

Public Function MP3