VB课程设计报告（大全5篇）.docx

VB课程设计报告（大全5篇）

第一篇：VB课程设计报告学院名称学生姓名专业名称班级VB课程设计报告——文本编辑器计算机学院计算机科学与技术：：：：一、课程设计题目用VisualBasic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。二、课程设计目的（1）目标：实现类似与WINDOWS平台下的记事本程序。（2）涉及功能：新建、打开、保存、另存为、退出、编辑、撤销、复制、粘贴、剪切、删除、查找、全选、打印、格式、字体、颜色、查看、状态栏、帮助、关于等三、课程设计说明1创建应用程序界面2设置属性3编写代码4保存应用程序5调试，运行应用程序6生成可执行文件四、源代码DimfilecountAsIntegerDiminputdataAsStringDimTargetPositionAsIntegerDimposAsIntegerDimtargeyAsStringDimneirongAsStringPrivateSubA_Click()OnErrorResumeNextcmndlg1.Filter=“文本文件|*.txt”cmndlg1.CancelError=Truecmndlg1.Action=2Opencmndlg1.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSubPrivateSubC_Click()EndSubPrivateSubD_Click()EndSubPrivateSubForm_Load()Text1.Text=“"Text1.Left=0Text1.Top=550Text1.Width=Form1.ScaleWidthText1.Height=Form1.ScaleHeightmnucut.Enabled=Falsemnucopy.Enabled=Falsemnudelete.Enabled=Falsemnuselectall.Enabled=Falsemnupaste.Enabled=Truemnuleft.Checked=TrueEndSubPrivateSubForm_Resize()'如果窗体不处于最小化text1状态，改变text1大小以适应窗体大小变化IfForm1.WindowState1ThenText1.Width=Form1.Width1350EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)DimmsgAsIntegerIfText1.TextneirongThenmsg=MsgBox(”内容已被修改,是否保存文件“,48+vbYesNoCancel,”提示“)Ifmsg=vbYesThenOnErrorGoToErrcmndlg1.DialogTitle=”保存文件“cmndlg1.Filter=”文本文件|*.txt“cmndlg1.CancelError=Truecmndlg1.ShowSaveOpencmndlg1.FileNameForOutputAs#1Print#1,Text1.TextClose#1Err:IfErr.Number=cdlCancelThenCancel=TrueEndIfElseIfmsg=vbNoThenEndElseIfmsg=vbCancelThenCancel=TrueEndIfElseEndEndIfEndSubPrivateSubmnucopy_Click()'复制利用SetText方法,将选中的文本放入剪贴板上Clipboard.SetTextText1.SelTextEndSubPrivateSubmnucut_Click()'剪切Clipboard.SetTextText1.SelTextText1.SelText=”“EndSubPrivateSubmnudelete_Click()'删除Text1.SelText=”“EndSubPrivateSubmnuedit_Click()'编辑菜单项代码'如果文本框中没有选中的内容,则剪切复制删除和粘贴菜单无效,否则有效IfText1.SelLength0Thenmnucut.Enabled=Truemnucopy.Enabled=Truemnudelete.Enabled=Truemnupaste.Enabled=TrueElsemnucut.Enabled=Falsemnucopy.Enabled=Falsemnudelete.Enabled=FalseEndIfEndSubPrivateSubmnuexit