vb用CommonDialog1.ShowOpen打开对话框后,点击对话框上的取消后不执行任何动作

Question

CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
用上面的代码打开对话框后，点击取消重新执行WindowsMediaPlayer1.URL = CommonDialog1.FileName。怎样让它不执行呢？

Answer 1

你点取消的话CommonDialog1.FileName = ""
所以，你用这个去判断就可以了

 有问题请追问，满意请采纳！

追问

理论上应该行，但试了不行

追答

你用的代码是？

追问

If CommonDialog1.FileName = "" Then
Else
WindowsMediaPlayer1.URL = CommonDialog1.FileName
endif
也不行
If len(CommonDialog1.FileName) = 0 Then
Else
WindowsMediaPlayer1.URL = CommonDialog1.FileName
endif

追答

 Option Explicit

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then
        Debug.Print "你有没选择任何文件"
    Else
        Debug.Print "你选择的文件为：" & CommonDialog1.FileName
    End If
End Sub

你再试下

追问

这个方法第一次还管用，第二次就不行了
一旦文件名的框里有有文件名，不管选择取消还是打开，结果就是打开
是否打开一次后，就有了缓存？

追答

这。。。说明你编程经验少。。。

你在判断执行完之后清空就行了，还是用CommonDialog1.FileName = ""

Answer 2

if Len(CommonDialog1.FileName )=0 then
else
WindowsMediaPlayer1.URL = CommonDialog1.FileName

end if