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

过 程 过程的应用: （1）使同样的操作不重复编写，一次写，多次用. （2）把一项复杂的工作分成多个简单的功能模块, 分而治之。 过程: 完成一个独立功能，可供其他过程使用(调用)。 调用过程: 负责调用其他过程 常用过程分类: 函数过程的定义和调用 例子 6.1.2函数过程的定义 函数过程的调用 子过程的定义 子过程与函数过程的区别： 参数说明： 子过程调用 参数传递 传址与传值 传址与传值 数组参数的传递 菜单设计 菜单编辑器 弹出菜单 通用对话框 通用对话框的基本属性和方法 1.打开文件对话框 2. 保存文件对话框 3. 颜色对话框 4 .字体对话框 end 由ShowColor方法打开颜色对话框 重要属性Color，它返回或设置选定的颜色 例7.12 为例7.10中的颜色命令按钮编写事件过程，设置文本框的前景色。 Sub Command3_Click () CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub 设置文件框前景颜色 由ShowFont方法来实现 Font 获取选择的字体 Color 选定的颜色 二级辅导 调用过程: 调用Sprg1 调用Sprg1 调用Sprg2 子过程: Sprg1 子过程: Sprg2 Sub过程 Function过程 事件过程 自定义子过程 内部函数(标准函数） 自定义函数过程 1）过程是一段程序代码，是相对独立的逻辑模块。 2）一个完整的VB应用程序由若干过程和模块组成。 两者区别： Sub子过程：完成一定的操作和功能， 无返回值。 Function函数过程：完成一定的操作和功能，并且可返回数据处理的结果。 例:计算圆的面积。 公式如下： area =pi*R*R 两个变量：area --圆面积 R--半径 符号常量：pi--圆周率 定义函数过程area Function area(R!) As Single area =3.14*R*R End Function Sub command1_click() S=area(5) msgbox(“面积=“ S) End Sub 调用函数过程 定义函数过程的形式如下： [Public |Private] Function函数过程名(形参)[As 类型] 变量声明 语句块 Return 表达式 ‘或 函数名=表达式 End Function Public 全局函数过程，可被程序任何模块调用。 Private 仅供本模块中的过程调用。 形参(或称哑元) 只能是变量或数组名( ),仅表示参数的个数、类型，没有数值。 调用形式：函数过程名([参数列表]) 参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。 如：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*R*R End Function 子过程定义的方法同函数过程，形式如下： Sub 子过程名[(参数列表)] 局部变量定义 语句 End Sub 子过程名、形参同函数过程中对应项的规定， 当无形参时不要括号。 一般若程序有一个返回值时，函数过程直观；当有多个返回值时，习惯用子过程。 函数过程必须有返回值，函数名有类型。子过程没有值，过程名没有类型，不能对子过程名赋值。 形参没有具体的值，只代表了参数的个数、位置、类型；只能是简单变量、数组名，不能是常量、数组元素、表达式。 形参是过程与主调程序交互的接口，从主调 程序获得初值，或将计算结果返回给主调程序。 子过程的调用有两种形式： ① Call 子过程名[(实参列表)] ② 子过程名 ([实参列表]) 用Call关键字时，若有实参，则实参必须用圆括号括起，无实参圆括号省略。 注意： 若实参要获得子过程的返回值，则实参只能是变量。 一般是按位置传送，按实参的位置次序与形参的位置次序对应传送，与参数名没有关系。 在调用标准函数时，只要知道形参的个