UC知道vb中commondialog取消出错怎么解决啊
来源：百度知道 编辑：UC知道 时间：2024/04/28 03:54:08
我正在做记事本，用commondialog设置打开、字体、另存为等等菜单，我的打开代码如下：
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Dim g As String
Dim h As String
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
打开文件可以，但是一点取消就出错，我把cancelerror设置为true，
还是不行啊，教我一下吧，最好帮我修改一下代码，谢谢！
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Dim g As String
Dim h As String
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
打开文件可以，但是一点取消就出错，我把cancelerror设置为true，
还是不行啊，教我一下吧，最好帮我修改一下代码，谢谢！
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
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
这样判断一下，没有返回文件名的话退出本程序段，这样就不会有错了