锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net委托类型 vbnet override

IT技术创建

关于vb.net中实现委托的一个问题把UI对象当做参数传入 比如 Sub a(Form As Form1)
之后再用Form.Invoke(你的委托,参数) 就可以即时修改Form中的内容了
关于VB.NET 的AddressOf 问题vb.net委托类型你好vb.net委托类型，EnableDisconnectNotification、 EnableWriteNotification这两个是外部函数吧vb.net委托类型，是委托吗vb.net委托类型？
建议使用委托可以看看下面的例子
此示例演示如何使用委托将过程传递给另一个过程 。
委托是一种类型，与任何其他类型一样可在 Visual Basic 中使用 。AddressOf 运算符如果应用到一个过程名 ， 则返回一个委托对象 。
此示例有一个具有委托参数的过程，该委托参数可接受对另一个过程的引用，而引用则是通过 AddressOf 运算符获得的 。
创建委托和匹配过程
创建一个名为 MathOperator 的委托 。
Visual Basic
复制代码
Delegate Function MathOperator( _
ByVal x As Double, _
ByVal y As Double _
) As Double
创建一个名为 AddNumbers 的过程 ， 其参数和返回值与 MathOperator 的参数和返回值匹配，以使签名匹配 。
Visual Basic
复制代码
Function AddNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x + y
End Function
创建名为 SubtractNumbers 的过程，其签名与 MathOperator 匹配 。
Visual Basic
复制代码
【vb.net委托类型 vbnet override】Function SubtractNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x - y
End Function
创建一个名为 DelegateTest 的过程，它接受一个委托作为参数 。
此过程可接受对 AddNumbers 或 SubtactNumbers 的引用 ， 这是因为它们的签名与 MathOperator 签名匹配 。
Visual Basic
复制代码
Sub DelegateTest( _
ByVal x As Double, _
ByVal op As MathOperator, _
ByVal y As Double _
)
Dim ret As Double
ret = op.Invoke(x, y) ' Call the method.
MsgBox(ret)
End Sub
创建一个名为 Test 的过程，它使用 AddNumbers 的委托作为参数调用 DelegateTest 一次 ， 然后使用 SubtractNumbers 的委托作为参数再次调用 。
Visual Basic
复制代码
Protected Sub Test()
DelegateTest(5, AddressOf AddNumbers, 3)
DelegateTest(9, AddressOf SubtractNumbers, 3)
End Sub
调用 Test 时，它首先显示 AddNumbers 对 5 和 3 的操作结果，也就是 8 。然后显示 SubtractNumbers 对 9 和 3 的操作结果，也就是 6 。
创建一个名为 MySubDelegate 的委托 。
Delegate Sub MySubDelegate(ByVal x As Integer)
声明一个类，该类包含与该委托具有相同签名的方法 。
Class class1Sub Sub1(ByVal x As Integer)MsgBox("The value of x is: "CStr(x))End SubEnd Class
定义一个方法 ， 该方法创建该委托的实例并通过调用内置的 Invoke 方法调用与该委托关联的方法 。
Protected Sub DelegateTest()Dim c1 As New class1' Create an instance of the delegate.Dim msd As MySubDelegate = AddressOf c1.Sub1' Call the method.msd.Invoke(10)End Sub
关于vb.net 多线程和委托问题Delegate Sub MySubDelegate(form As Form1)
Class class1
Sub Sub1(form As Form1)
form.Timer1.Enabled = True
form.Label1.Visible = True
MsgBox("kkk")
End Sub
End Class
Private Sub DelegateTest()
Dim c1 As New class1
Dim msd As MySubDelegate = AddressOf c1.Sub1
Me.Invoke(msd,Me)
End Sub
VB.NET中addressof函数问题我也想知道这个怎么解决呢~~~VB6就可以，VB.ENT就没法了~不能把~~
vb.net委托类型的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet override、vb.net委托类型的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：为鸿蒙系统远程PC，鸿蒙远程操作父母手机

下一篇：oracle数据库用户被锁定，oracle数据库用户被锁 原因