VB程序设计项目化教程项目8制作简单记事本.ppt

VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社Visual Basic 程序设计项目化教程主编 管小清 郭贺彬项目八 制作简单记事本l项目目标：l本项目是制作一个简易的记事本（类似于Windows 自带的记事本），能够实现文件的存取等基本操作；设计出相关的菜单栏，并实现部分菜单项的基本功能；利用公共对话框来设置一些常用的功能（字体设置，颜色设置，打印以及文件操作等）。项目八 制作简单记事本l项目主要知识点：l1、RichTextBox的使用l文件操作方法l常用格式化属性l插入图像l2、菜单编辑器的使用l设计菜单的操作步骤l打开菜单编辑器的方法l菜单编辑器的组成部分l3、公共对话框（CommonDialog）的使用l通用对话框基本属性l通用对话框的方法l打开对话框的方法项目八 制作简单记事本l4、位置属性和字体属性l5、编程思想的培养l项目实施步骤：l阅读相关基础知识l界面设计窗体设计控件属性设置添加菜单栏添加公用对话框l程序设计编程初步程序代码l程序调试，功能完善l保存项目工程和再次打开工程8.1 第1步：基础知识l8.1.1 高级文本框控件l高级文本框控件(RichTextBox)可用于输入和编辑文本，它同时提供了比常规的TextBox控件更高级的格式特性。l从前几章可以知道，对Text控件只能进行单一的文字格式设置。使用RichTextBox控件可以实现多种文字格式、段落等的设置，还可以插入图形，可真正构成一个像Word一样的字处理软件。l要使用RichTextBox控件，必须打开“部件”对话框，选择“Microsoft Rich TextBox Controls 6.0”，将控件添加到工具箱。8.1 第1步：基础知识l1、文件操作方法l用LoadFile和SaveFile方法，可以方便地为RichTextBox控件打开或保存文件。l（1）LoadFile方法l格式：对象.LoadFile 文件标识符，文件类型l功能：LoadFile方法能够将RTF文件或文本文件装入控件中。l说明：l文件类型取值0或rtfRTF时为RTF文件(缺省)。l文件类型取1或rtfTEXT时为文本文件。l过程存放在标准模块中，利用CommonDialog控件提供路径名。l（2）SaveFile方法l格式：对象.SaveFile(文件标识符，文件类型)l功能：该方法能够将控件中的文档保存在RTF文件或文本文件中。l例如：下面语句把文档以RTF格式保存在D盘My子目录的T1.txt文件中。l RichTextBox1.SaveFile(D:myT1.txt,rtfTEXT)l完整的保存文件的FileSaveProc过程，可参照FileOpenProc过程，请读者自行完成。8.1 第1步：基础知识l2、常用格式化属性lRichTextBox控件提供了一些属性，可对该控件中任何部分的文本使用不同的格式。例如可以将文本变为粗体或斜体，改变文本的颜色，创建上标或下标。可以调整段落的左右缩进值，还可以使用悬挂式缩进。为了压缩篇幅，列出了常用格式属性如表8-1所示：表8-1RichTextBox常用属性分分类类属性属性值类值类型型说说明明选中文本SelText Selstart Sellength意义同Text控件对应属性字体、字号Selfontname selfontsize当前选定的文本的字体字号字型Selbold SelItalic SelUnderline SelStrikethru逻辑量粗体、斜体、下划线、删除线上、下标SelCharoffset整型0上标0下标以Twip为单位颜色SelColor整型缩排SelIndex SelRightIndentSelHaningIndent数值型缩排单位以ScalMode 决定对齐SelAlignment整型0 左 1右 2中8.1 第1步：基础知识l3、插入图像l格式：对象.OLEObjects.Add索引，关键字，文件标识符l功能：在RichTextBox控件中，可插入（*.bmp）图像文件。l说明：lOLEObjects是一个集合，包括一组添加到RichTextBox控件的对象。l“索引”和“关键字”分别表示添加的元素编号和标识，可省略，但逗号不能省。8.1 第1步：基础知识l8.1.2 通用对话框的使用l通用对话框是一种ActiveX控件，它随同VB提供给程序设计人员。在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：l执行“工程”菜单中的“部件”命令，打开“部件”对话框。l在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“Microsoft Common Dialog Control 6.0”，如图8-3所示。l单击“确定”按钮，通用对话框立即被加到工具箱中，如图8-2所示。l通用对话框的默认名称(Name属性)为CommonDialogX(X为1，2，3)。l通用对话框控件为程序设计人员提供了几种不同类型的对话框，利用这些对话框，可以获取所需要的信息，打开文件、将文件存盘、选择颜色、选择字体、打印、帮助。这些对话框与Windows本身及许多应用程序具有相同的风格。对话框的类型可以通过Action属性设置，也可以用相应的方法设置。8.1 第1步：基础知识l1、通用对话框的基本属性l（1）Action属性l该属性直接决定打开何种类型的对话框。l1Open：打开文件对话框；l2Save As：另存为对话框；l3Color：颜色对话框；l4Font：字体对话框；l5Printer：打印机对话框；l6Help：帮助对话框。l该属性不能在属性窗口中设置，只能在程序中赋值，用于调出相应的对话框。8.1 第1步：基础知识l（2）DialogTitle属性l该属性用来设置对话框的标题，可以是任意字符串。在默认情况下，“打开”对话框的标题是“打开”，“另存为”对话框的标题是“另存为”。l通用对话框的属性设置不仅可以在属性窗口中设置，也可以在属性页对话框中设置。打开属性页对话框的方法是：在窗体上的通用对话框控件上单击右键，在弹出的快捷菜单中，选择“属性”命令，通用对话框控件属性页对话框中，有5个选项卡，对不同类型的对话框设置属性，就要选择不同的选项卡。例如，要对字体对话框进行设置，就选定“字体”选项卡。8.1 第1步：基础知识l2、通用对话框的方法l为了打开通用对话框，VB还提供了一组方法，用来打开通用对话框，对话框类型及方法如表8-2所示。这些方法是：lShowOpen：打开文件对话框；lShowSave：打开另存为对话框；lShowColor：选择颜色对话框；lShowFont：选择字体对话框；lShowPrinter：打开打印对话框；lShowHelp：调出帮助对话框。8.1 第1步：基础知识l 表8-2 对话框类型及方法l通用对话框的使用方式有：打开对话框、另存为对话框、颜色对话框、字体对话框、打印机对话框和帮助对话框的使用方法。对话框类型Action属性值方法打开打开1ShowOpen另存另存为为2ShowSave颜颜色色3ShowColor字体字体4ShowFont打印打印5ShowPrinter帮助帮助6ShowHelp8.1 第1步：基础知识l3、打开(Open)对话框l（1）文件对话框的结构l文件对话框分为两种，即打开(Open)文件对话框和另存为(Save As)文件对话框。通用对话框的重要用途之一，就是从用户那里获得文件名信息。打开文件对话框可以让用户指定一个文件，由程序来实现；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件。从结构上来说，“打开”和“另存为”对话框是类似的。如图8-1所示：图8-1“打开”对话框8.1 第1步：基础知识l各部分的作用如下：l对话框标题：通用对话框的标题，通过DialogTitle属性设置。l文件夹：用来显示文件夹。单击右端的箭头，将显示驱动器和文件夹的列表，可以在该列表中选择所需要的文件夹。l选择文件夹级别：单击一次该按钮回退一个文件夹级别。l新文件夹：用来建立新文件夹。l文件列表模式：选择是否以列表方式显示文件和文件夹。l文件细节：显示文件的详细情况，包括文件名、文件大小、建立(修改)日期、时间及属性等。8.1 第1步：基础知识l文件列表：在该区域显示的是“文件夹”栏内文件夹的子目录，列出了准备使用的文件或文件夹，单击其中的文件名将选择该文件，所选择的文件名将在“文件名”栏内显示出来。如果当前显示的文件列表中没有所需要的文件，可双击其中的文件夹显示下一级的文件或文件夹。l文件类型：指定要打开或要保存的文件的类型，该类型由通用对话框的Filter属性确定。l文件名：所选择的或输入的文件名。用“打开”或“另存为”对话框都可以指定一个文件名，所指定的文件名在该栏内显示，单击“打开”或“另存为”按钮后，将以该文件名打开或保存文件。l在对话框的右下部还有两个按钮，即“打开”和“取消”。在“另存为”对话框中，“打开”按钮用“保存”取代。8.2 第2步：设计窗体l在窗体上添加多行文本框（RichTextBox），调整大小并修改相应属性，如图8-2所示：图8-2添加RichTextbox控件8.2 第2步：设计窗体l相应的控件及属性如表8-6所示：表8-6相应的控件及属性控件名称控件名称属性名称属性名称属性属性值值控件名称控件名称属性名称属性名称属性属性值值窗体（Form1）Caption记事本文本框（RichTextBox）Text清空Width自定Width自定Height自定Height自定MaxButtonFalseNameR1MinButtonFalse8.3 第3步：在窗体上添加菜单栏l菜单对我们来说是非常熟悉的，在Windows环境下，几乎所有的应用软件都是通过菜单来实现各种操作。菜单用于给命令进行分组，使用户能够更方便、更直观地访问这些命令。l下拉式菜单是一种典型的窗口式菜单。窗口是指屏幕上一个特定的矩形区域。它可以从屏幕上消失，也可以重新显示在屏幕上，各个窗口之间也允许覆盖。下拉式菜单自上而下在屏幕上“下拉”一个个窗口菜单，供用户选择或输入信息。在Windows及各种应用软件中，下拉式菜单得到了广泛的应用。l在下拉式菜单系统中，一般有一个主菜单，其中包括若干选择项。主菜单的每一项又“下拉”出下一级菜单，这样逐级下拉，用一个个窗口的形式弹出在屏幕上，操作完毕即可从屏幕上消失，并恢复原来的屏幕状态。8.3 第3步：在窗体上添加菜单栏l弹出式菜单是一种小型的菜单，它可以在窗体的某个地方显示出来，对程序事件作出响应。通常用于对窗体中某个特定区域有关的操作或选项进行控制，例如用来改变某个文本区的字体属性等。与下拉式菜单不同，弹出式菜单不需要在窗口顶部下拉打开，而是通过单击鼠标右键，在窗口(窗体)的任意位置打开，因而使用方便，具有较大的灵活性l1、设计菜单的操作步骤如下：l(1)建立窗体，添加控件。l(2)打开“菜单编辑器”窗口。l(3)设置各菜单项属性。l(4)为相应的菜单命令添加事件过程。8.3 第3步：在窗体上添加菜单栏l对于可视语言(如VB、VFP、VC等)来说，菜单的设计要简单和直观得多，因为它省去了屏幕位置计算，也不需要保存和恢复屏幕区域。全部设计都在一个窗口中完成。利用这个窗口，可以建立下拉式菜单，最多可达6层。l在VB中，设计菜单是通过菜单编辑器，即菜单设计窗口来完成的。打开菜单编辑器有以下4种方法：l(1)在VB主设计窗口中，选择“工具”中的“菜单编辑器”选项。l(2)使用热键Ctrl+E。l(3)单击工具栏中的“菜单编辑器”按钮。l(4)在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单然后单击“菜单编辑器”命令。l说明：只有当某个窗体为活动窗体时，才能用上面的方法打开“菜单编辑器”窗口。打开后的“菜单编辑器”窗口。8.3 第3步：在窗体上添加菜单栏l“菜单编辑器”窗口分为3个部分，即数据区、编辑区和菜单项显示区。l(1).数据区l用来输入或修改菜单项、设置属性。分为若干栏，各栏的作用如下：l标题：是一个文本框，用来输入所建立菜单的标题及菜单中每个菜单项的标题，相当于控件的Caption属性。l如果在“标题”栏内，只输入一个减号(-)，则可在菜单中加入一条分隔符。l在输入菜单栏项时，如果在字母前加上“&”，那么该字母就成了热键字母。在显示菜单时在该字母下加上一条下划线，可以通过Alt+带下划线的字母，来打开菜单或执行相应的菜单命令。l 名称：也是一个文本框，由用户输入菜单项的名称，在程序中用来标识该菜单项，相当于控件的Name属性，它不会在菜单项显示区中显示出来。在标题文本框中，输入了一个菜单标题，在名称文本框中，应有一个对应的菜单名称。分隔符也要有对应的名称。8.3 第3步：在窗体上添加菜单栏l索引：用来为控件数组设计下标。l快捷键：是一个列表框，用来设置菜单项的快捷键。单击右端的箭头，将下拉显示可供使用的快捷键。在此可选择输入与菜单项等价的快捷键。l帮助上下文：是一个文本框，可在该框中输入数值，这个值用来在帮助文件(用HelpFile属性设置)中查找相应的帮助主题。l协调位置：是一个列表框，用来确定菜单或菜单项是否出现或在什么位置出现。单击右端的箭头，将下拉一个列表，如图10.4所示。该列表有4个选项，其作用如下：l作用:l 0-None 菜单项不显示l 1-Left 菜单项靠左显示l 2-Middle 菜单项居中显示l 3-Right 菜单项靠右显示l复选：是一个检查框，当选择该项时，可以在相应的菜单项边上指定记号(例如“”),表示该菜单项是一个选项。8.3 第3步：在窗体上添加菜单栏l有效：是一个检查框，该检查框决定菜单项是否可选(有效)。当该检查框被选中时，表示菜单项的Enabled属性为True，为默认状态，程序执行时菜单高亮度显示，是可选的；如果该项没有被选中，Enabled属性为False，在程序执行时该菜单项变成灰色，表示不能被用户选择。l可见：是一个检查框，该检查框确定菜单项是否可见。若该检查框被选中，表示该菜单项的Visible属性为True，即菜单项可见。若该检查框没被选中，表示该菜单项的Visible属性为False，即菜单项不可见。l显示窗口列表：当该选项被设置为“On”(框内有“”)时，将显示当前打开一系列子窗口。用于多文档应用程序。l（2）编辑区l编辑区共有7个按钮，用来对输入的菜单项进行简单的编辑。菜单在数据区输入，在菜单项显示区显示。8.3 第3步：在窗体上添加菜单栏l有效：是一个检查框，该检查框决定菜单项是否可选(有效)。当该检查框被选中时，表示菜单项的Enabled属性为True，为默认状态，程序执行时菜单高亮度显示，是可选的；如果该项没有被选中，Enabled属性为False，在程序执行时该菜单项变成灰色，表示不能被用户选择。l可见：是一个检查框，该检查框确定菜单项是否可见。若该检查框被选中，表示该菜单项的Visible属性为True，即菜单项可见。若该检查框没被选中，表示该菜单项的Visible属性为False，即菜单项不可见。l显示窗口列表：当该选项被设置为“On”(框内有“”)时，将显示当前打开一系列子窗口。用于多文档应用程序。l（2）编辑区l编辑区共有7个按钮，用来对输入的菜单项进行简单的编辑。菜单在数据区输入，在菜单项显示区显示。8.3 第3步：在窗体上添加菜单栏l（3）菜单项显示区l位于“菜单编辑器”窗口的下部，输入的菜单项在这里显示出来，并通过内缩符号(.)，表明菜单项的层次。条形光标所在的菜单项是“当前菜单项”。l说明：l“菜单项”是一个总的名称，它包括4个方面的内容：菜单名(菜单标题)、菜单命令、分隔线和子菜单。l内缩符号由4个点组成，它表明菜单项所在的层次，一个内缩符号(4个点)表示一层，两个内缩符号(8个点)表示两层，最多为20个点，即5个内缩符号，它后面的菜单项是第六层。如果一个菜单项前面没有内缩符号，则该菜单为菜单名，即菜单的第一层。l只有菜单名没有菜单项的菜单称为“顶层菜单”，在输入这样的菜单项时，通常在后面加上一个叹号(！)。l除分隔线外，所有的菜单项都可以接收Click事件。8.3 第3步：在窗体上添加菜单栏l2、如图8-3所示设置各菜单项。l 注意：（1）、菜单编辑器必须在设计视图下才能用，在编程视图下是不能使用的。l （2）、所有菜单项的名称命名规则同变量的命名规则相同。l（3）、主菜单项不允许添加快捷键。l（4）、菜单项的分级是靠省略号来区分的。l（5）、菜单项的名称不能相同，否则作为控件数组。l3、各菜单项的属性值如表8-7所示。(如果空白则是默认设置)l （本部分由学生根据表中数据独立完成）8.3 第3步：在窗体上添加菜单栏图8-3各菜单项8.3 第3步：在窗体上添加菜单栏l表8-7各菜单项的属性值说说明明标题标题名称名称快捷快捷键键其他其他主菜主菜单项单项1文件（&W）wenjian无子菜单项11新建（&N）xinjianCtrl+N子菜单项12打开（&O）dakaiCtrl+O子菜单项13保存（&S）baocunCtrl+S子菜单项14L1无子菜单项15页面设置（&U）yemian无子菜单项16打印（&P）dayinCtrl+P子菜单项17L2无子菜单项18退出（&X）tuichu无8.3 第3步：在窗体上添加菜单栏主菜主菜单项单项2编辑（&E）bianji无子菜单项21撤销（&U）chexiaoCtrl+Z无效子菜单项22L3无子菜单项23剪切（&T）jianqieCtrl+X无效子菜单项24复制（&C）fuzhiCtrl+C无效子菜单项25粘贴（&P）zhantie Ctrl+V子菜单项26删除（&L）shanchuDel无效子菜单项27L4子菜单项28查找（&F）chaozhaoCtrl+F无效子菜单项29查找下一个（&N）xiayigeF3无效子菜单项210替换（&R）tihuanCtrl+H子菜单项211转到（&G）zhuandaoCtrl+G8.3 第3步：在窗体上添加菜单栏子菜单项212L5子菜单项213全选（&A）quanxuanCtrl+A子菜单项214日期/时间（&T）riqiF5主菜主菜单项单项3格式（&O）geshi子菜单项31自动换行（&W）huanhang子菜单项32字体（&F）ziti主菜主菜单项单项4查看（&V）chakan子菜单项41状态栏（&S）zhuangtailan8.3 第3步：在窗体上添加菜单栏主菜主菜单项单项5帮助（&H）bangzhu子菜单项51帮助主题（&H）zhuti子菜单项52L6子菜单项53关于记事本（&A）guanyu8.4 第4步：添加Activate控件l操作方法是：在工具栏上单击右键，在弹出的菜单中选择【部件】，这时会弹出【部件】对话框，选择“Microsoft Rich TextBox Controls 6.0”l添加完毕。8.5 第5步：为窗体添加公共对话框。l公共对话框的实现的功能：l显示文件打开对话框Show Openl显示文件保存对话框Show Savel显示颜色对话框ShowColorl显示字体对话框ShowFontl显示打印对话框ShowPrinter l将Common Dialog控件添加到工具箱：工程部件MicroSoft Common Dialog Control 6.0(如图8-4所示)8.5 第5步：为窗体添加公共对话框。图8-4添加Common Dialog控件8.5 第5步：为窗体添加公共对话框。l单击工具箱中该控件在窗体上画出该控件。（注意：该控件是后台运行，所以程序运行后不会显示，类似于Timer控件）如图8-5所示。图8-5工具箱8.6 第6步：部分例程序 lPrivate Sub baocun_Click()保存按钮的代码lCommonDialog1.ShowSavelR1.SaveFile(CommonDialog1.FileName)lEnd SublPrivate Sub dakai_Click()打开命令按钮的代码lCommonDialog1.ShowOpenlR1.LoadFile(CommonDialog1.FileName)lEnd SublPrivate Sub Form_Load()设置公共对话框的默认文件类型lCommonDialog1.Filter=文档文件*.txt|*.txt|全部文件|*.*lEnd Sub 8.6 第6步：部分例程序lPrivate Sub lingcunwei_Click()另存为按钮的代码lCommonDialog1.ShowSavelR1.SaveFile(CommonDialog1.FileName)lEnd SublPrivate Sub xinjian_Click()新建按钮的代码lR1.Text=lEnd Subl其他代码在老师的指导下完成8.6 第6步：部分例程序l项目总结：l菜单编辑器的使用l公共对话框的使用l编程实现属性设置lRichTextBox的使用l文件的打开方法l操作练习l编写程序，建立一个文件打开对话框，然后通过这个对话框选择可执行文件，并执行它。例如，程序运行后，在对话框中，选择windows下的“计算器”程序，然后执行这个程序，打开“计算器”。l编写程序，在窗体上显示一行信息，通过自己定义的颜色对话框和字体对话框改变这行信息的颜色和字体.8.6 第6步：部分例程序l在窗体上建立一个通用对话框，1个文本框和3个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：通过字体对话框把文本框中的文字设置为黑体，字体样式设置为粗体，字体大小设置为24，该操作在第一个命令按钮的事件过程实现。通过颜色对话框把文本框中的文字的前景颜色设置为红色。该操作在第二个命令按钮的事件过程实现。通过颜色对话框把文本框中的文字的背景颜色设置为黄色。该操作在第三个命令按钮的事件过程实现。8.6 第6步：部分例程序l在窗体上画一个文本框，把它的Multiline属性设置为True；通过菜单命令向文本框中输入信息并对文本框中的的文本进行格式化。按下述要求建立菜单程序：菜单程序含有3个主菜单，分别为“输入信息”、“显示信息”和格式。其中：“输入信息”包括两个菜单命令：“输入”、“退出”；l“显示信息”包括两个菜单命令：“显示”、“清除”；l“格式”包括5个菜单命令：“正常”、“粗体”、“下划线”和“font20”l（2）“输入”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字。l（3）“退出”命令的操作是：结束程序运行。l（4）“显示”命令的操作是：在文本框中显示输入的文本。l（5）“清除”命令的操作是：清除文本框中所显示的内容。l“正常”命令的操作是：文本框中的文本用正常字体（非粗体、非斜体、无下划线）显示。l（7）“粗体”命令的操作是：文本框中的文本用粗体显示。l（8）“斜体”命令的操作是：文本框中的文本用斜体显示。l（9）“下划线”命令的操作是：文本框中的文本用下划线显示。l（10）“font20”命令的操作是：把文本框中文本字体的大小设置为20。8.6 第6步：部分例程序l习题：l一、选择题l1、假定在窗体上建立1个通用对话框，其名称为CommonDiaglog1，用下面的语句建立1个对话框：CommonDiaglog1.Action=2与该语句等价的语句是 。lA）CommonDiaglog1.Showopen B）CommonDiaglog1.ShowSave lC）CommonDiaglog1.ShowColor D）CommonDiaglog1.ShowFontl2、在窗体上建立1个通用对话框，其名称为CommonDiaglog1，然后再添加1个命令按钮，并编写如下事件过程：lPrivate Sub Command1_Click()lCommonDiaglog1.Flags=cdOFNHideReadOnly 取消“只读检查”复选框lCommonDiaglog1.filter=”All Files(*.*)|*.*|text file(*.txt)|x.txt|Batch Files(*.bat)|*.bat”lCommonDiaglog1.filterindex=2lCommonDiaglog1.showopenlMsgbox CommonDiaglog1.filenamelEnd subl程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 。lA）All Files(*.*)B）text file(*.txt)C）Batch Files(*.bat)D）不确定8.6 第6步：部分例程序l二、填空题l1、在Visual Basic中的对话框分为3类，即 、和 。l2、为了把通用对话框控件加到工具箱中，应在“部件”对话框的“控件”选项卡中，选择 。l3、建立打开文件、保存文件、颜色、字体和打印对话框，所使用的方法分别为 l 、和 。l4、假定在窗体上建立一个通用对话框，其名称CommonDiaglog1，为了建立保存文件对话框，则需要把 属性设置为 ，其等价的方法是 。l复习思考：l思考 1：如何设计二级子菜单？l思考 2：弹出式菜单怎么设计？l思考 3：如何在文本框中显示多行数据？