如题,我加了个WindowsMmediaPlayer的控件,设置了路径,可是却没有声音,是怎么回事?以下是我的代码: Private Sub BlackJackForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        MusicPlayer.URL = Application.StartupPath & "\bgmusic.mp3"    End Sub我需要使用相对路径,音乐文件放在工程文件夹里的sounds文件夹下。还有,如果我想让用户可以从电脑里选择自己的音乐(mp3,vav等)作为背景音乐或者程序音效,可以怎么做?
望达人指教,谢谢!

解决方案 »

  1.   

    如果直接在电脑上面能播放,加上 WindowsMediaPlayer1.Controls.play
      

  2.   

    介绍你一个控件,非常好,有音效效果,多种格式播放。
    http://www.multimediasoft.com/amp3dj/
    my blog
    http://ufo-crackerx.blog.163.com/
      

  3.   

    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 LongPrivate Sub cmdb_Click()
    mciSendString "play e:\5.mp3", vbNullString, 0, 0
    End SubPrivate Sub cmde_Click()
    mciSendString "close e:\5.mp3", vbNullString, 0, 0End Sub
      

  4.   


    我试过,可是它说Controls没有play这个属性,我也不知道为什么
      

  5.   


    请教, 这段code写在哪儿,在form_load中?还是在其它什么地方