VB.NET下的事件和委托

分类：VB作者：编程之家用户
本文依然给大家介绍事件和委托，只不过这次介绍的是VB.NET中的事件和委托。希望对大家有帮助，一起来看。

AD：


委托是可用于调用其他对象方法的对象。它们有时被称为类型安全函数指针，因为它们与其他编程语言中所使用的函数指针相似。但不同于函数指针，VB.NET 委托是基于 System.Delegate 类的引用类型，它可以引用共享方法—无需特定的类实例即可调用的方法和实例方法。

委托在调用过程和被调用过程需要媒介的情况下是很有用的。例如，您可能想让一个引发事件的对象能够在不同的环境下调用不同的事件处理程序。不幸的是，引发事件的对象无法提前知道处理特定事件的事件处理程序。Visual Basic .NET 通过在使用 AddHandler 语句时创建委托，可让您动态地将事件处理程序与事件关联。在运行时，委托将各种调用转发到相应的事件处理程序。

尽管可以创建自己的委托，但在大多数情况下，Visual Basic .NET 为您创建委托并提供具体信息。例如，Event 语句将名为 <EventName>EventHandler 的委托类隐式定义为 Event 语句所在类的嵌套类，且其签字与该事件相同。AddressOf 语句则隐式创建委托的实例。例如，以下两行代码是等效的：

   
   
    
    
    
  1. AddHandlerButton1.Click 
    2. 
    
    
  2. AddressOfMe.Button1_Click 
    3. 
    
    
  3. 'AddHandler指向引发事件的对象，AddressOf则确定该事件对象所要调用的事件处理程序 
    4. 
    
    
  4. '上述行为又可以称为监视 
    5. 
    
    
  5. AddHandlerButton1.Click,NewEventHandler(AddressOfButton1_Click)
    6.

只要编译器可以用上下文确定委托的类型，就可以使用速写方法创建委托。

注：处理自基类继承的事件

派生类（继承某个基类特征的类）能用 Handles MyBase 语句处理它们的基类所引发的事件。

处理来自基类的事件

通过给事件处理程序过程的声明行添加 Handles MyBase.<event name> 语句来声明派生类中的事件处理程序，其中的 event name 是基类中正在处理的事件的名称。例如：

   
   
    
    
    
  1. PublicClassClass1 
    2. 
    
    
  2. PublicEventSE(ByValiAsInteger) 
    3. 
    
    
  3. 'Placemethodsandpropertieshere. 
    4. 
    
    
  4. EndClass
    5. 
    
    
    6. 
    
    
  6. PublicClassClass2 
    7. 
    
    
  7. InheritsClass1 
    8. 
    
    
  8. SubEventHandler(ByValxAsInteger)HandlesMyBase.SE 
    9. 
    
    
  9. 'PlacecodetohandleeventsfromClass1here. 
    10. 
    
    
  10. EndSub
    11. 
    
    
  11. EndClass
    12.

声明使用现有委托类型的事件

某些情况下，可能会要声明某事件使用现有委托类型为基础委托。以下语法说明了进行声明的方式：

Event AnEvent As DelegateType该语法在将多个事件路由到同一处理程序时是很有用的，不过使用现有委托类型时需要先进行如下定义：

   
   
    
    
    
  1. delegate{sub|function}DelegateType(参数1，参数2)
    2.

下面是vb.net控制台程序演示单一事件委托多处理程序.

比如说在社会上，你是法律，社会上有三种人，警察、无赖和自愿反扒队。

你规定：如果小偷偷东西，则警察处罚小偷500元钱，自愿反扒队要打无赖进医院一次

这就是现实中的委托。

实际上，在写程序中，程序员就是法律，警察、小偷和自愿反扒队就是三个对象。小偷偷东西是一个方法，小偷还有一个偷东西事件，他偷东西激发这个事件。而警察和自愿反扒队就是两个事件处理对象，警察负责把小偷的钱扣除500，自愿反扒队需要大小偷进医院一次。

