Visual BasicNET程序设计教程第14章.pptVIP

“收税( )”这个事件发生后，程序要做一些处理，比如将工资收入打95的折扣等等。此时需要一个过程来实现。如下过程“事件处理( )”用于处理“收税( )”事件发生后应该做的事情的： Sub 事件处理( ) Handles zg1.收税 sr = 0.95 * Me.工资 Me.工资=sr MsgBox(交税5% Chr(13) Chr(10) 税后收入为 sr) End Sub 这个过程的后面有Handles和zg1.收税，表示这个过程是由“收税( )”这个事件来触发的。 我们此刻再回到前面方法“显示收入( )”(或者方法“收入( )”)： Sub 显示收入( ) zg1 = New 职工( ) If 工资 800 Then zg1.发生事件( ) Else MsgBox(不收税, 工资为 工资) End If End Sub 其中语句“zg1.发生事件( )”用于触发事件。 特别强调，VB.NET中规定不能够将下面两个过程： Sub 显示收入( ) zg1 = New 职工( ) If 工资 800 Then zg1.发生事件( ) Else MsgBox(不收税,工资为 工资) End If End Sub 和 Sub 发生事件( ) RaiseEvent 收税( ) End Sub 合并为一个过程： Sub 显示收入( ) zg1 = New 职工( ) If 工资 800 Then RaiseEvent 收税( ) Else MsgBox(不收税, 工资为 工资) End If End Sub 这样是不会触发“收税( )”事件的。 另外，如果想在程序中加入语句：zg.发生事件( )也是不能够触发事件的，由此可知用于触发事件的实体对象必须在主程序之外。 “职工”类完整的代码如下： Public Class 职工 域的定义 Public name As String Public age As Integer Private pay As Integer 工资属性 Property 工资( ) As Integer Get Return pay End Get Set(ByVal Value As Integer) pay = Value End Set End Property 姓名属性 ReadOnly Property 姓名( ) As String Get Return name End Get End Property Private sr As Integer 显示收入方法 Sub 显示收入() zg1 = New 职工() If 工资 800 Then zg1.发生事件() Else MsgBox(不收税,工资为 工资) End If End Sub 收入方法 Function 收入( ) As Integer zg1 = New 职工( ) sr = Me.工资 If 工资 800 Then zg1.发生事件( ) Else MsgBox(不收税, 工资为 工资) End If Return sr End Function ? 事件声明 Public Event 收税( ) 定义事件实体对象，这样的语句不能够出现在主程序里 WithEvents zg1 As 职工 在这个过程中触发事件 Sub 发生事件( ) RaiseEvent 收税( ) End Sub ? 事件触发后，到这里来执行此过程 Sub 事件处理( ) Handles zg1.收税