UC知道vb mcisendstring()播放就是没声音
来源：百度知道 编辑：UC知道 时间：2024/06/03 18:42:11
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
Dim OpenAndPause As String
Dim song As String
Private Sub down_Click()
Dim i As Long
i = List1.ListIndex
If List1.ListIndex < List1.ListCount - 1 Then
List1.Selected(i + 1) = True
End If
End Sub
Private Sub end_Click()
mciSendString "stop" & song, vbNullString, 1024, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString "stop" & song, vbNullString, 0, 0
End Sub
Private Sub open_Click()
CommonDialog1.Filter = "音乐文件|*.mp3;*.wma;*.mid"
CommonDialog1.InitDir = App.Path
CommonDialog1.Action = 1
List1.AddItem (CommonDialog1.FileName)
End Sub
Private Sub pause_Click(
Dim OpenAndPause As String
Dim song As String
Private Sub down_Click()
Dim i As Long
i = List1.ListIndex
If List1.ListIndex < List1.ListCount - 1 Then
List1.Selected(i + 1) = True
End If
End Sub
Private Sub end_Click()
mciSendString "stop" & song, vbNullString, 1024, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString "stop" & song, vbNullString, 0, 0
End Sub
Private Sub open_Click()
CommonDialog1.Filter = "音乐文件|*.mp3;*.wma;*.mid"
CommonDialog1.InitDir = App.Path
CommonDialog1.Action = 1
List1.AddItem (CommonDialog1.FileName)
End Sub
Private Sub pause_Click(
Mcisendstring很挑的,它不支持长路径, 路径名除了要先改为短路径之外,歌曲名也不能含有空格.
如D:\mp3\一人一首成名曲\你怎么舍得我难过 黄品源.mp3就要用GetShortPathName改成D:\mp3\一人一~1\你怎么~1.MP3
还有Mcisendstring好像不支持播入WMA的。
不过你这个程序播放MP3格式应不会有问题.
估计是格式的问题