LboxGrid メソッド (1)


  ParentFit



(1) 親コンテナが Form の場合に、親コンテナにドッキングする

SizeLeft、SizeTop、SizeRight、SizeBottom によって、親コンテナとの距離を調整する



(2) 親コンテナが TabControl の場合に、親コンテナにドッキングする

  
' ******************************************************
' サイズ調整メソッド
' ******************************************************
Public Sub ParentFit(ByVal TargetForm As System.Windows.Forms.Form)

	Me.Left = _SizeLeft
	Me.Top = _SizeTop
	Me.Width = TargetForm.ClientRectangle.Width - _SizeLeft - _SizeRight
	Me.Height = TargetForm.ClientRectangle.Height - _SizeTop - _SizeBottom

End Sub
Public Sub ParentFit(ByVal TargetForm As System.Windows.Forms.TabControl)

	Me.Left = _SizeLeft
	Me.Top = _SizeTop
	Me.Width = TargetForm.ClientRectangle.Width - _SizeLeft - _SizeRight - 8
	Me.Height = TargetForm.ClientRectangle.Height - _SizeTop - _SizeBottom - 24

End Sub


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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