VB记事本的课程设计

《VB记事本的课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一功能分析（1）目标：实现类似与WINDOWS平台下的记事本程序。（2）涉及功能：新建、打开、保存、另存为、退出、编辑、撤销、复制、粘贴、剪切、删除、查找、全选、打印、格式、字体、颜色、查看、状态栏、帮助、关于等二设计安排（1）查资料（2）初步规划工程步骤（3）开始工程设计：1）建立一个标准的EXE工程。2）确定窗体Form1的主要属性：Caption3）窗体中添加控件：Timer1CommonDialog1VScroll1HScroll14）添加设置状态栏和工具栏5）编辑菜单控件属性6）编写代码（4）运行工程（5）结束三．界面设计

2、见上传作业四．控件属性设置控件名属性名属性值Timer1Interval1000CommonDialog1VScroll1HScroll1五．状态栏属性设置索引Index样式说明1sbrtext显示当前时间2sbrdate显示当前日期3sbrins显示插入控制键的状态4sbrnum显示数字键盘的使用状态六．菜单属性设置见上传作业七．代码设置DimfilecountAsIntegerDiminputdataAsStringDimTargetPositionAsIntegerDimposAsIntegerDimtargeyAsStrin

3、gDimneirongAsStringPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComCtlLib.Button)SelectCaseButtonCase"新建"Callmnunew_ClickCase"打开"Callmnuopen_ClickCase"剪切"CallmnuCut_ClickCase"复制"Callmnucopy_ClickCase"粘贴"Callmnupaste_ClickCase"保存"Callmnusave_ClickCase"查找"Callmnufind_Cl

4、ickEndSelectEndSubPrivateSubToolbar2_ButtonClick(ByValButtonAsMSComCtlLib.Button)OnErrorResumeNextSelectCaseButton.KeyCase"新建"mnunew_ClickCase"打开"mnuopen_ClickCase"剪切"mnuCut_ClickCase"粘贴"mnupaste_ClickCase"保存"mnusave_ClickCase"查找"mnufind_ClickEndSelectEndSubPrivateSubF

5、orm_Load()StatusBar1.Panels(1).Text=TimeText1.Text=""Text1.Left=0Text1.Top=550Text1.Width=Form1.ScaleWidthText1.Height=Form1.ScaleHeightmnucut.Enabled=Falsemnucopy.Enabled=Falsemnudelete.Enabled=Falsemnuselectall.Enabled=Falsemnupaste.Enabled=Truemnuleft.Checked=TrueEn

6、dSubPrivateSubForm_Resize()'如果窗体不处于最小化text1状态，改变text1大小以适应窗体大小变化IfForm1.WindowState<>1ThenText1.Width=Form1.Width-120IfForm1.Height<1200ThenForm1.Height=1200EndIfText1.Height=Form1.Height-1350EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)DimmsgAsIntegerIfText1.Text<

7、>neirongThenmsg=MsgBox("内容已被修改,是否保存文件",48+vbYesNoCancel,"提示")Ifmsg=vbYesThenOnErrorGoToErrCommonDialog1.DialogTitle="保存文件"CommonDialog1.Filter="文本文件

8、*.txt"CommonDialog1.CancelError=TrueCommonDialog1.ShowSaveOpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1.TextClose

9、#1Err:IfErr.Number=cdlCancelThenCancel=TrueEndIfElseIfmsg=vbNoThenEndElseIfmsg=vbCancelThenCancel=TrueEndIfElseEndEnd