Question

关于VB编的播放器添加个“浏览”按钮，并自动获取到Text1.问题？

这是源代码
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.URL = ""
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> 0 Then
Open CommonDialog1.FileName For Output As #1
Text1.Text = CommonDialog1.FileName
Close #1
End If
End Sub

运行程序“浏览文件”出现编译错误，这句If CommonDialog1.FileName <> 0 Then。大为不解，请高手指教。
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.URL = ""
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName
End If
End Sub
更新代码后，无法播放文件。

Answer 1

If CommonDialog1.FileName <> ""

Answer 2

If len( CommonDialog1.FileName)>0 then

Answer 3

MAil to happyq6@163.com
I check for you.