VB.NET委托一例

委托可以认为是一类方法签名一致的方法抽象类。

委托对象必须由签名一致的方法实例化，而通过调用委托对象可以调用实例化委托对象的方法。

1. Public Class Form1  
2.     Public Delegate Function addMethod(ByVal x, ByVal y) As Integer  
3.   
4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
5.   
6.         Dim a As addMethod  
7.         Dim b As Tdelegate  
8.   
9.         b = New Tdelegate()  
10.         a = New addMethod(AddressOf b.add)  
11.   
12.         'TextBox1.Text = TextBox1.Text + a(3, 9).ToString  
13.         'TextBox1.Text = TextBox1.Text + (New addMethod(AddressOf New Tdelegate().add))(3, 9).ToString  
14.         TextBox1.Text = TextBox1.Text + New addMethod(AddressOf New Tdelegate().add).Invoke(3, 9).ToString  
15.   
16.     End Sub  
17. End Class  
18.   
19. Public Class Tdelegate  
20.   
21.     Public Function add(ByVal x, ByVal y) As Integer  
22.   
23.         Return x + y  
24.   
25.     End Function  
26.   
27. End Class