ИзопропилДмитрий77Мне конкретно по этому моменту никто толком ничего не ответил.
неправда
Объясните мне как делать сабклассинг нескольких контролов в .Net
Не, я видел. Я не в потолок смотрю.
Я еще
в документацию смотрел (пример) -там примерно тоже самое.
А давай на мой код конкретно смотреть.
Вот мой класс (чуть переделанный глядючи на твой код и на пример из документации):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
Public Class SubclassHWND
Inherits NativeWindow
'Event Declaration. This event will be raised when any
'Message will be posted to the Control
Public Event CallBackWndProc(ByRef m As Message, ByRef Cancel As Boolean)
Private parent As Control
Public Sub New(ByVal parent As Control)
AddHandler parent.HandleCreated, AddressOf Me.OnHandleCreated
AddHandler parent.HandleDestroyed, AddressOf Me.OnHandleDestroyed
Me.parent = parent
End Sub
' Listen for the control's window creation and hook into it.
Private Sub OnHandleCreated(ByVal sender As Object, ByVal e As EventArgs)
' Window is now created, assign handle to NativeWindow.
AssignHandle(CType(sender, Control).Handle)
Debug.WriteLine("OnHandleCreated")
End Sub
Private Sub OnHandleDestroyed(ByVal sender As Object, ByVal e As EventArgs)
' Window was destroyed, release hook.
ReleaseHandle()
Debug.WriteLine("OnHandleDestroyed")
End Sub
<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
Dim Cancel As Boolean = False 'по умолчанию обрабатывать сообщение
RaiseEvent CallBackWndProc(m, Cancel)
' если обрабатываем (cancel=False), то forward message to base WndProc
If Not Cancel Then MyBase.WndProc(m)
End Sub
End Class
Очень удобно, когда окно (ListView) сабклассится, я получаю все его Msg в s_ListView_CallBackWndProc
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private WithEvents s_ListView As SubclassHWND
Private Sub s_ListView_CallBackWndProc(ByRef m As System.Windows.Forms.Message,
ByRef Cancel As Boolean) Handles s_ListView.CallBackWndProc
Debug.WriteLine(m.ToString)
Select Case m.Msg
Case Else
End Select
End Sub
А теперь я хочу сделать 2 кнопки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub ButtonSubclass_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ButtonSubclass.Click
'здесь хочу ВКЛЮЧИТЬ сабклассинг ListView 1 и ПОЛУЧАТЬ Msg в s_ListView_CallBackWndProc
s_ListView = New SubclassHWND(ListView1) 'ЭТОГО НЕдостаточно!!!
s_ListView.AssignHandle(ListView1.Handle)
End Sub
Private Sub ButtonUnSubclass_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ButtonUnSubclass.Click
'здесь хочу ВЫКЛЮЧИТЬ сабклассинг ListView 1 и НЕ ПОЛУЧАТЬ Msg в s_ListView_CallBackWndProc
''снятие сабклассинга
s_ListView.ReleaseHandle() 'ЭТО ПРИВОДИТ К ПРОБЛЕМАМ!!!
End Sub
И что ты думаешь, я не понимаю в чем засада?
Идея такого класса понятна:
Класс тупо привязывается к родному Control.
Т.е. когда ListView1 делает parent.HandleCreated, класс вызывает OnHandleCreated и делает AssignHandle(ListView1.Handle)
Но на момент ButtonSubclass_Click мне это бесполезно, т.к. parent.HandleCreated уже давно в прошлом.
Я не хочу лазить в дизайнеры и привязывать
s_ListView = New SubclassHWND(ListView1) на этапе создания ListView
(как это
здесь делается )
У меня есть Form_Load и (условно) ButtonSubclass_Click (где я могу и хочу это сделать).
Аналогично, со снятием.
Опять же, я понимаю, что этот класс тупо ловит parent.HandleDestroyed и автоматически снимает сабклассинг в
Sub OnHandleDestroyed делая ReleaseHandle()
Тогда да, ничего не ругается.
Ну я например хочу снять сабклассинг раньше, в ButtonUnSubclass_Click.
Вопросы:
1. что мне переделать в МОЕМ коде чтоб УСТАНАВЛИВАТЬ САБКЛАССИНГ в ButtonSubclass_Click (когда я этого хочу)?
2. что мне переделать в МОЕМ коде чтоб СНИМАТЬ САБКЛАССИНГ в ButtonSubclass_Click (когда я этого хочу)?
В VB6 аналогичный вопрос решаем так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public OldListview1WindowProc As Long
Private Sub CommandSubclass_Click()
OldListview1WindowProc = SetWindowLong( _
Listview1.hwnd, GWL_WNDPROC, _
AddressOf NewListview1WindowProc)
End Sub
Private Sub CommandUnSubclass_Click()
SetWindowLong Listview1.hwnd, GWL_WNDPROC, OldListview1WindowProc
End Sub
Не, ребят, ну объясните что переделать
Я в ваших хитрожопых классах человек новый.
1) Установить сабклассинг (в любой момент)
2) Снять сабклассинг (в любой момент)
И чтоб ничего не глючило при этом.
М.б. тупо забабахать SetWindowLong и CallWindowProc? И не сомневаюсь что это будет работать без глюков.
Но хочется все-таки как здесь принято сделать.
Просто в каждом посте тыкаете на БОЛЬШУЮ КУЛИНАРНУЮ КНИГУ, причем я так понял обязательно читать ее всю (1000 страниц) и прямо сейчас, а это если честно уже достало.
Что мне конкретно надо я объяснил выше.
