Dim isave As Boolean

Private Sub About_Click()
    MsgBox "记事本  2010  版权所有(C) ", vbOKOnly, "关于记事本"
End Sub

Private Sub Asave_Click()
    CommonDialog1.CancelError = True                            '调用公共对话框
   ' On Error GoTo errhandler
       

 CommonDialog1.DialogTitle = "另存为"       '通用对话框的标题为“另存为”

        CommonDialog1.InitDir = "c:\windows"                           '初始化路径
        CommonDialog1.FileName = "*.txt"
        CommonDialog1.Filter = "text files(*.txt)|*.txt"               '文件过滤器
        CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1                       '文件名
         Print #1, Mid(text1.Text, 1, Len(text1.Text))
        Close #1
'errhandler:
Exit Sub
End Sub

Private Sub Copy_Click()
    Clipboard.SetText RichTextBox1.SelRTF    '剪切板得到的文本来自于文本框得到的文
本
End Sub

Private Sub Cut_Click()
    Clipboard.Clear                                            '清空剪切板内容
    Clipboard.SetText RichTextBox1.SelText   '剪切板得到的文本来自于文本框得到的文
本
    RichTextBox1.SelText = ""                                '清空剪切板内容
End Sub

Private Sub Date_Click()
    RichTextBox1.SelText = Now()                            '显示当前日期和时间
End Sub

Private Sub Delete_Click()
    RichTextBox1.SelText = ""
End Sub