小型记事本的VB实现

上面是程序运行的界面！（程序运行界面已上传到相册的VB6栏目）

以下就是VB6的源代码：

依次添加5个按钮控件，一个timer控件和一个microsoft  common  dialog  control  6.0控件

Private Sub Command1_Click()   '输入文字
 Dim n%
 On Error Resume Next                   ' 如果出现错误，不理它
 n = InputBox("你想输入几段文字?")
 For i = 1 To n
  temp = InputBox("请输入第" + Str(i) + "段文字，共有" + Str(n) + "段")
  Text1 = Text1 & temp & vbCrLf       'Vbcrlf有回车换行的功能，CR回车，LF换行
  x = DoEvents                        '在FOR循环过大时，此句可避免死机
 Next
End Sub
 
Private Sub Command2_Click()
CommonDialog1.Action = 3   '选择颜色
Text1.BackColor = CommonDialog1.Color
End Sub
 
Private Sub Command3_Click()
On Error Resume Next
CommonDialog1.Flags = 259
CommonDialog1.Action = 4   '选择字体
With Text1                 '用此句可省略前辍
.FontName = CommonDialog1.FontName
.FontBold = CommonDialog1.FontBold
.FontItalic = CommonDialog1.FontItalic
.FontSize = CommonDialog1.FontSize
.FontStrikethru = CommonDialog1.FontStrikethru
.FontUnderline = CommonDialog1.FontUnderline
.ForeColor = CommonDialog1.Color
End With
End Sub
 
Private Sub Command4_Click()
On Error Resume Next
CommonDialog1.Filter = "记事本类型.txt|*.txt|word文档.word|*.doc|all files.*|*.*"
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1     '以读方式自动创建不存在的新文件
Print #1, Text1
Close #1
End Sub
 
Private Sub Command5_Click()
If CommonDialog1.FileName = "" Then
  MsgBox ("你还没有保存文件，请先保存，再退出！")
Else
  End
End If
End Sub
 
Private Sub Form_Load()
Text1.FontSize = 12
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If CommonDialog1.FileName = "" Then
  MsgBox "你还没有保存文件，请先保存，再退出！"
  Cancel = 1
Else
  End
End If
End Sub
 
Private Sub Timer1_Timer()         ‘在属性窗口中将timer1的interval值为1000（ms）
 Me.Caption = "小型记事本(made by keenweiwei) 现在时间：" + Str(Now)
End Sub