标题:两个完全一个的button,其中一个就是没反应
取消只看楼主
魔的天使之翼
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-21
 问题点数:0 回复次数:0 
两个完全一个的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 点了就是没反应。音乐不播放,为什么!

困扰我很久。谢谢大家
搜索更多相关主题的帖子: button 
2007-12-04 15:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-190332-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.297441 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved