本文共 1175 字,大约阅读时间需要 3 分钟。
?VB.NET????????????????????????????????????????????????????????????????????????? Handles ????
??????????????????????????????????????????????????????????????????
???? Delegate ????????????
Public Delegate Sub CustomEventHandler(ByVal str As String)
????????
Public Event CustomEvent As CustomEventHandler
??????????????
Public Event CustomEvent(ByVal str As String)
???????????? RaiseEvent ????
RaiseEvent CustomEvent("Hello world") ???????????????
???? Public Sub ????????
Public Sub talk(ByVal str As String) Me.TextBox1.Text = strEnd Sub
?????? WithEvents ????????????
Public WithEvents Custom As New ClsCustomEvent()
? Load ????????
Custom.RaiseCustomEvent("Hello world") ?????????
Public Sub talk(ByVal str As String) Handles Custom.CustomEvent Me.TextBox1.Text = strEnd Sub
?? AddHandler ? RemoveHandler ????
AddHandler Custom.CustomEvent, AddressOf talkRemoveHandler Custom.CustomEvent, AddressOf talk
WithEvents ????????????????AddHandler ? RemoveHandler ??????????????????????VB.NET??????????????????
转载地址:http://srjt.baihongyu.com/