技术 - Visual Basic - VB.net 自定义事件使用方法

08
09 Mar.

VB.net 自定义事件使用方法

最后更新： 2009/03/08  |  评论： 0  |  关键词： 事件  自定义  

１、先定义包含事件的类

  1. Public Class TestEvent  
  2.     Public Event MyEvent(ByVal s As String) '自定义事件  
  3.  
  4.     Public Sub StartEvent(ByVal value As String) '触发事件函数  
  5.         RaiseEvent MyEvent(value) '触发事件  
  6.     End Sub 
  7. End Class 

 

２、在使用事件的类中添加如下代码

  1. '声明事件对象并实例化  
  2. Private WithEvents mEvent As New TestEvent  
  3.  
  4. '处理事件函数 注意：函数名必须为 变量名_事件名  
  5. Private Sub mEvent_MyEvent(ByVal s As String) Handles mEvent.MyEvent  
  6.     MsgBox(s)  
  7. End Sub 
  8.  
  9. '触发事件  
  10. mEvent.StartEvent("http://www.woodcoal.cn/")  

或者使用以下方法

  1. '声明事件对象  
  2. Private mEvent As New TestEvent  
  3.  
  4. '绑定处理函数  
  5. AddHandler (mEvent.MyEvent), AddressOf OnMyEvent   
  6.  
  7. '处理事件函数  
  8. Private Sub OnMyEvent(ByVal s As String) Handles mEvent.MyEvent  
  9.     MsgBox(s)  
  10. End Sub 
  11.  
  12. '触发事件  
  13. mEvent.StartEvent("http://www.woodcoal.cn/") 

 

· 本文由 木炭 发布在《激情燃烧的木炭》 上，原文地址为：http://www.woodcoal.cn/technology/visual-basic/200938-4460-492.html（转载请保留本信息、全文内容和链接）

发表评论

已经有 0 位朋友发表了对《VB.net 自定义事件使用方法》的看法
 
登录名：  密码：   登录  注册
评论: 
User:
Contact:
验证码:  
  [Ctrl+Enter]
阅读更多评论...

关于本文

栏目导航

· Visual Basic· PowerBasic· ASP/.Net· Web Design· Knowledge· News Message

相关文章

推荐文章