VB编写的记事本实验报告

一、实验要求

利用vb程序编写记事本，实现记事本的打开、保存、新建、编辑等一般功能。 二、实验目的

掌握菜单编辑器的建立、控制，记事本新建打开保存的程序代码，理解并运用CommonDialog的属性和功能等内容。 三、设计软件所实现的功能

实现记事本的功能如下：文件的新建、打开、保存、另存为、打印、退出功能，

编辑的复制、粘贴、剪切、全选、时间\\日期功能，以及格式里的字体功能。 四、设计介绍

1、先利用菜单编辑器设计记事本的整体框架，如下图：

2、通过在控件工具箱上右击点部件，找到 Microsoft Commom Dialog Control

6.0将其左边的复选框勾上，选择确定，这样控件工具箱里就多了这个CommomDialog控件，将其拖拽到窗体上。

3、然后单击各个子菜单项，进入代码界面编写代码。主要的代码如下：

新建代码：

Private Sub xinjian_Click()

a = MsgBox(\要保存吗？\记事本\If a = 6 Then

baocun_Click ElseIf a = 7 Then

Text1.Text = \End If End Sub 打开的代码：

Private Sub dakai_Click()

a = MsgBox(\要保存吗？\记事本\

If a = 6 Then

baocun_Click ElseIf a = 7 Then

CommonDialog1.FileName = \

CommonDialog1.Flags = vbofnfilemustexist

CommonDialog1.Filter = \ CommonDialog1.FilterIndex = 3

CommonDialog1.DialogTitle = \ CommonDialog1.Action = 1

form1.Caption = CommonDialog1.FileName If CommonDialog1.FileName = \ MsgBox \ Else

Text1.Text = \

Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, a

Text1.Text = Text1.Text + a + Chr$(13) + Chr$(10) Loop End If End If End Sub

保存的代码：

Private Sub baocun_Click()

If CommonDialog1.FileName <> \

Open CommonDialog1.FileName For Output As #3 Print #3, Text1.Text Close #3 Else

CommonDialog1.DefaultExt = \ CommonDialog1.FileName = \

CommonDialog1.Filter = \ CommonDialog1.FilterIndex = 1

CommonDialog1.DialogTitle = \

CommonDialog1.Flags = vbofnoverwriteprompt Or vbofnpathmustexist

1

CommonDialog1.ShowSave

form1.Caption = CommonDialog1.FileName If CommonDialog1.FileName = \ MsgBox \ Else

Open CommonDialog1.FileName For Output As #2 Print #2, Text1.Text Close #2 End If End If End Sub

复制的代码：

Private Sub fuzhi_Click()

Clipboard.SetText Text1.SelText End Sub

粘贴的代码：

Private Sub zhantie_Click()

Text1.SelText = Clipboard.GetText End Sub

剪切的代码：

Private Sub jianqie_Click() Clipboard.Clear

Clipboard.SetText Text1.SelText Text1.SelText = \End Sub

全选的代码：

Private Sub quanxuan_Click() Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub 字体的代码：

Private Sub ziti_Click()

CommonDialog1.Flags = 3 CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic

Text1.FontUnderline = CommonDialog1.FontUnderline

2

Text1.FontStrikethru = CommonDialog1.FontStrikethru End Sub

是文本框的大小随窗体的变化而变化的代码：

Private Sub Form_Resize()

Text1.Height = form1.ScaleHeight Text1.Width = form1.ScaleWidth End Sub

4、主要的显示效果图如下所示： 打开的效果：

字体的效果：

3