Visualbasic教程实用教案

1、本章(bn zhn)内容 7.1 通用对话框 7.2 菜单设计(shj) 7.3 多重窗体 7.4 VB的工程结构 7.5 多文档界面（MDI） 7.6 工具栏设计(shj)第1页/共50页第一页，共51页。通用(tngyng)对话框 （CommonDialog）作用：用于实现打开文件、保存文件以及对字体、字号和颜色进行设置等操作(cozu) 。添加到工具箱中的方法：(1) 选择菜单“工程/部件”命令，打开“部件”对话框;(2) 在对话框中选择“控件”选项卡，在控件列表框中选“Microsoft Common Dialog Controls 6.0”; (3) 单击“确定”按钮。第2页/共50

2、页第二页，共51页。通用(tngyng)对话框的Action属性Action属性值含 义对 应 方 法1显示“打开”对话框ShowOpen2显示“另存为”对话框ShowSave3显示“颜色”对话框ShowColor4显示“字体”对话框ShowFont5显示“打印机”对话框ShowPrinter6显示“帮助”对话框ShowHelp第3页/共50页第三页，共51页。打开(d ki)对话框FilterFileNameInitDirFilterIndex第4页/共50页第四页，共51页。例 7-1 设计(shj)一个简单的应用程序，用于打开各种类型的图形文件。 第5页/共50页第五页，共51页。例7-

3、1代码(di m)第6页/共50页第六页，共51页。“打开”对话框的主要(zhyo)属性 属性名说 明DialogTitle对话框的标题FileName显示文件名(包含路径)FileTitle显示文件名(不包含路径)Filter确定文件列表框中所显示文件的类型DefaultExt确定所存文件的默认扩展名（一般用于“另存为”对话框中）FilterIndex在文件列表框中所选文件类型的序号InitDir初始目录MaxFileSize被打开文件的最大长度第7页/共50页第七页，共51页。DialogTiltleFileName InitDirFilterFilterIndexDefaultExt F

4、ilter的格式(g shi): 文件说明|文件类型 例如： Word(*.DOC)|*.DOC|Text (*.TXT)|*.txt|All Files|*.*“打开(d ki)”文件对话框属性页第8页/共50页第八页，共51页。“另存为”对话框 “另存为”对话框的相关(xinggun)属性基本上与“打开”对话框的属性及含义相同，仅DefaultExt属性是该对话框所特有的，它表示所存文件的默认扩展名。 第9页/共50页第九页，共51页。例 7-2 设计一个(y )应用程序，可以保存文本框中所编辑的文字。缺省扩展名时，可将所编辑的文字保存为扩展名为.dat的数据文件。 第10页/共50页第十

5、页，共51页。例7-2代码(di m)第11页/共50页第十一页，共51页。“颜色(yns)”对话框 当通用(tngyng)对话框的Action属性值被设置为3或调用了ShowColor方法时，便会立即弹出“颜色”对话框 第12页/共50页第十二页，共51页。例 7-3 设计一个应用程序，通过命令(mng lng)按钮可以改变标签的背景颜色。 第13页/共50页第十三页，共51页。“字体(zt)”对话框 通用对话框的Flags属性被设置(shzh)为3，接着Action属性值被设置(shzh)为4或调用了ShowFont方法后，便会立即弹出“字体”对话框 。第14页/共50页第十四页，共51页

6、。说 明(1) Flags属性必须(bx)在激活字体对话框之前进行设置。(2) Flags属性必须(bx)取 1、2或3之一，或者取1、2或3与256之和。属性名属性名属性值属性值说明说明FlagsFlags1 1显示屏幕字体显示屏幕字体2 2显示打印机字体显示打印机字体3 3显示打印机字体和屏幕字体显示打印机字体和屏幕字体256256显示删除线和下划线检查框以显示删除线和下划线检查框以及颜色组合框及颜色组合框第15页/共50页第十五页，共51页。例 7-4 设计一个应用程序，通过命令按钮可以(ky)改变标签的字体。 第16页/共50页第十六页，共51页。“打印(d yn)”对话框 当通用对话

7、框的Action属性值被设置为5或调用了ShowPrinter方法时，便会立即(lj)弹出“打印”对话框 第17页/共50页第十七页，共51页。例 7-5 设计一个应用程序，通过命令按钮可以(ky)打印文本框中的内容。 第18页/共50页第十八页，共51页。菜单(ci dn)设计主菜单名快捷键热键下级子菜单标记主菜单条分隔线菜单项子菜单名 下拉式菜单系统(xtng)的组成结构 ：第19页/共50页第十九页，共51页。菜单(ci dn)编辑器 属性(shxng)设置区 菜单(ci dn)编辑区 菜单列表区 第20页/共50页第二十页，共51页。菜单项的属性(shxng) 属性标题属性标题属性名属

