VB记事本程序设计
课程设计(论文)任务书
土木学院土木专业2012-5 班
一、课程设计(论文)题目
二、课程设计(论文)工作自2013 年 6 月 17 日起至 2013 年 6 月 21 日止。
三、课程设计(论文) 地点: 计算中心
四、课程设计(论文)内容要求：
1．本课程设计的目的
（1）使学生掌握Visual Basic编程的基本工作原理；
（2）培养学生基本掌握Visual Basic应用编程的基本思路和方法；
（3）使学生掌握Visual Basic应用调试的基本技能；
（4）培养学生分析、解决问题的能力；
（5）提高学生的科技论文写作能力。
2．课程设计的任务及要求
1）基本要求：
（1）分析系统的功能构成；
（2）分析所用控件对象、数据对象及其关联；
（3）实现系统的设计；
（4）对所设计应用进行调试。
2）创新要求：
在基本要求达到后，可进行创新设计，增加功能、改进界面和性能。
3）课程设计论文编写要求
（1）课程设计报告书一律使用由学校统一印制的封面，用A4纸张打印或采用黑色墨水工整书写，并装订成册。
（2）课程设计装订顺序为：封面、设计任务书（含评语）、设计内容、设计小结
4）答辩与评分标准：
（1）系统功能分析：25分；
（2）完成设计过程：25分；
（3）完成调试：25分；
（4）回答问题：25分。
5）参考文献：
(1)吴昊.Visual Basic程序设计教程,中国铁道出版社，2006.12
(2) 杨仓杰出.Visual Basic经典范例,清华大学出版社，2001.10
(3) https://www.360docs.net/doc/578060584.html,/
6）课程设计进度安排
内容天数地点
构思及收集资料1实验室
设计与调试3实验室
撰写论文1实验室
学生签名：
2013 年6 月17 日
课程设计(论文)评审意见
（1）完成原理分析（25分）：优（）、良（）、中（）、一般（）、差（）；
（2）设计分析（25分）：优（）、良（）、中（）、一般（）、差（）；
（3）完成调试（25分）：优（）、良（）、中（）、一般（）、差（）；
（4）回答问题（25分）：优（）、良（）、中（）、一般（）、差（）；
（5）格式规范性及考勤是否降等级：是（）、否（）
评阅人：职称：
2013 年6 月26 日
目录
《程序设计语言（VB）》课程设计 3 摘要 (3)
一、设计目的 (4)
二、环境配置要求 (5)
三、设计题目记事本程序 ............................错误！未定义书签。
（一）系统的主要功能 ............................................... 错误！未定义书签。
（二）算法流程图 ....................................................... 错误！未定义书签。
（三）界面设计和属性窗口 ....................................... 错误！未定义书签。
（四）详细源代码 ....................................................... 错误！未定义书签。
（五）运行结果及分析 ............................................... 错误！未定义书签。
四、设计体会 ..................................................错误！未定义书签。
五、参考文件 ..................................................错误！未定义书签。
六、总结.................................................................................. 错误！未定义书签。
《程序设计语言（VB）》课程设计
摘要
随着软件技术的不断更新发展,利用计算机查找自己需要的信息,在生活生产中扮演着极为重要的角色, Windows 环境下的 Visual Basic 提供了丰富的查询功能.本文主要通过对选题的功能描述, 概
要设计, 详细设计, 效果及存在问题，代码，编写及调试以及软件使用说明等的介绍,
关键词: Visual Basic 程序设计程序设计基础课程设
一、设计目的
1、进一步掌握程序的三大基本结构；
2、进一步掌握读文本文件，以及列表框等控件的使用；
3、进一步掌握算法设计；
4、进一步理解程序调试；
5、综合利用上述知识，学习设计并编写简单应用程序；
6、培养学生团结协作的能力。
7、提高学生的动手能力，让我们理论充分结合实际
二、环境配置要求
硬件配置：586以上PC兼
容机或品牌机，配有彩色显示
器、鼠标、键盘，内存不小于
64MB，硬盘自由空间不少于
200MB。推荐配置为内存128MB
或256MB（或以上），硬盘自
由空间500MB以上。
操作系统：
Windows2000/NT/Xp、VB集成
开发环境。
三、设计题目记事本程序
（一）系统的主要功能
预定功能
新建：新建立一个记事本文档。
保存：重命名一个名字，保存文档。
打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。
关闭：清楚记事本中的内容
退出：指退出这个记事本程序。
另存为：保存在另一个文件夹中
编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。
退出:退出记事本
查找：类似Wo r d文档的查找功能，通过输入关键字，词进行查找。
查找下一个：在原查找的基础上通过输入关键字，词进行查找。
剪切：类似Word文档的剪切功能通过选中后放到剪切板中
复制：类似Word文档的复制功能通过选中后放到剪切板中
粘贴：把剪切或复制的的内容放到指定的地方
删除：清除选中的文本框中的内容
全选：把文本框中的内容全部选中
日期时间：返回系统的时间
字体：通过弹出通用对话框把文本框中的字体随对话框中的要求改变而改变
背景色：文本框的填充颜色
程序功能：对文本进行编辑、处理
（二）算法流程图
（三）界面设计和属性窗口
（1）（1）设计类似于如图所示的程序界面。程序启动后文本框随窗体大小而改变。
建立三个主菜单：文件、编辑、格式。
各子菜单如下：
使用剪贴板对象实现“剪切”、“复制”、“粘贴”的编辑功能。在没有选定文本时，剪切、复制、删除等菜单命令为不可用状态；剪贴板中没有数据时，“粘贴”菜单项为无效。
各控件属性代码如下
（四）详细源代码
Dim a As String ‘定义变量
Dim c As String ‘定义变量
Private Sub BC_Click() ‘保存按钮代码
Dim b As String
CmD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CmD1.ShowSave ‘弹出保存对话框
b = CmD1.FileName
Open b For Output As #1
Write #1, Text1.Text
Close #1
End Sub
Private Sub BJS_Click() ‘背景色代码
CmD1.Flags = 1
CmD1.ShowColor
Text1.BackColor = CmD1.Color
End Sub
Private Sub CZ_Click() ‘查找按钮代码
a = InputBox("请输入要查找的子、词：", "查找内容", a)
b = InStr(Text1.Text, a) ‘运用内部函数
Text1.SelStart = b - 1
Text1.SelLength = Len(a)
End Sub
Private Sub CZXYG_Click() ‘查找下一个按钮代码
c = InputBox("请输入要查找的子、词：", "查找内容", c)
d = InStr(b - 1 + Len(a), Text1.Text, c)
Text1.SelStart = d - 1
Text1.SelLength = Len(c)
Private Sub DK_Click() ‘打开按钮代码
Dim b As String
Dim c As String
CmD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CmD1.ShowOpen
b = CmD1.FileName
Open b For Input As #1
Do While EOF(1) = False
Line Input #1, c
Text1.Text = Text1.Text + c + vbCrLf
Loop
Close #1
End Sub
Private Sub DY_Click() ‘打印按钮代码
CmD1.ShowPrinter
End Sub
Private Sub Form_Resize() ‘特殊代码
Text1.Width = 记事本程序.Width
Text1.Height = 记事本程序.Height
End Sub
Private Sub FZ_Click() ‘复制按钮代码
Clipboard.Clear ‘把剪切板先清空
Clipboard.SetText Text1.SelText ‘剪切板的选中东西为文本框中的选择内容End Sub
Private Sub GB_Click() ‘关闭按钮
Text1.Text = ""
End Sub
Private Sub JQ_Click() ‘剪切按钮代码
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
Private Sub LCW_Click() ‘另存为按钮代码
CmD1.ShowSave
Private Sub QX_Click() ‘全选按钮代码
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub RQSJ_Click() ‘日期时间代码
Text1.Text = Now ‘返回系统时间
End Sub
Private Sub SC_Click() ‘删除代码按钮
Text1.SelText = ""
End Sub
Private Sub TC_Click() ‘退出代码按钮
End
End Sub
Private Sub Timer1_Timer()
If Text1.SelLength = 0 Then FZ.Enabled = False
If Text1.SelLength <> 0 Then FZ.Enabled = True
If Text1.SelLength = 0 Then JQ.Enabled = False
If Text1.SelLength <> 0 Then JQ.Enabled = True
If Text1.SelLength = 0 Then SC.Enabled = False
If Text1.SelLength <> 0 Then SC.Enabled = True
If Text1.SelLength = 0 Then CZXYG.Enabled = False
If Text1.SelLength <> 0 Then CZXYG.Enabled = True ‘设置按钮的可用性End Sub
Private Sub XJ_Click() ‘新建代码按钮
Text1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
Private Sub ZITI_Click() ‘字体通用对话框
CmD1.Flags = 1 ‘使用系统带的字体
CmD1.ShowFont ‘弹出字体对话框
Text1.FontName = CmD1.FontName
Text1.FontSize = CmD1.FontSize
Text1.FontBold = CmD1.FontBold
Text1.FontItalic = CmD1.FontItalic
Text1.FontUnderline = CmD1.FontUnderline ‘文本框中的格式设置与对话框中的一致
Private Sub ZT_Click(Index As Integer) ‘粘贴按钮代码
Text1.SelText = Clipboard.GetText ‘文本框中的内容等于剪切板中的内容End Sub
（五）运行结果及分析
运行程序”打开”菜单弹出打开对话框如图：
运行“保存”菜单弹出如下保存对话框
运行“打印”菜单弹出如下
”运行“时间，日期”后如下
运行“查找或查找下一个”后弹出如下对话框
例如：
运行“字体菜单按钮”后弹出字体对话框如图该对话框使用系统自带的字体可设置字形、字体、字的大小及效果。例如下划线、删除线、字的颜色
运行“背景色按钮”后弹出颜色对话框如下
可通过选择对话框的颜色来改变文本框的背景色例如：
（四）设计体会工程设计过程中遇到的问题及解决方法
问题（1）如何添加通用对话框，状态栏，工具栏控件
（2）保存后无法打开窗体文件，出现加载错误提示
（3）即使强行加载窗体文件，在运行时也出现“要求对象错误”
（4）在运行过程中出现对象未定义错误
（二）解决方法
（一）通过在网上查找资料以及在图书馆借阅相关资料，最终得以解决。其中最主要的原因在于没有打开VB与Wi n d o w s共同开发的控件。通过查资料，我们发现可以通过工程中的部件添加更多的控件，这样可以方便我们的程序设计的进行。
（二）对于代码上的错误，我们通过逐一的修改以及不断的运行最终得以解决。
（五）参考文献
(1)吴昊.Visual Basic程序设计教程,中国铁道出版社，2006.12
(2) 杨仓杰出.Visual Basic经典范例,清华大学出版社，2001.10
(3) https://www.360docs.net/doc/578060584.html,/
（六）总结
经过这几周的课程设计，使我对Visual Basic
编程有了更深一层的了解。经过这几天的编程与不断调试，我的努力终于有了成果。我设计的
是记事本，这其中得用CommonDialog控件、
Text控件、timer控件等一些重要控件，来设计工具栏和状态栏完成文本编辑和操作。
整个设计的过程也是我不断学习的一个过程，我在运用旧知识的同时也学到了不少新知识，给自己大脑充电的同时也填补了一些相关知识方面的空白。整个设计的过程中，我不仅仅只是经历了是失败与成功所带来的启迪，我还体会到了一种很重要的东西，那就是团体的力量。设计中，我有解决不了得地方就请教老师和同学,可以说在大家的帮助下我才得以完整的呈现出我的成果。这次课程设计让我学到了很多东西。对程序设计有了更具体的认识，让我复习了以前学过的知识，也让我们对程序设计有了更深刻的理解。总之,这次的设计使我受益颇深。通过进行记事本的课程设计，我们提高了对VB语言的认识以及对其用途的了解。
从中学到了不少东西。让我们更好的了解自己在哪些方面有不足。