VB.net与Openfiledialog的问题

时间:2013-11-07 16:24:38

标签: vb.net visual-studio-2010

我正在制作这个音乐播放器的东西,我需要一些编码方面的帮助。我希望我的程序在选中Checkbox1时播放某个文件。我正在使用OpenFileDialog,但我不确定这是正确的做法。我无法让它发挥作用。这是我的代码:

     If CheckBox1.Checked = True Then
        OpenFileDialog1.OpenFile()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        AxWindowsMediaPlayer1.Ctlcontrols.play()
      ElseIf CheckBox1.Checked = False Then
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
     End If

有人可以帮帮我吗?

2 个答案:

答案 0 :(得分:1)

如果要显示对话框以便用户可以选择文件,请使用ShowDialog()并检查返回值以确保用户实际选择了文件:

    If CheckBox1.Checked = True Then
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        End If
    ElseIf CheckBox1.Checked = False Then
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End If

答案 1 :(得分:1)

您需要显示对话框:

If CheckBox1.Checked Then
    If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        AxWindowsMediaPlayer1.Ctlcontrols.Play()
    End If
Else
    AxWindowsMediaPlayer1.Ctlcontrols.Stop()
End If