8、性名说说 明明标题标题Caption在菜单项上所显示的字符串，减号显示分隔条在菜单项上所显示的字符串，减号显示分隔条名称名称Name用来编写菜单控件的事件代码，相当于其他控用来编写菜单控件的事件代码，相当于其他控件的（名称）。件的（名称）。索引索引Index创建菜单数组时，相当于数组的下标。创建菜单数组时，相当于数组的下标。快捷键快捷键Shortcut设置菜单项的快捷键设置菜单项的快捷键复选复选Checked为为True（选中）时，菜单项前出现一个（选中）时，菜单项前出现一个“” 。有效有效Enabled为为False（未选中）时，菜单项为灰色，表示该（未选中）时，菜单项为灰色，表示该菜单项不

9、可用。菜单项不可用。可见可见Visible为为False（未选中）时，对应的菜单项不可见。（未选中）时，对应的菜单项不可见。显示窗口显示窗口列表列表WindowList该属性为该属性为True（选中）时，将显示当前打开的（选中）时，将显示当前打开的一系列子窗口的标题。一系列子窗口的标题。第21页/共50页第二十一页，共51页。例 7-6 设计下拉式菜单，其功能可以(ky)改变文本框中的文字的字体、字形和大小。 第22页/共50页第二十二页，共51页。菜单(ci dn)控件数组 控件数组是指多个菜单项，共用同一个名称，用索引号标识每个菜单项，执行同一个Click事件过程。 系统将根据(gnj)不

10、同的索引（Index）参数来区分被单击的菜单项，从而完成相应的功能操作。第23页/共50页第二十三页，共51页。例 7-7 利用菜单控件数组改编(gibin)例7-6，去掉“字形”子菜单标题，在“粗体”和“斜体”菜单项旁边加“”标记，以表示是否对文字进行粗体或斜体的设置。 第24页/共50页第二十四页，共51页。弹出式菜单(ci dn) 语法格式为： 对象名.PopupMenu ,flags,X,Y 其中: 对象名：指出在哪一个(y )对象上打开弹出式菜单 菜单名：是指在“菜单编辑器”中为该菜单标题所设置的名称（Name）属性值。 x,y：是菜单弹出的坐标，默认为鼠标坐标。 Flags ：定义

11、弹出式菜单的位置及行为。第25页/共50页第二十五页，共51页。例 7-8 在例7-7的基础上添加一个(y )弹出式菜单，用于改变文本中文字的颜色。 第26页/共50页第二十六页，共51页。多重窗体 多重窗体是指在一个工程中有多个普通窗体，而每个窗体都拥有自己的用户界面和事件(shjin)代码，通过工程管理形成一个复杂的、功能强大的应用程序。第27页/共50页第二十七页，共51页。例 7-9 建立一个(y )简单的时间和日期查询系统。 第28页/共50页第二十八页，共51页。多重窗体的添加(tin ji) 工程工程/ /添加添加(tin ji)(tin ji)窗体窗体添加添加(tin ji)“

12、(tin ji)“现存现存”窗体时要注意：窗体时要注意：(1) (1) 添加添加(tin ji)(tin ji)的窗体实际是将其他工程中已有的窗体加入，多个工程共享窗体。的窗体实际是将其他工程中已有的窗体加入，多个工程共享窗体。(2) (2) 防止多个窗体的防止多个窗体的NameName相同而不能添加相同而不能添加(tin ji)(tin ji)。(3) (3) 通过通过“另存为另存为”命令以不同的窗体文件名保存，断开共享。命令以不同的窗体文件名保存，断开共享。新建 现存第29页/共50页第二十九页，共51页。多重窗体操作(cozu)的语句和方法 (1) Load语句 格式：Load 窗体名称

13、 功能：将一个(y )窗体装入内存。 说明：此时仅能引用窗体中的控件及各种属性，但运行时窗体并不显示到屏幕上。 (2) UnLoad语句 格式：UnLoad 窗体名称 功能：清除内存中的窗体。第30页/共50页第三十页，共51页。(3) Show方法 格式：窗体名称(mngchng).Show模式 功能：将一个窗体装入内存，并在屏幕上显示。 说明： 若省略窗体名称(mngchng)，则显示当前窗体。 模式的值为1时，窗体为“模式型” ，即在程序运行时用户只有关闭该窗体之后才能对其他窗体进行操作。 模式的值为0时，窗体为“非模式型” ，即可以同时打开几个窗体进行操作。 Show方法兼有Load方

