Как «переопределить» обработчик определённого события у контрола - Разное - Интересные решения для программистов - Примеры кода

Разное → Как «переопределить» обработчик определённого события у контрола → Visual Basic

Иногда возникает такая ситуация: лежит, например, на форме кнопка, выполняющая определённые действия. А нам нужно изменить её поведение. Что делать? Верно, повесить свой обработчик события на нажатие и убрать тот, что стоял раньше. Вот со вторым пунктом-то и возникают проблемы, если нет ссылки на текущий обработчик события.Данный пример показывает обходной путь для решения проблемы.

Imports System.Reflection
Imports System.ComponentModel

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
   MsgBox("Inside default handler", MsgBoxStyle.Information, "Information")
  End Sub

Private Sub Button1_AnotherClick(ByVal sender As Object, ByVal e As EventArgs)
   MsgBox("Inside our own event handler ^_^", MsgBoxStyle.Information, "Information")
  End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
   RemoveEventHandlers(Button1, "Click")
   AddHandler Button1.Click, AddressOf Button1_AnotherClick
   Button2.Enabled = False
  End Sub

Private Sub RemoveEventHandlers(ByVal ctrl As Control, ByVal [event] As String)
   Dim eventsProperty = ctrl.GetType().GetProperty("Events", BindingFlags.NonPublic Or BindingFlags.Instance)
   Dim handlerList = DirectCast(eventsProperty.GetValue(ctrl, Nothing), EventHandlerList)
   Dim eventClick = GetType(Control).GetField(String.Format("Event{0}", [event]), BindingFlags.NonPublic Or BindingFlags.Static).GetValue(ctrl)
   handlerList(eventClick) = Nothing
  End Sub

End Class

.net, control, event, vb, visual basic

KOS_MOS

5acredphoenix

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Разное → Как «переопределить» обработчик определённого события у контрола → Visual Basic Иногда возникает такая ситуация: лежит, например, на форме кнопка, выполняющая определённые действия. А нам нужно изменить её поведение. Что делать? Верно, повесить свой обработчик события на нажатие и убрать тот, что стоял раньше. Вот со вторым пунктом-то и возникают проблемы, если нет ссылки на текущий обработчик события.Данный пример показывает обходной путь для решения проблемы. Imports System.Reflection Imports System.ComponentModel Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click MsgBox("Inside default handler", MsgBoxStyle.Information, "Information") End Sub Private Sub Button1_AnotherClick(ByVal sender As Object, ByVal e As EventArgs) MsgBox("Inside our own event handler ^_^", MsgBoxStyle.Information, "Information") End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click RemoveEventHandlers(Button1, "Click") AddHandler Button1.Click, AddressOf Button1_AnotherClick Button2.Enabled = False End Sub Private Sub RemoveEventHandlers(ByVal ctrl As Control, ByVal [event] As String) Dim eventsProperty = ctrl.GetType().GetProperty("Events", BindingFlags.NonPublic Or BindingFlags.Instance) Dim handlerList = DirectCast(eventsProperty.GetValue(ctrl, Nothing), EventHandlerList) Dim eventClick = GetType(Control).GetField(String.Format("Event{0}", [event]), BindingFlags.NonPublic Or BindingFlags.Static).GetValue(ctrl) handlerList(eventClick) = Nothing End Sub End Class .net, control, event, vb, visual basic KOS_MOS 5acredphoenix 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt