VB课程设计报告_vb课程设计报告
VB课程设计报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb课程设计报告”。
学院名称 学生姓名 专业名称 班
级
VB课程设计报告
——文本编辑器
计算机学院
计算机科学与技术
：：：：
一、课程设计题目
用Visual Basic程序设计语言编写一个简易的文本编辑器 要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。
二、课程设计目的（1）目标：实现类似与WINDOWS平台下的记事本程序。（2）涉及功能：新建、打开、保存、另存为、退出、编辑、撤销、复制、粘贴、剪切、删除、查找、全选、打印、格式、字体、颜色、查看、状态栏、帮助、关于等
三、课程设计说明
1创建应用程序界面 2设置属性 3编写代码 4保存应用程序 5调试，运行应用程序 6生成可执行文件
四、源代码
Dim filecount As Integer Dim inputdata As String Dim TargetPosition As Integer Dim pos As Integer Dim targey As String Dim neirong As String
Private Sub A_Click()On Error Resume Next cmndlg1.Filter = “文本文件|*.txt” cmndlg1.CancelError = True cmndlg1.Action = 2 Open cmndlg1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub
Private Sub C_Click()End Sub
Private Sub D_Click()End Sub
Private Sub Form_Load()
Text1.Text = “”
Text1.Left = 0
Text1.Top = 550
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
mnucut.Enabled = False
mnucopy.Enabled = False
mnudelete.Enabled = False
mnuselectall.Enabled = False
mnupaste.Enabled = True
mnuleft.Checked = True End Sub
Private Sub Form_Resize()
'如果窗体不处于最小化text1状态，改变text1大小以适应窗体大小变化
If Form1.WindowState 1 Then
Text1.Width = Form1.Width1350
End If End Sub
Private Sub Form_Unload(Cancel As Integer)Dim msg As Integer If Text1.Text neirong Then
msg = MsgBox(“ 内容已被修改,是否保存文件”, 48 + vbYesNoCancel, “提示”)
If msg = vbYes Then
On Error GoTo Err
cmndlg1.DialogTitle = “保存文件”
cmndlg1.Filter = “文本文件|*.txt”
cmndlg1.CancelError = True
cmndlg1.ShowSave
Open cmndlg1.FileName For Output As #1
Print #1, Text1.Text
Close #1 Err:
If Err.Number = cdlCancel Then
Cancel = True
End If
ElseIf msg = vbNo Then
End
ElseIf msg = vbCancel Then
Cancel = True
End If
Else
End
End If End Sub
Private Sub mnucopy_Click()'复制
利用SetText 方法,将选中的文本放入剪贴板上
Clipboard.SetText Text1.SelText End Sub
Private Sub mnucut_Click()'剪切
Clipboard.SetText Text1.SelText
Text1.SelText = “” End Sub
Private Sub mnudelete_Click()
'删除 Text1.SelText = “” End Sub
Private Sub mnuedit_Click()'编辑 菜单项代码
' 如果文本框中没有选中的内容,则剪切复制删除和粘贴菜单无效,否则有效
If Text1.SelLength 0 Then
mnucut.Enabled = True
mnucopy.Enabled = True
mnudelete.Enabled = True
mnupaste.Enabled = True
Else
mnucut.Enabled = False
mnucopy.Enabled = False
mnudelete.Enabled = False
End If
End Sub
Private Sub mnuexit_Click()'退出
End End Sub
Private Sub mnufind_Click()'查找 FindText 1 mnuNext.Enabled = True End Sub
Private Sub mnufont_Click()
'字体 On Error GoTo A:
cmndlg1.Flags = cdlCFBoth Or cdlCFEffects
cmndlg1.ShowFont
If cmndlg1.FontName > “” Then
Text1.FontName = cmndlg1.FontName
End If
Text1.FontSize = cmndlg1.FontSize
Text1.FontBold = cmndlg1.FontBold
Text1.FontItalic = cmndlg1.FontItalic
Text1.FontStrikethru = cmndlg1.FontStrikethru
Text1.FontUnderline = cmndlg1.FontUnderline
Text1.FontBold = cmndlg1.FontBold
Text1.ForeColor = cmndlg1.Color A:
If Err.Number
Private Sub mnufontcolor_Click()
'字体颜色 cmndlg1.ShowColor Text1.ForeColor = cmndlg1.Color End Sub
Private Sub mnuleft_Click()
'左对齐
Text1.Alignment = 0
mnuleft.Checked = True
mnuright(1).Checked = False
mnuright(2).Checked = False End Sub Private Sub mnunew_Click()
'新建
Text1.Text = “” End Sub Private Sub FindTex(ByVal start_at As Integer)
targey = targey pos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串 TargetPosition = pos Text1.SelStart = TargetPosition1 '选中找到的字符串
Form1.Text1.SelLength = Len(targey)Form1.Text1.SetFocus Else '没有找到匹配的字符串
MsgBox “没找到匹配的字符串”, 48, “提示” Form1.Text1.SetFocus End If End Sub Private Sub mnupaste_Click()
'粘贴
用GetText1 方法,将剪切板中的内容粘贴到光标所在位置
Text1.SelText = Clipboard.GetText()End Sub
Private Sub mnuprint_Click()'打印 On Error Resume Next
cmndlg1.ShowPrinter
Printer.Copies = cmndlg1.Copies
Printer.Print Text1.Text End Sub
Private Sub mnuright_Click(Index As Integer)'右对齐居中菜单代码 Select Case Index Case 1 Text1.Alignment = 1 mnuleft.Checked = False mnuright(1).Checked = True mnuright(2).Checked = False Case 2 Text1.Alignment = 2 mnuleft.Checked = False mnuright(1).Checked = False mnuright(2).Checked = True End Select End Sub
Private Sub mnusave_Click()'保存
On Error Resume Next
cmndlg1.DialogTitle = “保存文件”
cmndlg1.Filter = “文本文件|*.txt”
cmndlg1.CancelError = True
cmndlg1.ShowSave
Open cmndlg1.FileName For Output As #1
Print #1, Text1.Text
Close #1 End Sub
Private Sub mnuselectall_Click()
'全选
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)End Sub
Private Sub Text1_Change()If Text1.Text = “” Then mnufind.Enabled = False mnuNext.Enabled = False Else mnufind.Enabled = True mnuselectall.Enabled = True End If End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button Case “新建” Call mnunew_Click Case “打开” Call mnuopen_Click Case “剪切” Call mnucut_Click Case “复制” Call mnucopy_Click Case “粘贴” Call mnupaste_Click Case “保存” Call mnusave_Click Case “查找” Call mnufind_Click End Select End Sub
Private Sub tre_Click()Shell(“notepad 使用说明.txt”)End Sub
Private Sub xufeng_Click()Form2.Visible = True End Sub
五、运行结果
保存功能
查找功能
打开功能
颜色修改功能
字体修改功能
七、心得体会
作为一名计算机专业的学生，在接触了C语言、数据结构与C++课程后，对计算机语言有了一定的兴趣，于是在这个学期我毫不犹豫的选择了VB课程（算法与程序设计）。
VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想的形成,以及之前学习积累的经验，很快就对VB有了一定的了解。下面就是我这段时间学习的新的与体会。我认为作为学习程序设计最重要的一点是要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.我们学习VB并没有从正常的途径，可以说VB语言相对来说比其他语言简单，从他的语法就可以看出
其次，自己动手编写程序。程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.只有不断的从自己的程序中积累经验，从中进步，才能写出好的程序。程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用.编程序不像做其它的事情，写程序之前一定要计划周详，把所有的可能性都想到，并想好相应的解决方法，不然思想会很混乱，很容易出现错误。还有就是编程序最重要的其实是思想，思想确定之后用什么语言或什么方法就简单了，接下来就是设计并写成代码的事情了
好的程序员就是这样一步一步炼成的。
在者，阅读,借签别人设计的好程序。多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.通过这次学习，我越来越喜欢上计算机语言，我相信在计算机语言上会走的更远。
