VB课程设计报告书之2 记事本文档格式.docx
《VB课程设计报告书之2 记事本文档格式.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告书之2 记事本文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
能对文本进行复制、剪切、粘贴,也可以改变文本字体、颜色、大小。
查找:
类似Word文档的查找功能,通过输入关键字,词进行查找。
帮助:
记事本简介以及功能的用法。
二、设计界面
记事本界面有以下几部分组成:
标题栏:
自定义图标和记事本标题。
菜单栏:
包括文件、编辑、搜索和帮助主题。
工具栏:
菜单栏中部分功能的快捷键。
文本框:
用于编辑、查看文本内容。
具体设计界面如下图:
三、运行界面及主要功能说明
双击“记事本.exe”首先出现封面
然后出现主界面
主要功能:
(1)文本打开、新建、保存等基本操作:
(2)文本编辑功能:
(3)文本字体格式设置
(4)常用工具栏(文件,文本)编辑
功能说明:
(1)基本操作:
能够打开计算机中存储的*.txt或*.rtf文件,进行读写操作,记事本拥有一个很好的优点:
就是打开速度快,文件小。
通过记事本可以很方便地打开比较小文本文档。
(2)编辑操作:
对文本匡中的文档内容进行编辑。
通过对文本进行复制、剪切、粘贴,方便了用户的操作。
使得记事本能够像Word一样,不仅可以查看文本,还能对其进行修改。
(3)搜索与替换操作:
使用搜索功能可以马上找到要寻找的内容,通过输入关键字进行查找。
可将查找的内容替换,替换成你想要的文本。
(4)格式设置:
1、可对字体大小颜色等进行基本设置,2、对文本框进行颜色等基本设置
(5)工具栏:
对常用的几个功能进行了快捷键设置,方便用户操作。
四、操作流程图
1.基本操作
通过文件---新建,来打开一个新文档,新建后的文档是以“未命名”为标题的。
打开操作:
文件----打开,选择要打开的文档Readme.txt
打开后的文档:
保存操作:
文件----保存;
另存为abc,txt保存在D盘。
2.编辑操作:
复制:
打开Readme.txt,选中第一行,复制到最后一行。
剪切和粘贴:
把复制的内容剪切掉,放到内容的中间。
更改字体:
选中第一段文字,把文字改为隶书、36号、绿色。
点击编辑----字体,出现字体编辑对话框,编辑字体属性。
如图,修改后的文本。
3.查找操作
搜索---查找,通过查找“记事本”两个字为例。
单击“确定”按钮。
如果想替换成别的内容,进行替换的操作。
例如将“记事本”替换成“笔记本”。
五、程序设计过程
第一步:
界面设计
新建一个标准EXE工程,将其Caption属性改为“记事本”,点击Icon属性给它找个合适的Icon图标。
单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到MicrosoftRichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们,单击“确定”按钮。
这时左边的工具栏上出现了刚才新添的两个控件。
在窗体上绘制RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不用理睬,可以在代码中处理它,要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。
第二步:
编辑菜单。
调出菜单编辑器,做如下几个菜单:
一.文件菜单:
文件(第一层)Menufile
新建(第二层)MenunewCtrl+N
打开(第二层)MenuopenCtrl+O
保存(第二层)MenusaveCtrl+S
另存为(第二层)MenusaveotherCtrl+M
退出(第二层)MenuendCtrl+X
二.编辑菜单:
编辑(第一层)Menuedit
复制(第二层)MenucopyCtrl+C
剪切(第二层)MenucutCtrl+T
粘贴(第二层)MenupasteCtrl+V
全选(第二层)MenuselectAllCtrl+G
查找(第二层)MenufindCtrl+F
替换(第二层)MenureplaceCtrl+Z
三、格式菜单:
格式(第一层)Menustyle
字体设置(第二层)Menuword
背景颜色(第二层)Menucolor
第三步:
编写代码
添加工程form2,在form2中编写
编辑初始封面
一、加载图片
PrivateSubTimer1_Timer()
Timer1.Enabled=False
UnloadMe
Form1.Show
EndSub
二、制作移动文字
PrivateSubTimer2_Timer()
IfLabel1.Left+Label1.Width>
0Then
Label1.MoveLabel1.Left-130
Else
Label1.Left=Form2.ScaleWidth
EndIf
在form1中继续编写代码:
'
声明查找变量
DimsFindAsString
声明文件类型
DimFileType,FiTypeAsString
初始化程序
PrivateSubForm_Load()
设置程序启动时的大小
Me.Height=6000
Me.Width=9000
EndSub
设置编辑框的位置和大小
PrivateSubForm_Resize()
OnErrorResumeNext
RichTextBox1.Top=500
RichTextBox1.Left=20
RichTextBox1.Height=ScaleHeight-850
RichTextBox1.Width=ScaleWidth-40
新建文件
PrivateSubMenunew_Click()
RichTextBox1.Text="
"
'
清空文本框
FileName="
未命名"
Me.Caption=FileName
打开文件
PrivateSubMenuopen_Click()
CommonDialog1.Filter="
文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
FileName=CommonDialog1.FileName
RichTextBox1.LoadFileFileName
Me.Caption="
记事本:
&
FileName
保存文件
PrivateSubMenusave_Click()
CommonDialog1.ShowSave
FileType=CommonDialog1.FileTitle
FiType=LCase(Right(FileType,3))
SelectCaseFiType
Case"
txt"
RichTextBox1.SaveFileFileName,rtfText
rtf"
RichTextBox1.SaveFileFileName,rtfRTF
*.*"
RichTextBox1.SaveFileFileName
EndSelect
退出
PrivateSubMenuend_Click()
End
复制
PrivateSubMenucopy_Click()
Clipboard.Clear
Clipboard.SetTextRichTextBox1.SelTextEndSub
剪切
PrivateSubMenucut_Click()
Clipboard.SetTextRichTextBox1.SelText
RichTextBox1.SelText="
全选
PrivateSubMenuselectAll_Click()
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len(RichTextBox1.Text)
粘贴
PrivateSubMenupaste_Click()
RichTextBox1.SelText=Clipboard.GetText
查找
PrivateSubMenufind_Click()
sFind=InputBox("
请输入要查找的段落:
"
查找内容"
sFind)
RichTextBox1.FindsFind
替换
PrivateSubmnuFindOn_Click()
RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1
RichTextBox1.FindsFind,,Len(RichTextBox1)
字体设置
PrivateSubMenuword_Click()
CommonDialog1.Flags=259
CommonDialog1.FontName="
宋体"
CommonDialog1.ShowFont
RichTextBox1.SelFontName=CommonDialog1.FontName
RichTextBox1.SelFontSize=CommonDialog1.FontSize
RichTextBox1.SelItalic=CommonDialog1.FontItalic
RichTextBox1.SelStrikeThru=CommonDialog1.FontStrikethru
RichTextBox1.SelUnderline=CommonDialog1.FontUnderline
RichTextBox1.SelColor=CommonDialog1.Color
背景颜色
PrivateSubMenucolor_Click()
CommonDialog1.Flags=2
CommonDialog1.Action=3
RichTextBox1.BackColor=CommonDialog1.Color
第四步:
制作状态栏
单击“工程”-“部件”,选中MicrosoftWindowsCommonControl6.0并确定。
要用到的控件就出现在左边的工具栏上。
用statusbar添加在窗体底部,如图所示
这样一个简单的记事本就完成了