none
播放mp3不总是能成功 RRS feed

  • 问题

  • 先声明了一下......

    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 a As Integer
        Label1.Caption = "  " & Label2.Caption & Label3.Caption & Label4.Caption
        If Label1.Caption = "  " Then
            MsgBox "请输入语音序号"
        Else
            a = Label1.Caption
            mciSendString "open " & App.Path & "\" & "Music" & "\MUSIC" & a & ".mp3 alias mc", 0, 0, 0
            mciSendString "play mc", 0, 0, 0
        End If

    在有的机子上怎么也没声,有的机子上放到系统盘里播放就没声,其他位置有声。win7和xp均有成功播放的情况也都有不成功的......

    想起论坛,还是想问一下......哪里是不是写的有问题?


    • 已移动 Youen Zen 2012年4月10日 2:34 VB6 issue (发件人:Visual Basic)
    • 已编辑 Ruoshui Li 2012年4月10日 5:03
    2012年4月6日 13:56

全部回复

  • 您好, 

    由于本板块谈论vb.net,所以我将此主题移动到一般性问题讨论区。 感谢您的理解与支持!

    Regards,


    Shanks Zen
    MSDN Community Support | Feedback to us

    2012年4月10日 2:34
  • mciSendString 是依赖于MCI设备的。不确定用户有硬解压设备的话,用软解压比较保险。很多播放器有ActiveX版本的


    The following is signature, not part of post
    Please mark the post answered your question as the answer, and mark other helpful posts as helpful, so they will appear differently to other users who are visiting your thread for the same problem.
    Visual C++ MVP

    2012年4月11日 16:14
    版主