Глядел сюда:
How to subclass windows in Windows Forms by using Visual Basic .NET or Visual Basic 2005
Если речь идет об Form1 то прямо в ней пишем:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Class Form1
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Debug.WriteLine(m.ToString())
Select Case m.Msg
...
End Select
' Forward message to base WndProc.
MyBase.WndProc(m)
End Sub
...
А вот если надо например сабклассить Button1, Button2 и кучу чего еще...
В VB6 я тупо делал по своей ф-ции на каждый контрол:
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.
'форма
OldButton1WindowProc = SetWindowLong(Button1.hwnd, GWL_WNDPROC, AddressOf NewButton1WindowProc)
OldButton2WindowProc = SetWindowLong(Button2.hwnd, GWL_WNDPROC, AddressOf NewButton2WindowProc)
Private Sub Form_Unload(Cancel As Integer)
'снятие сабклассинга
SetWindowLong Button1.hwnd, GWL_WNDPROC, OldButton1WindowProc
SetWindowLong Button2.hwnd, GWL_WNDPROC, OldButton2WindowProc
'модуль
Public OldButton1WindowProc As Long
Public OldButton2WindowProc As Long
Public Function NewButton1WindowProc( _
ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
...
End Select
NewButton1WindowProc = CallWindowProc(OldButton1WindowProc, hwnd, Msg, wParam, lParam)
End Function
Public Function NewButton2WindowProc( _
ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
...
End Select
NewButton2WindowProc = CallWindowProc(OldButton2WindowProc, hwnd, Msg, wParam, lParam)
End Function
Здесь (по указанной ссылке) сразу приглянулся вариант:
Subclass Any HWND
Получилось вот чего:
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.
'Модуль класса:
Public Class SubclassHWND
Inherits NativeWindow
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
' do whatever custom processing you need for
' this message
Select Case m.HWnd
Case Form1.Button1.Handle
Debug.WriteLine("Button1: " & m.ToString())
Case Form1.Button2.Handle
Debug.WriteLine("Button2: " & m.ToString())
End Select
' forward message to base WndProc
MyBase.WndProc(m)
End Sub
End Class
'Форма:
Public Class Form1
Dim s1 As SubclassHWND
Dim s2 As SubclassHWND
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s1 = New SubclassHWND()
s1.AssignHandle(Me.Button1.Handle)
' Now s1 should be listening to the Button1's messages.
s2 = New SubclassHWND()
s2.AssignHandle(Me.Button2.Handle)
' Now s2 should be listening to the Button2's messages.
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object,
ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
'снятие сабклассинга ??????????
s1.ReleaseHandle()
s2.ReleaseHandle()
End Sub
End Class
Ну т.е. при таком подходе предполагается, что при добавлении сабклассинга нового контрола
будет добавляться
1.
2.
3.
4.
Dim s_NewControl As SubclassHWND
...
s_NewControl = New SubclassHWND()
s_NewControl.AssignHandle(Me.s_NewControl.Handle)
и основной код переработки будет добавляться непосредственно в класс (в единственную ф-цию), а разделение итти через case(hwnd):
1.
2.
3.
4.
5.
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
Select Case m.HWnd
Case Me.s_NewControl.Handle
Debug.WriteLine("NewControl: " & m.ToString())
...
С одной стороны я могу создать по классу на каждый контрол, но чувствую так не делают.
С другой стороны чувствую что s1 и s2 уже и так разделены (разные экземпляры класса),
но зачем-то проверяю Me.s_NewControl.Handle, да еще и внутри класса.
Фраза "Now s1 should be listening to the Button1's messages" заставляет задуматься что обработку надо вынести куда-то в другое место и вместо
Case
Me.s_NewControl.Handle
использовать
Case s1,s2,s3 (м.б. по типу if (e.name)=s1 then...)
В общем нужно как-то это добить а моя видимо "недоученность" не позволяет мне грамотно дооформить этот код.
Не поможете?
Вопрос 2.
Сабклассинг снимать надо?
И правильно ли я это делаю?
1.
2.
3.
4.
Private Sub Form1_FormClosed(ByVal sender As Object,
ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
'снятие сабклассинга ??????????
s1.ReleaseHandle()
