LboxGrid プロパティ

isEnterToTab

EnterToTab 状態の設定と取得

( EnterToTab メソッドと結果は同じ )

Private bEnterToTab As Boolean

' ******************************************************
' Enter To Tab プロパティ
' ******************************************************
<System.ComponentModel.Description("Enterキーの動作をTABキーと同じにする"), _
System.ComponentModel.Browsable(True), _
System.ComponentModel.DefaultValue(False)> _
Public Property isEnterToTab() As Boolean
	Get
		Return bEnterToTab
	End Get
	Set(ByVal value As Boolean)
		bEnterToTab = value
	End Set
End Property

ParentFit で使用するマージンプロパティ

ParentFit メソッドで使用され、親コンテナとの位置を調整する

Private _SizeLeft As Integer = 0
Private _SizeTop As Integer = 0
Private _SizeRight As Integer = 0
Private _SizeBottom As Integer = 0
' ******************************************************
' サイズ調整用位置プロパティ
' ******************************************************
Public Property SizeLeft() As Integer
	Get
		Return _SizeLeft
	End Get
	Set(ByVal value As Integer)
		_SizeLeft = value
	End Set
End Property
Public Property SizeRight() As Integer
	Get
		Return _SizeRight
	End Get
	Set(ByVal value As Integer)
		_SizeRight = value
	End Set
End Property
Public Property SizeTop() As Integer
	Get
		Return _SizeTop
	End Get
	Set(ByVal value As Integer)
		_SizeTop = value
	End Set
End Property
Public Property SizeBottom() As Integer
	Get
		Return _SizeBottom
	End Get
	Set(ByVal value As Integer)
		_SizeBottom = value
	End Set
End Property

UseParentFitForm プロパティ

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