インターネット参照履歴を作成

Me.WebBrowser1.GoHome()

this.webBrowser1.GoHome();

Dim vl As Infragistics.Win.ValueList
Dim combo As Infragistics.Win.UltraWinToolbars.ComboBoxTool

Infragistics.Win.ValueList vl;
Infragistics.Win.UltraWinToolbars.ComboBoxTool combo;

Me.combo = Me.UltraToolbarsManager1.Tools("AddressBar")
Me.vl = Me.combo.ValueList

this.combo = this.ultraToolbarsManager1.Tools["AddressBar"]
		as Infragistics.Win.UltraWinToolbars.ComboBoxTool;
this.vl = this.combo.ValueList;

Private Sub BrowseTo()
' Web ページを閲覧します。
    Me.WebBrowser1.Navigate(Me.combo.Text)
' URL をナビゲーション履歴に追加します。
    Me.UltraToolbarsManager1.NavigationToolbar.NavigateTo _
        (Me.combo.Text, Nothing)
' URL をコンボのドロップダウン リストに追加します。
    Me.vl.ValueListItems.Insert _
        (0, New Infragistics.Win.ValueListItem(Me.combo.Text))
End Sub

private void BrowseTo()
{
	// Web ページを閲覧します。
	this.webBrowser1.Navigate(this.combo.Text);
	// URL をナビゲーション履歴に追加します。
	this.ultraToolbarsManager1.NavigationToolbar.NavigateTo
		(this.combo.Text, null);
	// URL をコンボのドロップダウン リストに追加します。
	this.vl.ValueListItems.Insert
		(0, new Infragistics.Win.ValueListItem(this.combo.Text));
}

Private Sub CheckUrl()
' アドレス バーが空の場合は何も行いません。
    If Me.combo.Text = String.Empty Then
        Return
' アドレス バーが "http://" で開始しない場合は追加します。
' これによって、エンド ユーザーは完全な URL ではなく Web サイト
' のドメインだけを入力できます。
    ElseIf Me.combo.Text.StartsWith("http://") = True Then
' URL を修正します。
        Me.combo.Text = "http://" + Me.combo.Text
        Me.BrowseTo()
' アドレス バーは正しいフォーマットとなります。
' もちろん、発生する可能性のある多くのその他のフォーマット問題があり、
' 確認する必要があります。
    Else
        Me.BrowseTo()
    End If
End Sub

private void CheckUrl()
{
	// アドレス バーが空の場合は何も行いません。
	if (this.combo.Text == String.Empty) return;
	// アドレス バーが "http://" で開始しない場合は追加します。
	// これによって、エンド ユーザーは完全な URL ではなく Web サイト
	// のドメインだけを入力できます。
	else if (!(this.combo.Text.StartsWith("http://")))
	{
		// URL を修正します。
		this.combo.Text = "http://" + this.combo.Text;
		this.BrowseTo();
	}
	// アドレス バーは正しいフォーマットとなります。
	// もちろん、発生する可能性のある多くのその他のフォーマット問題があり、
	// 確認する必要があります。
	else
	{
		this.BrowseTo();
	}
}

Private Sub UltraToolbarsManager1_ToolClick(ByVal sender As Object, _
      ByVal e As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs) _
      Handles UltraToolbarsManager1.ToolClick
        Select Case (e.Tool.Key)
            Case "Refresh"
                Me.CheckUrl()
            Case "Stop"
                Me.WebBrowser1.Stop()
        End Select
    End Sub

private void ultraToolbarsManager1_ToolClick(object sender,
	Infragistics.Win.UltraWinToolbars.ToolClickEventArgs e)
{
	switch (e.Tool.Key)
	{
		case "Refresh":
			this.CheckUrl();
			break;
		case "Stop":
			this.webBrowser1.Stop();
			break;
	}
}

Private Sub UltraToolbarsManager1_AfterNavigation(ByVal sender As Object, _
  ByVal e As Infragistics.Win.UltraWinToolbars.AfterNavigationEventArgs) _
  Handles UltraToolbarsManager1.AfterNavigation
    Me.combo.Text = e.CurrentItem.Text
    Me.WebBrowser1.Navigate(Me.combo.Text)
End Sub

private void ultraToolbarsManager1_AfterNavigation
	(object sender,
	Infragistics.Win.UltraWinToolbars.AfterNavigationEventArgs e)
{
	this.combo.Text = e.CurrentItem.Text;
	this.webBrowser1.Navigate(this.combo.Text);
}