Как прилинковать событие от объекта созданного Reflections

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Proto
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 18.06.2002 (Вт) 7:54
Откуда: Belarus

Как прилинковать событие от объекта созданного Reflections

Сообщение Proto » 11.06.2012 (Пн) 12:30

Есть объект object1 созданный при помощи Reflections. Т.е.

[icoe]Dim object1 As Object = assem.CreateInstance...[/icode]

Надо подключить его событие Add_Command к процедуре другого объекта, статического. Т.е.

AddHandler object1.Add_Command, AddressOf oDB.Add_Command

Это не работает потому что у типа object естественно нет такого события.

Спасибо.

[Viper] :: Для выделения кода пользуйся тэгами CODE или ICODE.

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: Как прилинковать событие от объекта созданного Reflectio

Сообщение FireFenix » 11.06.2012 (Пн) 14:15

Proto писал(а):Надо подключить его событие Add_Command к процедуре другого объекта

Proto писал(а):Это не работает потому что у типа object естественно нет такого события.

Как можно подключить то чего нету? Ответ - Никак, потому что этого нету в принципе.

Если снаружи идёт управление объектом, то можно сделать прослойку, которая будет вызывать функцию объекта и звать обработчик
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Nord777
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1144
Зарегистрирован: 22.02.2004 (Вс) 13:15
Откуда: Подольск

Re: Как прилинковать событие от объекта созданного Reflectio

Сообщение Nord777 » 11.06.2012 (Пн) 22:20

Пример подключения события формы MouseClick:
Код: Выделить всё
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'AddHandler Me.MouseClick, AddressOf MouseClickSub
        Dim eh As New MouseEventHandler(AddressOf Me.MouseClickSub)
        CallByName(Me, "Add_MouseClick", CallType.Method, eh)
    End Sub

    Public Sub MouseClickSub(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        MsgBox("Click")
    End Sub


По аналогии подключай событие своего обьекта.
Microsoft Visual Studio 2008
Microsoft .NET Framework 3.5


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 33

    TopList