vb自定义函数.docVIP

第43讲 过程VB应用程序是按模块化的方式组成的，一个程序模块是程序的一部 程序模块分为过程和函数两种过程强调的是动作，而函数强调的是 1、过程 可以将程序划分成一个个较小的逻辑单元，每个这样的逻辑单元可事件处理过程描述的是，当对象上发生某个事件Y时，需要某个事件YClick点击） 通用过程 而通用过程则是一个独立的程序段，不同的事件可能需要使用同一个程序段时，可以把这个程序段单独地建立成一个通用过程，供其他事件处理过程或其他通用过程调用。在本书中，我们只关心事件处理过程。 2．函数 实际上，函数也是一个程序模块，与过程相比，不同之处是函数执行(称为“函数返回值”)被送到函数的调用点(即调)上，供程序的后继部分继续进行处理，而过程是没 一、事件处理过程 可以按下面 Sub 事件处理过程名(参数表) 语句块 End Sub 对象名事件的标准名 例如，Private Sub Command_Click() 语句块End Sub 则：对象名事件的标准名Command_Click，而Click表示鼠标点击执行语句块例如设Textl是一个文本框对象，Textl文本框对象rivate Sub Text1_Change() 语句块 End SubChange是改变、变化的意思，用于输入、输出数据的改变，如果要写一个事件处理过程，处理 Textl_Click (演示：在程序代码窗口顶部栏有对象名事件对象名事件Change改选为Click，可鼠标点击执行语句块 表4．4．1 VB的一些常用对象上的常见事件的标准名 如果应用程序必须关心对象上发生的事件Y，就应编写一个事件X_Y，按照设计好的算法来处理这个事件；否则，这样的事件将VB按照标准的方式自动地进行处理。例如，用鼠标拖动滚动条，列表框 本章以后的大部分应用程序实例中，我们将把应用问题的计算过程 数据输入是否完成，必须要由用户来通知应用程序，常规的做法是在应用程序的窗体上，安排一个字面为“计算”或“开始”的命令按钮，一旦用户的数据输入完成后，就可用鼠标单击该命令按钮，它意味着这个事件的发生．应用程序已经具备了开始计算的必要条件，能够启动执行整个计算过程了。 例1计算一元二次方程ax2+bx+c=O的实数根一元二次方程.FRM，其中程序的输出部分代码为： If k = 0 Then Label6.Caption = 无解! ‘字符串无解!显示在标签6的属性名Caption上； Text4.Text = : Text5.Text = Text4.BackColor = vbBlue: Text5.BackColor = HFF0000 蓝色的16进制码 Else 底色属性名：BackColor Label6.Caption = k 系统符号常量（蓝色）vbBlue= HFF0000 (蓝色的16进制码) Text4.Text = X1 Text5.Text = X2 End If 演示：本应用程序窗体中使用对象属性值的设置 另外，我给大家提一下全局下面是应用程序的代码 #01 Dim d(1 To 500) As Double ‘定义数组变量d(1 To 500)供下面3个子程序公用； #02 Dim nc As Integer ‘定义简单变量nc供下面3个子程序公用； ‘这样的d(1 To 500)和 nc称为全局 #03 Sub Command1_Click() #04 Dim sum As Double ‘sum、i是子程序Command1_Click()的局部变量； #05 Dim i As Integer … ... #15 End Sub #16 Sub Textl_Cliek() Dim sum As Integer ‘这里的sum因为是局部变量，和上面子程序的sum可以是无关的； #19 nc=10 ‘如果是全局Textl_Cliek()中就不要再定义了； #20 End Sub #21 Sub Text1_KeyPressf