关于VB.NET选择打开文件的问题，请帮我看一下什么地方错了？谢谢

[游子]

Private Function SelectFile(ByVal filters As String, ByVal actioncode As Integer) As Boolean
Dim s As String
s = Mid(filters, InStrRev(filters, "|") + 1)
On Error Resume Next
With CommonDialog1Open
.Filter = filters
.FileName = s
.AddExtension = actioncode
If Err.Number = 0 Then
SelectFile = True
End If
End With
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SelectFile("lab (*.xls)|*.xls", 1) Then
TextBox1.Text = CommonDialog1Open.FileName
End If
End Sub
为什么点浏览按钮后TextBox1就出现*.xls？？

[feiyun0112]

With CommonDialog1Open
.Filter = filters
.FileName = s
.AddExtension = actioncode

.ShowOpen

If Err.Number = 0 Then
SelectFile = True
End If
End With


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[SK_Aqi]

这个TextBox1.Text = CommonDialog1Open.FileName
不就是进行判断后得到正确的文件名吗?对的啊

[SK_Aqi]

楼主有什么疑问呢