VB文本编辑器代码

Dim gaibian As Boolean
Dim shijian As String
Private Sub baocun_Click()
CommonDialog1.CancelError = True
CommonDialog1.Filter = "文本文档(*.txt)|*.txt"
CommonDialog1.DialogTitle = "保存"
On Error GoTo Cancel
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
Cancel:
End Sub

Private Sub charushijian_Click()
shijian = Time
SendKeys shijian
End Sub

Private Sub daika_Click()
If gaibian = True Then
MsgBox "是否保存！"
baocun_Click
End If
CommonDialog1.CancelError = True
CommonDialog1.Filter = "文本文档(*.txt)|*.txt"
On Error GoTo Cancel
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
On Error Resume Next
Line Input #1, aspect$
whole$ = whole$ + aspect$
Loop
Close #1
Text1.Text = whole$
Cancel:
E