1、声明委托 用Delegate 声明一个委托 类型 参数要和 被委托的方法一样 例如 Delegate Function a(byval x as string) as string
2、实例化委托 dim t as new a(AddressOf Function Name)
3.通过t(参数) 或者 t.Invoke(参数调用委托)
Module module1
Delegate Function a(ByVal x As Integer,ByVal y As Integer) As Integer '声明委托类型 委托可以使一个对象调用另一个对象的方法
Function sum(ByVal x As Integer,ByVal y As Integer) As Integer
Return (x + y)
End Function
Sub main()
Dim d As New a(AddressOf sum) '实例化委托
Dim s = 0
s = d.Invoke(1,2) '执行委托
Console.WriteLine(s.ToString())
s = d(1,2) '执行委托
Console.WriteLine(s.ToString())
MsgBox("")
End Sub
End Module
在UI编程中 比如说我们想用一个函数 处理 多个控件的单击事件 只需要在那个事件响应方法的后面加上 例如
handles button1.click,button2.click .....来实现
原文地址:https://www.jb51.cc/vb/259134.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。