VB创建一个记事本 ！

其实你还有个重要问题没有考虑到。当文本内容改变时不但要询问用户是否保存已改变的数据，而且当用户在保存已更改的数据时，还必须检测用户输入的文件名是否与系统中已存在的某个文件同名。若存在和用户要保存的文件名相同的文件，则还必须询问用户是否覆盖文件。如果不经提示直接覆盖文件，有时可能会给用户造成无法挽回的损失。本人分别用Delphi和VB语言编写了一个完整的类似于Windows记事本软件，功能有所加强。你如果有兴趣可以进我百度空间看看。或者你也可以进我QQ空间浏览我那篇《小松鼠文本编辑器》日志，相信对你会有帮助。我的QQ空间网址是：http://775420425.qzone.qq.com

Dim TextChanged As Boolean

Private Sub mNew_Click()
Dim newnew As Boolean
If TextChanged = True Then
a& = MsgBox("文件内容已经改变，想保存文件吗？", vbYesNoCancel, "记事本")
If a& = vbYes Then
'save
'or save as
newnew = True
ElseIf a& = vbNo Then
newnew = True
Else
'cancel
End If
Else
newnew = True
End If
If newnew = True Then
Shell IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe", vbNormalFocus
End
End If

End Sub

Private Sub Text1_Change()
TextChanged = True
End Sub

tonkeys
你好，为什么说文件未找到

Shell IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe", vbNormalFocus

那你就写啊，我支持你。