14、法的功能。(4) Hide方法 格式：窗体名称(mngchng).Hide 功能：隐藏指定的窗体，但仍保存在内存中。第31页/共50页第三十一页，共51页。设置(shzh)启动窗体 的方法 (1)选择(xunz)菜单“工程/工程属性”项，打开“工程属性”对话框(2) 选取“通用”选项卡，在“启动对象”下拉列表中，指定作为第一个出现的窗体名(3)(3) 单击“确定”按钮第32页/共50页第三十二页，共51页。多重窗体间的数据(shj)存取 格式(g shi)：窗体名.控件名.属性保存(bocn)文件 第33页/共50页第三十三页，共51页。VB的工程(gngchng)结构 模块指程序(chngx

15、)单位, 在VB的应用程序(chngx)中有三种模块：标准模块窗体模块类模块 第34页/共50页第三十四页，共51页。窗体模块(m kui) 1.通用声明 用来存放窗体的变量和常量的声明以及一些函数的声明。其作用域为整个窗体。 2.事件过程 为各个对象所编写的各种事件代码，各个事件过程编写的顺序不受限制。即可以在工程运行时由用户的各种操作来驱动，也可以被其他的事件过程或通用过程所调用。 3.通用过程 通用过程就是我们(w men)在第六章所介绍的用户自定义的子程序和函数。第35页/共50页第三十五页，共51页。标准(biozhn)模块 标准模块是独立于窗体的程序单位，其扩展名为.bas。 1.

16、 全局变量声明 使用Public关键词对变量和常量进行声明，其作用域为整个工程。 2. 模块层声明 用Dim关键词声明的变量和常量，其有效(yuxio)范围仅限于本模块内。 3. 通用过程 用户自定义的子程序和函数。一般用Public关键词声明的通用过程放在标准模块中。 第36页/共50页第三十六页，共51页。Sub Main过程(guchng) Sub Main是在标准模块中建立的一个特殊的通用过程，主要用于控制多窗体应用程序的启动，并且可以进行一些初始化工作(gngzu)。 作为启动过程的设置： (1) 选择 “工程/工程属性” ，打开“工程属性”对话框 (2) 选取“通用”选项卡，在“启

17、动对象”下拉列表中, 选取Sub Main。 (3) 单击“确定”按钮。 第37页/共50页第三十七页，共51页。例 7-10 用例7-1、例7-2、例7-3、例7-4四个案例的窗体文件，形成一个(y )新的工程。 第38页/共50页第三十八页，共51页。多文档界面(jimin)（MDI） MDI窗体的特性： (1) 所有子窗体均显示在MDI窗体之内，子窗体可移动、改变大小，但不能超越MDI窗体的边界。(2) 当一个子窗体被最小化时，它的最小化图标放置在MDI窗体内，而不是(b shi)Windows的任务栏中。 (3) 当子窗体最大化时，子窗体的标题与MDI窗体的标题将组合在一起 。(4)

18、在执行阶段，活动子窗体的菜单显示在MDI窗体的菜单栏中，替代MDI窗体的菜单。(5) 在MDI子窗体上必须有存放文档的控件，如Text第39页/共50页第三十九页，共51页。 MDI窗体的创建(chungjin) 步骤如下(rxi)：1) 创建MDI窗体：执行“工程/添加MDI窗体”命令，为该工程创建一个MDI窗体。再选取“工程/属性”项，设定MDI窗体为启动对象。2) 创建第一个子窗体：设置Form1窗体的MDIChild属性为True，即可将普通窗体Form1变为MDI窗体的子窗体。3) 创建多个子窗体：通过Dim语句为工程添加MDI子窗体，接着再通过Load命令装载该子窗体。第40页/共

19、50页第四十页，共51页。Dim语句的调用格式(g shi)为：Dim新对象名As New对象名标准窗体MDI窗体MDI子窗体(v6b8-1)第41页/共50页第四十一页，共51页。例 7-11 用多文档界面建立一个简易文本编辑器。要求： (1) 用“新建”菜单项可任意增加若干个子窗口，并在子窗口的标题栏中显示窗口号； (2) 用“打开”菜单项可新增一个新的子窗口，并在子窗口中打开一个文本文档； (3) 用“保存”菜单项可将当前活动(hu dng)子窗口中的文本内容，存入磁盘。 第42页/共50页第四十二页，共51页。多个(du )子窗体的排列 (1) 显示打开的多个文档窗口 要在某个菜单上显

20、示所有打开的子窗体标题，只需利用菜单编辑器将该菜单的WindowList属性设置(shzh)为True。 (2)格不入排列窗口 利用Arrange方法进行层叠、平铺和排列图标。 格式： MDI窗体名称.Arrange 排列样式第43页/共50页第四十三页，共51页。排列(pili)样式取值表 值VB常量说 明0vbCascade层叠所有非最小化MDI子窗体1vbTileHorizontal 水平平铺所有非最小化MDI子窗体2vbTileVertical垂直平铺所有非最小化MDI子窗体3vbArrangeIcons重排最小化MDI子窗体图标第44页/共50页第四十四页，共51页。例 7-12 在例7-11题的基础上，增添“窗口”下拉菜单，实现对多个(du )子窗口的各种排列，并显示被打开的各子窗口的标题。 第45页/共50页第四十五页，共51页。工具栏设计(shj) 工具栏的设计步骤如下：在工具箱中添加工具栏控件和图像列表控件。在窗体上添加ImageList控件，通过ImageList控件的属性对