第 4 讲过程、菜单、对话框

1、二级辅导二级辅导过过 程程 二级辅导二级辅导u过程的应用过程的应用: （1）使同样的操作不重复编写，）使同样的操作不重复编写，一次写，多次用一次写，多次用.（2）把一项复杂的工作分成多个简单的功能模块）把一项复杂的工作分成多个简单的功能模块, 分而治之。分而治之。u过程过程: 完成一个独立功能，可供其他过程使用完成一个独立功能，可供其他过程使用(调用调用)。二级辅导二级辅导调用过程调用过程: 负责调用其他过程负责调用其他过程调用过程调用过程: 调用调用Sprg1调用调用Sprg1调用调用Sprg2子过程子过程: Sprg1子过程子过程: Sprg2二级辅导二级辅导常用过程分类常用过程分类:Su

2、b过程过程Function过程过程事件事件过程过程自定义自定义子过程子过程 内部内部函数函数(标准函数）标准函数） 自定义自定义函数函数过程过程1）过程是一段程序代码，是相对独立的逻辑模块。）过程是一段程序代码，是相对独立的逻辑模块。2）一个完整的）一个完整的VB应用程序由若干过程和模块组成。应用程序由若干过程和模块组成。二级辅导二级辅导 两者区别：两者区别：Sub子过程：完成一定的操作和功能，子过程：完成一定的操作和功能，无返回值。无返回值。Function函数过程：完成一定的操作和功函数过程：完成一定的操作和功能，并且可能，并且可返回返回数据处理的数据处理的结果结果。二级辅导二级辅导函数过

3、程的定义和调用函数过程的定义和调用 例例:计算圆的面积。计算圆的面积。公式如下：公式如下： area =pi*R*R两个变量：两个变量：area -圆面积圆面积 R-半径半径符号常量：符号常量：pi-圆周率圆周率二级辅导二级辅导例子例子 定义函数过程定义函数过程areaFunction area(R!) As Single area =3.14*R*REnd FunctionSub command1_click() S=area(5) msgbox(“面积面积=“ & S)End Sub调调用用函函数数过过程程二级辅导二级辅导6.1.26.1.2函数过程的定义函数过程的定义 定义函数过

4、程的形式如下：定义函数过程的形式如下：Public |Private Function函数过程名函数过程名(形参形参)As 类型类型 变量声明变量声明 语句块语句块 Return 表达式表达式 或或 函数名函数名=表达式表达式End FunctionvPublic 全局函数过程，可被程序任何模块调用。全局函数过程，可被程序任何模块调用。vPrivate 仅供本模块中的过程调用。仅供本模块中的过程调用。v形参形参(或称哑元或称哑元) 只能是变量或数组名只能是变量或数组名( ),仅表示参数的仅表示参数的个数、类型个数、类型，没有数值。，没有数值。二级辅导二级辅导函数过程的调用函数过程的调用 调用形

5、式：调用形式：函数过程名函数过程名(参数列表参数列表) 参数列表参数列表(称为称为实参实参或或实元实元)：必须与形参：必须与形参个数相同个数相同，位置与，位置与类型一一对应类型一一对应。可以是同类型的常量、变量、。可以是同类型的常量、变量、表达式。表达式。如：如：Rgb(255,255,0)二级辅导二级辅导Sub command1_click() Dim R! R=inputbox(“请输入半径：请输入半径：”) S=area(R) msgbox(“面积面积=” & S)End Sub程序运行流程程序运行流程 Function area(R!) As Single area =3.14

6、*R*REnd Function二级辅导二级辅导子过程的定义子过程的定义 子过程定义的方法同函数过程，形式如下：子过程定义的方法同函数过程，形式如下：SubSub 子过程名子过程名(参数列表参数列表) 局部变量定义局部变量定义 语句语句End SubEnd Sub 子过程名、形参同函数过程中对应项的规定，子过程名、形参同函数过程中对应项的规定，当当无形参时不要括号无形参时不要括号。二级辅导二级辅导子过程与函数过程的区别：子过程与函数过程的区别：u一般若程序有一般若程序有一个返回值一个返回值时，时，函数过程函数过程直观；直观；。u 函数过程必须有返回值，函数过程必须有返回值，函数名有类型函数名有

7、类型。，不能对子过，不能对子过程名赋值。程名赋值。 二级辅导二级辅导参数说明：参数说明：u形参形参没有没有具体的值具体的值，只代表了，只代表了参数的个数、位参数的个数、位置、类型置、类型；u形参形参是是过程与主调程序交互的过程与主调程序交互的接口接口，从主调，从主调 程序获得初值，或将计算结果返回给主调程序。程序获得初值，或将计算结果返回给主调程序。 二级辅导二级辅导子过程的调用有两种形式：子过程的调用有两种形式： Call Call 子过程名子过程名(实参列表实参列表) 子过程名子过程名 (实参列表实参列表) 注意：注意：若若实参要获得实参要获得子过程的子过程的返回值返回值，则实参，则实参只

8、能是变量只能是变量。 子过程调用子过程调用二级辅导二级辅导参数传递参数传递 二级辅导二级辅导 一般是按位置传送，按一般是按位置传送，按实参的位置次序实参的位置次序与与形参的位形参的位置次序置次序对应传送对应传送，与参数名没有关系与参数名没有关系。 例如例如rgb函数形式：函数形式： rgbrgb(红色值红色值%，绿色值，绿色值%，蓝色值，蓝色值%)调用语句：调用语句：label1.forecolor=rgb(255 ,0,0) 则则label1中的文字颜色变成红色。中的文字颜色变成红色。二级辅导二级辅导传址与传值传址与传值 数据传递：数据传递：有有传址传址(ByRef)和和传值传值(ByVal

9、)两种方法。两种方法。u 传址方式传址方式-将实参的地址传递给形参。因此在被调过程将实参的地址传递给形参。因此在被调过程体中对体中对形参的任何操作都变成了对相应实参的操作形参的任何操作都变成了对相应实参的操作，实参，实参的值就的值就会改变会改变。u 传值方式传值方式-系统将实参的值复制给形参，实参与形参断系统将实参的值复制给形参，实参与形参断开了联系。开了联系。在过程体内对形参的任何操作在过程体内对形参的任何操作不会影响到实参。不会影响到实参。实参的值实参的值不会改变不会改变。二级辅导二级辅导a的 地 址 1 0 1 0 1 0aa x x形 参实 参B yV al 传 值传 地 址形参获得实

10、参的值形参获得实参的值形参获得实形参获得实参的地址参的地址二级辅导二级辅导传址传址与与传值传值选用传值还是传地址如何选择：选用传值还是传地址如何选择：u 要将被调过程中的要将被调过程中的结果返回给主调程序结果返回给主调程序，则形参必，则形参必须是须是传址传址方式方式。这时实参必须是同类型的。这时实参必须是同类型的变量名变量名。u 不希望过程修改实参的值，则应选用不希望过程修改实参的值，则应选用传值传值方式方式，减，减少少各过程间的关联各过程间的关联。因为在过程体内对形参的改变不。因为在过程体内对形参的改变不会影响实参。会影响实参。u 形参是形参是数组数组的都是的都是地址地址传递传递。 二级辅导

11、二级辅导u形参是数组形参是数组 要以要以数组名数组名加加圆括圆括号表示，号表示，不要给不要给出维出维数数上界上界；多维数组，每维以逗号分隔。在过程中通过；多维数组，每维以逗号分隔。在过程中通过Ubound函数函数确定确定每维的每维的上界上界。u实参是数组实参是数组 要给出要给出数组名数组名(不需要圆括号不需要圆括号)。u当数组作为参数传递时，系统将实参数组的当数组作为参数传递时，系统将实参数组的起始地址传给过程起始地址传给过程，使形参数组也具有与实参数组相同的起始地址。使形参数组也具有与实参数组相同的起始地址。 数组参数的传递数组参数的传递 13579形参数组形参数组实参数组实参数组二级辅导二

12、级辅导菜单设计菜单设计 二级辅导二级辅导菜单有菜单有下拉式菜单下拉式菜单和和弹出菜单弹出菜单(上下文菜单上下文菜单)。下拉式菜单的组成结构：下拉式菜单的组成结构： 快捷键快捷键热键热键子菜单标记子菜单标记主菜单主菜单菜单项菜单项子菜单名子菜单名分隔线分隔线 二级辅导二级辅导菜单编辑器菜单编辑器 菜单列菜单列表框表框菜单项属性菜单项属性 操作按钮操作按钮分隔线分隔线: 在标题栏输在标题栏输入一个连字符入一个连字符“-” 标题热键：前面加标题热键：前面加&二级辅导二级辅导 菜单项有菜单项有NameName、VisibleVisible、EnabledEnabled等属性，还具等属性，还具有

13、下列重要属性：有下列重要属性：(1) (1) TextText 菜单项上菜单项上显示的标题文本显示的标题文本 在字符前加一个在字符前加一个&符号构成热键。例如，输入符号构成热键。例如，输入“新建新建(&N)”，则则菜单菜单显示显示“新建新建(N)”，N N为热键为热键。菜单项的菜单项的分隔符分隔符，输入一个减号，输入一个减号“- -”。(2) (2) ShortCutShortCut 设置菜单项的设置菜单项的快捷键快捷键。(3) (3) CheckedChecked 控制菜单项左边是否显示控制菜单项左边是否显示“ ”菜单项的菜单项的ClickClick事件事件为菜单项编写程序为

14、菜单项编写程序 二级辅导二级辅导弹出菜单弹出菜单 显示在窗体内的显示在窗体内的浮动菜单浮动菜单。显示位置取决于单显示位置取决于单击鼠标键时的位置击鼠标键时的位置。设计过程与普通菜单相同。菜单弹出的方法：设计过程与普通菜单相同。菜单弹出的方法： 对象对象.PopupMenu 菜单名菜单名, , 标志标志, x, y, x, y标志标志表示弹出的位置和触发的键表示弹出的位置和触发的键Sub Text1_MouseDown() If Button = 2 Then PopupMenu MenuEnd Sub二级辅导二级辅导通用对话框通用对话框 二级辅导二级辅导 VB提供了一组基于提供了一组基于Win

15、dows的标准对话框。利用的标准对话框。利用通用对话框控件可在窗体上创建打开文件、保存文件通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。、颜色、字体、打印等对话框。添加通用对话框到工具箱：添加通用对话框到工具箱：工程工程部件部件控件：控件：microsoft common dialog control 6.0 二级辅导二级辅导通用对话框的基本属性和方法通用对话框的基本属性和方法 (1) ActionAction属性和属性和ShowShow方法方法 打开对话框打开对话框 ShowHelp6帮助对话框帮助对话框ShowPrinter5打印机对话框打印机对话框ShowFo

16、nt4字体对话框字体对话框ShowColor3颜色对话框颜色对话框ShowSave2另存为对话框另存为对话框ShowOpen1打开文件对话框打开文件对话框Show方法方法Action属性属性通用对话框的类型通用对话框的类型该属性只能在程序中赋值该属性只能在程序中赋值(2) DialogTiltle属性属性 设置通用对话框标题设置通用对话框标题二级辅导二级辅导1.1.打开打开文件对话框文件对话框由由 ShowOpenShowOpen方法来实现方法来实现重要属性重要属性 :(1) FileNameFileName 文件名称，包含路径文件名称，包含路径(2) FileTitle FileTitle

17、文件名，不包含路径文件名，不包含路径(3) FilterFilter 确定所显示文件的类型确定所显示文件的类型 Text Files|*.txt|所有文件所有文件|*.*显示文本文件、所有文件显示文本文件、所有文件(4) FilterIndexFilterIndex文件列表中指定某类型文件文件列表中指定某类型文件(5) InitDir InitDir 初始化路径初始化路径 二级辅导二级辅导FilterFileNameInitDir FilterIndex二级辅导二级辅导2. 2. 保存保存文件对话框文件对话框 由由 ShowSaveShowSave方法方法来实现来实现与打开文件对话框的属性基本

18、相同，特有的属性是与打开文件对话框的属性基本相同，特有的属性是DefaultExtDefaultExt属性，用于设置属性，用于设置缺省的扩展名缺省的扩展名 。例例7.11为例为例7.107.10中的另存为命令按钮编写代码，保存文中的另存为命令按钮编写代码，保存文本框内的信息。本框内的信息。Sub Command2_ClickSub Command2_Click ()CommonDialog1.ShowSaveOpen CommonDialog1.filename For Output As #1Print #1, Text1.Text 保存文件保存文件Close #1 关闭文件关闭文件End SubEnd Sub 二级辅导二级辅导3. 3. 颜色颜色对话框对话框 由由ShowColorShowColor方法方法打开颜色对话框打开颜色对话框重要属性重要属性ColorColor，它返回或设置，它返回或设置选定的颜色选定的颜色 例例7.12 为例为例7.10中的