Vb.net 使用按钮停止OpenFileDialog

Vb.net 使用按钮停止OpenFileDialog,vb.net,vb.net-2010,Vb.net,Vb.net 2010,我有一个媒体播放器,是作为学校项目的一部分制作的。我有一个按钮,按下时隐藏窗体并显示另一个窗体。我想做的是让按钮同时停止播放媒体文件。这是我的密码 Private Sub TxtName_Enter(ByVal sender As System.Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing e.Cancel = True End Sub Private Sub BtnBro

我有一个媒体播放器,是作为学校项目的一部分制作的。我有一个按钮,按下时隐藏窗体并显示另一个窗体。我想做的是让按钮同时停止播放媒体文件。这是我的密码

Private Sub TxtName_Enter(ByVal sender As System.Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
    End Sub

    Private Sub BtnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click
        With OpenFileDialog1
            .Title = "File Browser"
            .Filter = "Media Files (*.wmv;*.mp3)|*.wmv;*.mp3"
            .FileName = ""
            .CheckFileExists = True
        End With
        If OpenFileDialog1.ShowDialog = _
            Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL = _
            OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
        Me.Hide()
        ECoach.Show()

启动/停止。。。您必须使用
MediaPlayerCtrl.Ctlcontrols.OrderYouWish
。即:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
     AxWindowsMediaPlayer1.Ctlcontrols.stop()
     Me.Hide()
     ECoach.Show()
 End Sub