我用VB编写MDI记事本，在打开代码出现了些问题，想了几天没法解决。现把代源码和出现的问题打包上传，希望各位老大帮看看哪里出现了问题。（有截图）。

[此贴子已经被作者于2007-10-24 16:44:17编辑过]

各位老大帮下忙啦。我调试了一开也没有找到出错的地方。

共用对话框的作用是获得文件路径，返回值是一个包含文件路径的文件名。因此用过后要清空，或者叫刷新。

老大，怎刷新？可以把改了的代码发上来吗？我才刚学习VB。不太明白。

有两个思路，其一：
Public Sub OpenFile()
Dim strFileName As String
Dim intFile As Integer
Dim strLines As String
Dim strTmp As String

'通用对话框
dlgOpen.ShowOpen
strFileName = dlgOpen.FileName

'读取文件
intFile = FreeFile
Open strFileName For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strTmp
strLines = strLines & vbCrLf & strTmp
Loop
Close #intFile

Dim frm As New frmNotepad

frm.Caption = Dir(strFileName)
dlgOpen.FileName=“”‘加上词句，意在清空
'记住文件名
frm.Tag = strFileName
frm.txtNotepad.Text = strLines
frm.Show
End Sub
其二：
利用dlgOpen.CancelError函数，此函数被设置成TRUE时，当任何时候选择了取消按钮时，将产生一个错误号为32755的出错信息（ 是不是32755我不能确定，你可以通过调试得到）。捕捉这个错误号就可以判断是否选择了取消按钮。

多谢。我研究下。