做一个VB记事本的感想和遗留下的问题

概述花了几个星期去完成一个VB实训项目，到今天可以说是告一节了，但是我还是留下一个问题：我的记事本里的打开对话框，当我打开我的对话框，点击“取消”时却出现了如下的错误提示，对此我很不解。我用的是visual studio 2010 VB 写的！我的代码如下： Sub open_click()         '单击打开命令的处理过程         '如果当前编辑的文件内容被更改，提示用户保存文件  

花了几个星期去完成一个VB实训项目，到今天可以说是告一节了，但是我还是留下一个问题：我的记事本里的打开对话框，当我打开我的对话框，点击“取消”时却出现了如下的错误提示，对此我很不解。我用的是visual studio 2010 VB 写的！我的代码如下：

Sub open_click()
'单击打开命令的处理过程

'如果当前编辑的文件内容被更改，提示用户保存文件
'将选取的文件内容显示到文本框中

Dim FilStr As String
Dim TempStr As String
Dim SaveIt As Integer
If ModifIEd = True Then
SaveIt = MsgBox("文件" & Me.Text & "的正文已更改，" & "是否保存更改？",vbYesNoCancel)
If SaveIt = 2 Then Exit Sub
If SaveIt = 6 Then
If FPath_name <> "" Then
SavefileDialog1.filename = FPath_name
SavefileDialog1.Filter = "Text files(*.txt)|*.txt|" & "All files (*.*)|(*.*)"
SavefileDialog1.ShowDialog()
If SavefileDialog1.filename <> "" Then
fileOpen(1,SavefileDialog1.filename,OpenMode.Output,OpenAccess.Default)
Print(1,TextBox1.Text)
fileClose(1)

End If
End If
End If
End If
OpenfileDialog1.Filter = "Text files(*.txt)|*.txt|" & "All files (*.*)|(*.*)"
OpenfileDialog1.ShowDialog()
If windows.Forms.DialogResult.Cancel = True Then
Exit Sub
End If

If OpenfileDialog1.filename = "" Then Exit Sub
FPath_name = OpenfileDialog1.filename

fileOpen(1,OpenfileDialog1.filename,OpenMode.input,OpenAccess.Read)

FilStr = ""
Do Until EOF(1)
TempStr = lineinput(1)

FilStr = FilStr & TempStr
Loop
fileClose(1)
Me.Text = OpenfileDialog1.filename
TextBox1.Text = FilStr

End Sub

当我打开打开对话框，选择“取消”时出现下面的提示：并指到fileOpen(1,OpenAccess.Read)这条语句

请问我该如何修改！

总结

以上是内存溢出为你收集整理的做一个VB记事本的感想和遗留下的问题全部内容，希望文章能够帮你解决做一个VB记事本的感想和遗留下的问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。