vb中commondialog取消出错怎么解决啊

2025-12-05 13:19:15

推荐回答（3个）

回答1：

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Dim g As String
Dim h As String
If CommonDialog1.FileName = "" Then Exit Sub'这里判定下是否按下的是取消
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, g
h = h & g & vbCrLf
Loop
Text1.Text = h
Me.Caption = CommonDialog1.FileName & "- 记事本"
Close #1

回答2：

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub

这样判断一下，没有返回文件名的话退出本程序段，这样就不会有错了

回答3：

在commondialog.filename 设置初值时，在后面加个空格，这样比改小写更好点吧