خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را
دستور AddHandler در ویژوال بیسیک دات نت
دستور AddHandler یک رویداد را با یک روال مرتبط می کند. این دستور در زمان اجرا کاربرد دارد. در این آموزش به نحوه نگارش این دستور و تشریح اجزاء آن می پردازیم. همینطور یک مثال از نحوه استفاده از آن را برای شما مطرح می کنیم.
دستورات AddHandler به شما این امکان را می دهد تا در زمان اجرا یک روال را به یک رویداد مرتبط کنید. همینطور اگر قصد این را دارید تا اتصال یک روال با یک رویداد را از بین ببرید می توانید از دستور RemoveHandler استفاده نمایید.
متن زیر قابل کپی کردن می باشد.
نحوه نگارش (Syntax) دستور AddHandler
AddHandler event, AddressOf eventhandler
تشریح قسمتهای مختلف دستور AddHandler
-
event : نام رویدادی (event) که قرار است مدیریت شود.
-
eventhandler : نام روال برنامه نویسی که قرار است به رویداد مربوطه مرتبط شود.
توضیحات دستور AddHandler
دستورات AddHandler به شما این امکان را می دهد تا در زمان اجرا یک روال را به یک رویداد مرتبط کنید. همینطور اگر قصد این را دارید تا اتصال یک روال با یک رویداد را از بین ببرید می توانید از دستور RemoveHandler استفاده نمایید.
مثال از نحوه استفاده دستور AddHandler
متن زیر قابل کپی کردن می باشد.
Sub TestEvents()
Dim Obj As New Class1
' Associate an event handler with an event.
AddHandler Obj.Ev_Event, AddressOf EventHandler
' Call the method to raise the event.
Obj.CauseSomeEvent()
' Stop handling events.
RemoveHandler Obj.Ev_Event, AddressOf EventHandler
' This event will not be handled.
Obj.CauseSomeEvent()
End Sub
Sub EventHandler()
' Handle the event.
MsgBox("EventHandler caught event.")
End Sub
Public Class Class1
' Declare an event.
Public Event Ev_Event()
Sub CauseSomeEvent()
' Raise an event.
RaiseEvent Ev_Event()
End Sub
End Class
Dim Obj As New Class1
' Associate an event handler with an event.
AddHandler Obj.Ev_Event, AddressOf EventHandler
' Call the method to raise the event.
Obj.CauseSomeEvent()
' Stop handling events.
RemoveHandler Obj.Ev_Event, AddressOf EventHandler
' This event will not be handled.
Obj.CauseSomeEvent()
End Sub
Sub EventHandler()
' Handle the event.
MsgBox("EventHandler caught event.")
End Sub
Public Class Class1
' Declare an event.
Public Event Ev_Event()
Sub CauseSomeEvent()
' Raise an event.
RaiseEvent Ev_Event()
End Sub
End Class
نمایش دیدگاه ها (0 دیدگاه)
دیدگاه خود را ثبت کنید: