vb.net 中在模块(module)里如何实现委托
我的模块1中有个多媒体计时器,多媒体计时器计时的同时,在窗体1里textbox显示记录的时间,但是调用textbox没有,现在在模块里使用委托也不行,哪位高人看看是哪里出...
我的模块1中有个多媒体计时器,多媒体计时器计时的同时,在窗体1里textbox显示记录的时间,但是调用textbox没有,现在在模块里使用委托也不行,哪位高人看看是哪里出错了,代码应该怎么改,分不多了 ,希望高人帮帮忙
展开
2个回答
展开全部
委托三个步骤
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
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
展开全部
Public form2 As Form = Form1
Public Sub CALLBACK_Timer(id As UInt32, _
msg As UInt32, _
ByRef userCtx As UInt32, _
rsv1 As UInt32, _
rsv2 As UInt32)
mCount += 1
Dim deli As New myDelegate(AddressOf SetWindowText)
form2.Invoke(deli, mCount)
' deli.invoke(mCount)
End Sub
Public Sub CALLBACK_Timer(id As UInt32, _
msg As UInt32, _
ByRef userCtx As UInt32, _
rsv1 As UInt32, _
rsv2 As UInt32)
mCount += 1
Dim deli As New myDelegate(AddressOf SetWindowText)
form2.Invoke(deli, mCount)
' deli.invoke(mCount)
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询