所以，委托有如下几个要素：

  • 激发事件的对象--就是小偷
  • 处理对象事件的对象--就是警察和自愿反扒队
  • 定义委托，就是法律让警察和自愿反扒队监视小偷。

如果这三个要素都满足的话，则你就写出了一个完整事件的处理。

下面是vb.net控制台的实例

   
   
    
    
    
  1. ImportsSystem 
    2. 
    
    
  2. ModuleModule1 
    3. 
    
    
    4. 
    
    
  4. '准备引用无赖类的偷东西事件 
    5. 
    
    
  5. PublicWithEventswAs无赖 
    6. 
    
    
  6. SubMain() 
    7. 
    
    
  7. Console.WriteLine("新的一天开始了....") 
    8. 
    
    
  8. '实例华警察、无赖、自愿反扒队类 
    9. 
    
    
  9. DimpAsNew警察 
    10. 
    
    
  10. w=New无赖 
    11. 
    
    
  11. DimppAsNew自愿反扒队 
    12. 
    
    
  12. '设置对无赖类的偷东西事件的监视，并设置相应的事件处理程序 
    13. 
    
    
  13. '如果小偷玩偷东西则引用警察的罚钱处理程序 
    14. 
    
    
  14. AddHandlerw.PlayGame,AddressOfp.扣钱 
    15. 
    
    
  15. '如果小偷偷东西则引用自愿反扒队的打人处理程序 
    16. 
    
    
  16. AddHandlerw.PlayGame,AddressOfpp.打人 
    17. 
    
    
  17. w.偷东西() 
    18. 
    
    
  18. Console.WriteLine("天黑了....") 
    19. 
    
    
  19. Console.ReadLine() 
    20. 
    
    
  20. EndSub
    21. 
    
    
  21. 'EndClass 
    22. 
    
    
    23. 
    
    
  23. PublicClass警察 
    24. 
    
    
  24. SubNew() 
    25. 
    
    
  25. Console.WriteLine("生成警察......") 
    26. 
    
    
  26. EndSub
    27. 
    
    
  27. '定义的事件处理程序的参数类型要与定义的委托的参数类型相一致 
    28. 
    
    
  28. PublicSub扣钱(ByValsenderAsObject,ByValeAsSystem.EventArgs) 
    29. 
    
    
    30. 
    
    
  30. Console.WriteLine("警察：好小子，胆敢偷东西...") 
    31. 
    
    
  31. '定义线程输出迟缓3秒 
    32. 
    
    
  32. System.Threading.Thread.Sleep(3000) 
    33. 
    
    
  33. Console.WriteLine("警察：看看你小子有多少钱...") 
    34. 
    
    
  34. DimfAs无赖=sender 
    35. 
    
    
  35. System.Threading.Thread.Sleep(3000) 
    36. 
    
    
  36. Console.WriteLine("无赖的钱："+f.钱.ToString()) 
    37. 
    
    
  37. System.Threading.Thread.Sleep(3000) 
    38. 
    
    
  38. Console.WriteLine("开始扣钱......") 
    39. 
    
    
  39. System.Threading.Thread.Sleep(3000) 
    40. 
    
    
  40. f.钱=f.钱-500 
    41. 
    
    
  41. Console.WriteLine("扣完了....现在无赖还剩下："+f.钱.ToString()) 
    42. 
    
    
  42. System.Threading.Thread.Sleep(3000) 
    43. 
    
    
  43. EndSub
    44. 
    
    
    45. 
    
    
  45. EndClass
    46. 
    
    
  46. PublicClass无赖 
    47. 
    
    
  47. '先定义一个偷东西的事件使用现有委托类型PlayGameHandler为基础委托 
    48. 
    
    
  48. PublicEventPlayGameAsPlayGameHandler 
    49. 
    
    
  49. Privatem_MoneyAsInteger
    50. 
    
    
  50. PrivateeyAsInteger
    51. 
    
    
  51. SubNew() 
    52. 
    
    
  52. Console.WriteLine("生成无赖....") 
    53. 
    
    
  53. m_Money=1000 
    54. 
    
    
  54. ey=5 
    55. 
    
    
  55. EndSub
    56. 
    
    
  56. '定义挨打属性用来记录挨打过几次 
    57. 
    
    
  57. Property挨打()AsInteger
    58. 
    
    
  58. Get
    59. 
    
    
  59. Returney 
    60. 
    
    
  60. EndGet
    61. 
    
    
  61. Set(ByValValueAsInteger) 
    62. 
    
    
  62. ey=Value 
    63. 
    
    
  63. EndSet
    64. 
    
    
  64. EndProperty
    65. 
    
    
  65. '定义前属性用来记录有多少钱 
    66. 
    
    
  66. Property钱()AsInteger
    67. 
    
    
  67. Get
    68. 
    
    
  68. Returnm_Money 
    69. 
    
    
  69. EndGet
    70. 
    
    
  70. Set(ByValValueAsInteger) 
    71. 
    
    
  71. m_Money=Value 
    72. 
    
    
  72. EndSet
    73. 
    
    
  73. EndProperty
    74. 
    
    
  74. '定义偷东西过程 
    75. 
    
    
  75. PublicSub偷东西() 
    76. 
    
    
  76. Console.WriteLine("无赖开始偷东西了") 
    77. 
    
    
  77. System.Threading.Thread.Sleep(3000) 
    78. 
    
    
  78. '实例化事件参数 
    79. 
    
    
  79. DimeAsNewSystem.EventArgs 
    80. 
    
    
  80. '引发偷东西事件，参数类型要与现有委托类型一致 
    81. 
    
    
  81. RaiseEventPlayGame(Me,e) 
    82. 
    
    
  82. EndSub
    83. 
    
    
  83. EndClass
    84. 
    
    
  84. PublicClass自愿反扒队 
    85. 
    
    
  85. SubNew() 
    86. 
    
    
  86. Console.WriteLine("自愿反扒队来了.....") 
    87. 
    
    
  87. System.Threading.Thread.Sleep(3000) 
    88. 
    
    
  88. EndSub
    89. 
    
    
  89. '定义的事件处理程序的参数类型要与定义的委托的参数类型相一致 
    90. 
    
    
  90. PublicSub打人(ByValsenderAsObject,ByValeAsSystem.EventArgs) 
    91. 
    
    
  91. System.Threading.Thread.Sleep(3000) 
    92. 
    
    
  92. Console.WriteLine("自愿反扒队：好小子，敢偷东西...") 
    93. 
    
    
  93. System.Threading.Thread.Sleep(3000) 
    94. 
    
    
  94. Console.WriteLine("自愿反扒队：你小子挨过几次打了...") 
    95. 
    
    
  95. DimbnAs无赖=sender 
    96. 
    
    
  96. System.Threading.Thread.Sleep(3000) 
    97. 
    
    
  97. Console.WriteLine("无赖："+bn.挨打.ToString+"次") 
    98. 
    
    
  98. System.Threading.Thread.Sleep(3000) 
    99. 
    
    
    100. 
    
    
  100. Console.WriteLine("自愿反扒队：那也得揍你，先来一拳....") 
    101. 
    
    
  101. System.Threading.Thread.Sleep(3000) 
    102. 
    
    
  102. Console.WriteLine("自愿反扒队：再来一脚......") 
    103. 
    
    
  103. System.Threading.Thread.Sleep(3000) 
    104. 
    
    
    105. 
    
    
  105. Console.WriteLine("自愿反扒队：打完了...赶紧去医院吧...") 
    106. 
    
    
  106. EndSub
    107. 
    
    
  107. EndClass
    108. 
    
    
  108. '定义委托类型 
    109. 
    
    
  109. DelegateSubPlayGameHandler(ByValsenderAsObject,ByValeAsSystem.EventArgs) 
    110. 
    
    
  110. EndModule
    111.

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot