最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Delegate的实际应用。
时间:2022-07-02 11:35:33 编辑:袖梨 来源:一聚教程网
下面的代码通过代表元Delegate简化代码的编写,在运行时将调用不同的代表元方法,然后显示相应的运行结果。
在VB.NET中,代表元Delegate有点类似C语言中的指针,也就是说它允许用户传送一个进程的引用,然后调用这些引用的进程。这是一个强有力的编程技术,它将允许用户不再需要If或者是Select语句就可以调用相应的进程,这里的代表元起着桥梁的作用。
新建记事本,下面是代码:
Imports System
Imports System.Windows.Forms
Public Module mymodule
Delegate Sub mydele(ByVal my1 As Int32, ByVal my2 As Int32)
Sub main()
Dim dele As mydele
dele = AddressOf my_add
dele.Invoke(10, 20)
dele = AddressOf my_sub
dele.Invoke(10, 20)
dele = AddressOf my_mul
dele.Invoke(10, 20)
dele = AddressOf my_div
dele.Invoke(10, 20)
End Sub
Public Sub my_add(ByVal num1 As Int32, ByVal num2 As Int32)
MessageBox.Show("Add:" & (num1 + num2).ToString, "你好", MessageBoxButtons.OK)
End Sub
在VB.NET中,代表元Delegate有点类似C语言中的指针,也就是说它允许用户传送一个进程的引用,然后调用这些引用的进程。这是一个强有力的编程技术,它将允许用户不再需要If或者是Select语句就可以调用相应的进程,这里的代表元起着桥梁的作用。
新建记事本,下面是代码:
Imports System
Imports System.Windows.Forms
Public Module mymodule
Delegate Sub mydele(ByVal my1 As Int32, ByVal my2 As Int32)
Sub main()
Dim dele As mydele
dele = AddressOf my_add
dele.Invoke(10, 20)
dele = AddressOf my_sub
dele.Invoke(10, 20)
dele = AddressOf my_mul
dele.Invoke(10, 20)
dele = AddressOf my_div
dele.Invoke(10, 20)
End Sub
Public Sub my_add(ByVal num1 As Int32, ByVal num2 As Int32)
MessageBox.Show("Add:" & (num1 + num2).ToString, "你好", MessageBoxButtons.OK)
End Sub
相关文章
- 《异界事务所》光谱项链哪几种 06-30
- 《雾境序列》波比角色大全全解析 06-30
- 《星球重启》SSR宠物盲盒免费怎么获得 06-30
- 操作教程:常见的NFT被盗手段?为什么NFT玩家成为黑客目标? 06-30
- 拳皇97风云再起出招表-拳皇97风云再起技能招式表一览 06-30
- 鸣潮坎特蕾拉培养攻略-鸣潮坎特蕾拉培养材料一览 06-30