围Fon1回区團Fo2回回「團 Fonl 回区 Labell 执行Form1窗体过程F1test Label2 执行Form2窗体过程F2_text Label 执行Mode1中 M test过程 But tonl uttonl Button (b) (c) 图52Fom1窗体运行前后的界面 例5-2计算5!、6!、8!以及5!+6!+8!,如图5-3所示。 设计说明: 在Form1窗体中包含一个Labe1框,4个 Button控件,4个命令按钮的 Tex属性如图5-3(a)际示,其从左到右4个命令按钮的Tag属性分别 为5,6,8,7,运行界面如图5-3(b)所示
例5-2 计算5！、6！、8！以及5！+6！+8！，如图5-3所示。 设计说明： 在Form1窗体中包含一个Label1框，4个Button控件，4个命令按钮的 Text属性如图5-3（a）所示，其从左到右4个命令按钮的Tag属性分别 为5，6，8，7，运行界面如图5-3 （b）所示
B Foral Labell 5+61+8!=41160 [6[8C5+6H+8L [5106[81051+6481 a 〔b) 图5-3Fom1窗体运行前后的界面 4个 Button控件共享的Cck代码为 Private Sub Button1_Click(ByVal sender As System Object, ByVal e As System EventArgs)Handles Button 1. Click, Button2. Click, Button3 Click Button. click Dim Sum As Long Call fact( sender, tAG,Sum)‘实参Sum的类型必须与形参 Total 致,即Long型 If sender Tag=7 Then Sum= Sum /42+ Sum /7+ Sum *8 5!+6!+8!,此处Sum=刀 Label 1. Text sender. Text & =" Sum End sub
4个Button控件共享的Click代码为： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click Dim Sum As Long Call Fact(sender.TAG, Sum) '实参Sum的类型必须与形参Total一 致，即Long型 If sender. Tag = 7 Then Sum = Sum / 42 + Sum / 7 + Sum * 8 ‘ 5!+6!+8!，此处Sum=7! Label1.Text = sender. Text & " = " & Sum End Sub
计算阶乘n的通用过程Fa为 Private Sub Fact(ByVal n As Integer, ByRef Total As Long Dim i As integer Total= 1 For i=1 Ton Total Total x i Next End sub 在应用程序设计中,有时需要让单个事件处理程序用于多个事件或者让 多个事件引发同一过程。本例的4个命令按钮的Cick事件共享 Button1clck 事件处理程序,是通过使用 Handles关键字实现的。 Button1cick事件处理过程的第一个参数 sender提供对引发事件的对 象的引用,通过引用对象的属性(Tag或 TabIndex等)可获得-些信息。上 面示例中的第二个参数e传递针对要处理事件的对象,如鼠标事件中鼠标 的位置
计算阶乘n的通用过程Fact为： Private Sub Fact(ByVal n As Integer, ByRef Total As Long) Dim i As Integer Total = 1 For i = 1 To n Total = Total * i Next End Sub 在应用程序设计中，有时需要让单个事件处理程序用于多个事件或者让 多个事件引发同一过程。本例的4个命令按钮的Click事件共享Button1_Click 事件处理程序，是通过使用 Handles 关键字实现的。 Button1_Click事件处理过程的第一个参数 sender 提供对引发事件的对 象的引用，通过引用对象的属性（Tag或TabIndex等）可获得一些信息。上 面示例中的第二个参数 e 传递针对要处理事件的对象，如鼠标事件中鼠标 的位置