事件form.shown工作，但form.load不

Question

我使用的是Visual Basic 2010，而我正在編寫一個程序，我正在構建，我的問題是，我有一個Media.SoundPlayer設置了，我希望它啓動時加載的形式，所以我的代碼如下所示（編輯：此代碼不起作用的聲音在調試負載不玩，我沒有得到任何錯誤）

Private Sub BGMusic(ByVal x As Integer) 
     Dim msp As New Media.SoundPlayer 
     Dim Music As String = Install + "\Music\innmusic.wav" 
     msp.SoundLocation = Music 
     If x = 1 Then 
      msp.Play() 
     Else 
      msp.Stop() 
     End If 
    End Sub 

Private Sub Innmenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
      BGMusic(1) 
    End Sub 

也我想要注意的是，Install +「\ Music \ innmusic.wav」是一個有效的路徑，因爲我可以設置一個按鈕來運行BGMusic（1）並且還可以播放音樂。爲了我的目的，form.shown會工作，但我想知道我的未來程序有什麼問題，以便我可以使用form.load

Answer 1

有可能您的Install變量沒有顯示出你的位置聲明它是空的或者沒有正確初始化。我給你一個例證如下：

Public Class Innmenu 

Dim Install As String = "" 

Private Sub Innmenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    BGMusic(1) ' It will not play because Install is still empty 
End Sub 

Private Sub BGMusic(ByVal x As Integer) 
    Dim msp As New Media.SoundPlayer 
    Dim Music As String = Install + "\Music\innmusic.wav" 
    msp.SoundLocation = Music 
    If x = 1 Then 
     msp.Play() 
    Else 
     msp.Stop() 
    End If 
End Sub 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Install = "C:\" 'Let us assume that your folder Music and file innmusic.wav is in C: 
BGMusic(1) ' Music will now play because Install has now the right value assigned 

End Sub 

嘗試的方式爲喜歡你的BGMusic方法做Try Catch：

Private Sub BGMusic(ByVal x As Integer) 
    Dim msp As New Media.SoundPlayer 
    Dim Music As String = Install + "\Music\innmusic.wav" 
    msp.SoundLocation = Music 

    Try 
     If x = 1 Then 
     msp.Play() 
     Else 
     msp.Stop() 
     End If 

    Catch ex As Exception 
     MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
    End Try 

End Sub 

爲了你會對你的錯誤反饋，如果有任何。