两个完全一个的button,其中一个就是没反应(页 1) - VB.NET论坛

魔的天使之翼 发表于 2007-12-4 15:54

两个完全一个的button,其中一个就是没反应

'播放
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      If Me.ListView1.SelectedItems.Count < 1 Then
         MessageBox.Show("请选择歌曲！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
         Exit Sub
      End If
      Dim MyPos As Int16 = Me.ListView1.SelectedItems(0).Index
      Dim MyFileName As String = Me.ListView1.Items(MyPos).SubItems(3).Text
      Me.AxMediaPlayer1.FileName = MyFileName
      Me.AxMediaPlayer1.Play()
End Sub


Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
      If Me.ListView1.SelectedItems.Count < 1 Then
         MessageBox.Show("请选择歌曲！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
         Exit Sub
      End If
      Dim MyPos As Int16 = Me.ListView1.SelectedItems(0).Index
      Dim MyFileName As String = Me.ListView1.Items(MyPos).SubItems(3).Text
      Me.AxMediaPlayer1.FileName = MyFileName
      Me.AxMediaPlayer1.Play()
End Sub

以上两个Button的代码什么的完全一样。但是btn7 点了就是没反应。音乐不播放，为什么！

困扰我很久。谢谢大家

tntzwc 发表于 2007-12-4 16:33

可以设断点跟踪一下看看，是不是执行Me.AxMediaPlayer1.Play()了。

页: [1]