VB编写的记事本实验报告
- 格式：doc
- 大小：366.50 KB
- 文档页数：4
一、实验要求
利用vb程序编写记事本，实现记事本的打开、保存、新建、编辑等一般功能。
二、实验目的
掌握菜单编辑器的建立、控制，记事本新建打开保存的程序代码，理解并运用CommonDialog的属性和功能等内容。
三、设计软件所实现的功能
实现记事本的功能如下：文件的新建、打开、保存、另存为、打印、退出功能，编辑的复制、粘贴、剪切、全选、时间\日期功能，以及格式里的字体功能。
四、设计介绍
1、先利用菜单编辑器设计记事本的整体框架，如下图：
2、通过在控件工具箱上右击点部件，找到 Microsoft Commom Dialog Control
6.0将其左边的复选框勾上，选择确定，这样控件工具箱里就多了这个CommomDialog控件，将其拖拽到窗体上。
3、然后单击各个子菜单项，进入代码界面编写代码。主要的代码如下：
新建代码：
Private Sub xinjian_Click()
a = MsgBox("要保存吗？", 3, "记事本")
If a = 6 Then
baocun_Click
ElseIf a = 7 Then 1 Text1.Text = ""
End If
End Sub
打开的代码：
Private Sub dakai_Click()
a = MsgBox("要保存吗？", 3, "记事本")
If a = 6 Then
baocun_Click
ElseIf a = 7 Then
CommonDialog1.FileName = ""
CommonDialog1.Flags = vbofnfilemustexist
CommonDialog1.Filter = "all files |*.*|(.exe)|*.exe|(*.txt)|*.txt"
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "open file(*.txt)"
CommonDialog1.Action = 1
form1.Caption = CommonDialog1.FileName
If CommonDialog1.FileName = "" Then
MsgBox "no file selectd", 37, "checking"
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 <> "" Then
Open CommonDialog1.FileName For Output As #3
Print #3, Text1.Text
Close #3
Else
CommonDialog1.DefaultExt = "txt"
CommonDialog1.FileName = "1bw.txt"
CommonDialog1.Filter = "text files(*.txt)|*.txt|all files(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "save file as(*.txt)"
CommonDialog1.Flags = vbofnoverwriteprompt Or vbofnpathmustexist 2 CommonDialog1.ShowSave
form1.Caption = CommonDialog1.FileName
If CommonDialog1.FileName = "1bw.txt" Then
MsgBox "fail", 37, "checking"
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 3 Text1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub
是文本框的大小随窗体的变化而变化的代码：
Private Sub Form_Resize()
Text1.Height = form1.ScaleHeight
Text1.Width = form1.ScaleWidth
End Sub
4、主要的显示效果图如下所示：
打开的效果：
字体的效果：
