窗口1
Public Class Form1.....
Private Sub ContorlTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miszx_sjyj.TextChanged
isModify = True
initButton()
End Sub
......
dim fff1 as new fff
fff1.BlankBuild(me)
end class定义的一个类a.vb
Public Class fff
Public Function BlankBuild(ByRef obj As Control) As Boolean
.....
For i = 0 To obj.Controls.Count - 1
AddHandler obj.Controls.Item(i).TextChanged, New System.EventHandler(AddressOf
ContorlTextChanged)‘??????
next
end function
end class我现在问题就是:在类fff中怎样引用Form1中的ContorlTextChanged
(好像可以传函数指针,不知道怎样实现)
Public Class Form1.....
Private Sub ContorlTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miszx_sjyj.TextChanged
isModify = True
initButton()
End Sub
......
dim fff1 as new fff
fff1.BlankBuild(me)
end class定义的一个类a.vb
Public Class fff
Public Function BlankBuild(ByRef obj As Control) As Boolean
.....
For i = 0 To obj.Controls.Count - 1
AddHandler obj.Controls.Item(i).TextChanged, New System.EventHandler(AddressOf
ContorlTextChanged)‘??????
next
end function
end class我现在问题就是:在类fff中怎样引用Form1中的ContorlTextChanged
(好像可以传函数指针,不知道怎样实现)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货