垂直スクロールバーと水平スクロールバーの追加

Imports Infragistics.Win.UltraWinScrollBar

using Infragistics.Win.UltraWinScrollBar;

Private Sub InitializeHorizontalScrollBar()
	' 水平スクロール バーの最小値は 0 になります。
	Dim minHorizontal As Integer = 0
	' 水平スクロール バーの最大値を決定します。
	' pnlInner の幅から開始します。
	' pnlOuter の幅を引きます。
	Dim maxHorizontal As Integer = Me.pnlInner.Width - Me.pnlOuter.Width
	' SmallChange は通常 1% です。
	Dim smallChangeHorizontal As Integer = Math.Max(CInt(maxHorizontal / 100), 1)
	' LargeChange は通常 1 ページです。
	Dim largeChangeHorizontal As Integer = Me.pnlOuter.Width
	' 水平スクロール バーを初期化します。
	Me.usbHorizontal.Initialize(minHorizontal, maxHorizontal, smallChangeHorizontal, largeChangeHorizontal)
	' AutoDisable を True に設定すると何もなくなります。
	Me.usbHorizontal.AutoDisable = True
End Sub

private void InitializeHorizontalScrollBar()
{
	// 水平スクロール バーの最小値は 0 になります。
	int minHorizontal = 0;
	// 水平スクロール バーの最大値を決定します。
	// pnlInner の幅から開始します。
	// pnlOuter の幅を引きます。
	int maxHorizontal = this.pnlInner.Width - this.pnlOuter.Width;
	// SmallChange は通常 1% です。
	int smallChangeHorizontal = Math.Max((int)(maxHorizontal / 100), 1);
	// LargeChange は通常 1 ページです。
	int largeChangeHorizontal = this.pnlOuter.Width;
	// 水平スクロール バーを初期化します。
	this.usbHorizontal.Initialize(minHorizontal, maxHorizontal, smallChangeHorizontal, largeChangeHorizontal);
	// AutoDisable を True に設定すると何もなくなります。
	this.usbHorizontal.AutoDisable = true;
}

Private Sub InitializeVerticalScrollBar()
	' 垂直スクロール バーの最小値は 0 になります。
	Dim minVertical As Integer = 0
	' 垂直スクロール バーの最大値を決定します。
	' pnlInner の高さから開始します。
	' pnlOuter の高さを引きます。
	Dim maxVertical As Integer = Me.pnlInner.Height - Me.pnlOuter.Height
	' SmallChange は通常 1% です。
	Dim smallChangeVertical As Integer = Math.Max(CInt(maxVertical / 100), 1)
	' LargeChange は通常 1 ページです。
	Dim largeChangeVertical As Integer = Me.pnlOuter.Height
	' 垂直スクロール バーを初期化します。
	Me.usbVertical.Initialize(minVertical, maxVertical, smallChangeVertical, largeChangeVertical)
End Sub

private void InitializeVerticalScrollBar()
{
	//　垂直スクロール バーの最小値は 0 になります。
	int minVertical = 0;
	// 垂直スクロール バーの最大値を決定します。
	// pnlInner の高さから開始します。
	// pnlOuter の高さを引きます。
	int maxVertical = this.pnlInner.Height - this.pnlOuter.Height;
	// SmallChange は通常 1% です。
	int smallChangeVertical = Math.Max((int)(maxVertical / 100), 1);
	// LargeChange は通常 1 ページです。
	int largeChangeVertical = this.pnlOuter.Height;
	// 垂直スクロール バーを初期化します。
	this.usbVertical.Initialize(minVertical, maxVertical, smallChangeVertical, largeChangeVertical);
}

Private Sub Adding_Vertical_and_Horizontal_Scrollbars_Load( _
  ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Me.InitializeHorizontalScrollBar()
	Me.InitializeVerticalScrollBar()
End Sub

private void Adding_Vertical_and_Horizontal_Scrollbars_Load(object sender, EventArgs e)
{
	this.InitializeHorizontalScrollBar();
	this.InitializeVerticalScrollBar();
}

Private Sub usbHorizontal_Scroll(ByVal sender As System.Object, _
  ByVal e As System.Windows.Forms.ScrollEventArgs) Handles usbVertical.Scroll
	Dim scrollBar As UltraScrollBar = DirectCast(sender, UltraScrollBar)
	Me.pnlInner.Left = -scrollBar.Value
End Sub
Private Sub usbVertical_Scroll(ByVal sender As System.Object, _
  ByVal e As System.Windows.Forms.ScrollEventArgs) Handles usbVertical.Scroll
	Dim scrollBar As UltraScrollBar = DirectCast(sender, UltraScrollBar)
	Me.pnlInner.Top = -scrollBar.Value
End Sub

private void usbHorizontal_Scroll(object sender, System.Windows.Forms.ScrollEventArgs e)
{
	UltraScrollBar scrollBar = sender as UltraScrollBar;
	this.pnlInner.Left = -scrollBar.Value;
}
private void usbVertical_Scroll(object sender, System.Windows.Forms.ScrollEventArgs e)
{
	UltraScrollBar scrollBar = sender as UltraScrollBar;
	this.pnlInner.Top = -scrollBar.Value;
}