VB仿Windows的记事本notepad的程序源代码

相信大家学VB如果连记事本这东西都不知道话就很郁闷了，CG今天接到Kivi的任务，做一个能看懂代码的记事本程序作为VB作业上交，据说还要上台讲，这老师真够难为人的，反正CG是有段时间没有见到了，源代码附上，如果大家有需要的话拿走，毕竟像初学者还是需要的。



简要说明：

记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件，打开字体，保存文件对话框的功能，实现文本的创建、修改、编辑、保存的功能，也是大家平时也使用的比较多的文本编辑器。





源代码地址：

http://www.lidaren.com/code/VBnotepad.zip



以下是部分参考代码：

Dim Changed As Boolean   '是否被修改

Dim IsSave As Boolean   '是否已经保存

Dim FileName As String  '文件名称

Dim TxtBefore As String '修改前文本，用于撤销操作



'窗体加载

Private Sub Form_Load()

    Clipboard.Clear

End Sub



'窗体关闭

Private Sub Form_Unload(Cancel As Integer)

     '与退出按钮的事件处理方法相同

    If Changed = True Then

        result = MsgBox("您正要关闭编辑窗口，是否保存您的修改？", vbYesNoCancel, "确定") '提示是否保存

        If result = vbYes Then

            MenuStripSave_Click   '直接调用保存事件的方法

        ElseIf result = vbNo Then

            Unload Me '卸载窗体

        End If

    Else

        Unload Me

    End If

End Sub



'关于

Private