＞親のクラスをつくって、そこでコントロールの管理はできないでしょうか。
＞各コントロールの差分は子供のクラスに書くってことは無理でしょうか。
親クラスというか、コントロールを継承したユーザコントロールをつくり、そのコントロール
それぞれの値変更と思われる動作に対して、コントロールが配置されるフォームオブジェクト
に対してWindowsメッセージを送り、フォーム側ではそのメッセージを受け取ったら
変更が行われたとみなす、というような感じはどうでしょう。
イメージとしては、以下のようなものです。
' Form1.vb
Public Class Form1
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If m.Msg = WM_APP_CHANGEDATA Then
Console.WriteLine("変更処理をここに書く")
End If
End Sub
End Class
' Module1.vb
Module Module1
Public Const WM_APP_CHANGEDATA As Integer = &H8000
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal msg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Public Function GetFormHandle(ByRef ctrl As Control) As IntPtr
Dim handle As IntPtr
Dim wkctrl As Control = ctrl
Do While wkctrl.Parent IsNot Nothing
handle = wkctrl.Parent.Handle
wkctrl = wkctrl.Parent
Loop
Return handle
End Function
End Module
' MyControls.vb
Imports System.Windows.Forms
Public Class MyTextBox : Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
MyBase.OnTextChanged(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
End Class
Public Class MyCheckBox : Inherits System.Windows.Forms.CheckBox
Protected Overrides Sub OnCheckedChanged(ByVal e As System.EventArgs)
MyBase.OnCheckedChanged(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
End Class
Public Class MyComboBox : Inherits System.Windows.Forms.ComboBox
Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)
MyBase.OnSelectedIndexChanged(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
End Class
Public Class MyDataGridView : Inherits System.Windows.Forms.DataGridView
Protected Overrides Sub OnCellValueChanged(ByVal e As DataGridViewCellEventArgs)
MyBase.OnCellValueChanged(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
Protected Overrides Sub OnColumnAdded(ByVal e As DataGridViewColumnEventArgs)
MyBase.OnColumnAdded(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
Protected Overrides Sub OnColumnRemoved(ByVal e As DataGridViewColumnEventArgs)
MyBase.OnColumnRemoved(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
Protected Overrides Sub OnRowsAdded(ByVal e As DataGridViewRowsAddedEventArgs)
MyBase.OnRowsAdded(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
Protected Overrides Sub OnRowsRemoved(ByVal e As DataGridViewRowsRemovedEventArgs)
MyBase.OnRowsRemoved(e)
SendMessage(GetFormHandle(Me), WM_APP_CHANGEDATA, 0, 0)
End Sub
End Class
