|
Private _ParentFitForm As System.Windows.Forms.Form = Nothing
' ******************************************************
' 自動 ParentFit 用プロパティ
' ******************************************************
Public Property UseParentFitForm() As System.Windows.Forms.Form
Get
Return _ParentFitForm
End Get
Set(ByVal value As System.Windows.Forms.Form)
If _ParentFitForm Is Nothing Then
_ParentFitForm = value
AddHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
Else
' dispose でも削除されます
RemoveHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
_ParentFitForm = value
AddHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
End If
End Set
End Property
' ******************************************************
' サイズ変更がされた
' ******************************************************
Private Sub ParentForm_SizeChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs)
If Not _ParentFitForm Is Nothing Then
Me.ParentFit(_ParentFitForm)
End If
End Sub
' ******************************************************
' コントロール作成時( 初期 )
' ******************************************************
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
If Not _ParentFitForm Is Nothing Then
Me.ParentFit(_ParentFitForm)
End If
End Sub
| |