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
  










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




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


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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