none
vb2008(背景音樂問題...) RRS feed

  • 問題

  • vb2008(背景音樂問題...)
    除了從自己的電腦放取音樂外
    My.computer.Audio.Play(My.Resources.A,AudioPlayMode.Background)
    如何使用網上的音樂檔做成背景音樂??
    例如: http://hk.yahoo.com/123.mp3
    如何用http://hk.yahoo.com/123.mp3,按button時作背景音樂(不會彈出Windows Players)??
    2009年11月24日 下午 04:31

解答

  • 參考

    Public Class Form1
        ' 宣告 API    
        Private Declare Function mciSendStringA Lib "winmm.dll" _
            (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
             ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    
        Private Function PlayMidiFile(ByVal MusicFile As String) As Boolean
            mciSendStringA("stop music", "", 0, 0)
            mciSendStringA("close music", "", 0, 0)
            mciSendStringA("open " & MusicFile & " alias music", "", 0, 0)
            PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
        End Function
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            PlayMidiFile("http://music.baby611.com/music/bd/dushuhao.mp3") ' 播放 MP3 音樂  
        End Sub
    End Class
    
    • 已標示為解答 新手菜鳥 2009年11月25日 上午 09:56
    2009年11月24日 下午 04:50
    版主

所有回覆

  • 參考

    Public Class Form1
        ' 宣告 API    
        Private Declare Function mciSendStringA Lib "winmm.dll" _
            (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
             ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    
        Private Function PlayMidiFile(ByVal MusicFile As String) As Boolean
            mciSendStringA("stop music", "", 0, 0)
            mciSendStringA("close music", "", 0, 0)
            mciSendStringA("open " & MusicFile & " alias music", "", 0, 0)
            PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
        End Function
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            PlayMidiFile("http://music.baby611.com/music/bd/dushuhao.mp3") ' 播放 MP3 音樂  
        End Sub
    End Class
    
    • 已標示為解答 新手菜鳥 2009年11月25日 上午 09:56
    2009年11月24日 下午 04:50
    版主
  • Hi!

    1. 你說的那幾行都不是按鈕

    2. 程式主要是調用 Windows API 當中的 mciSendString

    2009年11月25日 上午 09:58
    版主
  • 請問有重複撥放的指令嗎?
    2011年4月1日 下午 04:31
  • 請問有重複撥放的指令嗎?


    您好

    請參考

    如何執行自動重複媒體播放程式不像,加上 REPEAT 參數

    http://support.microsoft.com/kb/124185/zh-tw


    歡迎參觀我的Blog.NET菜鳥自救會
    • 已提議為解答 2011年4月2日 上午 03:17
    2011年4月1日 下午 05:20
    版主
  • 如何執行自動重複媒體播放程式不像,加上 REPEAT 參數

    http://support.microsoft.com/kb/124185/zh-tw

    嗯~

    只要指令改成  mciSendStringA("play music repeat", "", 0, 0) = 0 就可以了~

    不過我發現到一個問題是~

    如果音樂檔是放在 C:\Program Files\ABC\1.mp3

    但因為路徑中有空格,會無法撥放1.mp3

    只能將長路徑改成短路徑

    請問用什麼指令可以轉換?

    2011年4月2日 上午 03:46