小型记事本的VB实现

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

以下就是VB6的源代码：

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

依次添加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