WinNavigationBar でファイル システムを参照

Imports System.IO
Imports Infragistics.Win
Imports Infragistics.Win.Misc
Imports Infragistics.Win.Misc.UltraWinNavigationBar
Imports Infragistics.Win.UltraWinListView

using System.IO;
using Infragistics.Win;
using Infragistics.Win.Misc;
using Infragistics.Win.Misc.UltraWinNavigationBar;
using Infragistics.Win.UltraWinListView;

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
' エンド ユーザーに対して表示されるテキストです。
        Me.UltraNavigationBar1.RootLocation.DisplayText = "Local Disk (C:)"
' 子の位置（またはそれ自体）のフル パスを解析する時に
' WinNavigationBar が使用するテキストです。
        Me.UltraNavigationBar1.RootLocation.Text = "C:"
End Sub

private void Form1_Load(object sender, EventArgs e)
{
	// エンド ユーザーに対して表示されるテキストです。
	this.ultraNavigationBar1.RootLocation.DisplayText = "Local Disk (C:)";
	// 子の位置（またはそれ自体）のフル パスを解析する時に
	// WinNavigationBar が使用するテキストです。
	this.ultraNavigationBar1.RootLocation.Text = "C:";
}

Private Sub UltraNavigationBar1_InitializeLocations(ByVal sender As Object, _
  ByVal e As InitializeLocationsEventArgs) _
  Handles UltraNavigationBar1.InitializeLocations
' 親の位置のパスのサブディレクトリで DirectoryInfos
' の配列を移植します。
    Dim dirs As DirectoryInfo() = _
        New DirectoryInfo _
            (e.ParentLocation.GetFullPath _
            (FullPathFormat.EditMode) _
            + "\").GetDirectories()
' 各サブディレクトリをループします。
    For Each dir As DirectoryInfo In dirs
' WinNavigationBar に新しい位置を追加します。
' サブディレクトリのフル パスはキーで、
' 名前はテキストになります。
        e.ParentLocation.Locations.Add(dir.FullName, dir.Name)
    Next
End Sub

private void ultraNavigationBar1_InitializeLocations
	(object sender, InitializeLocationsEventArgs e)
{
	// 親の位置のパスのサブディレクトリで DirectoryInfos
	// の配列を移植します。
	DirectoryInfo[] dirs =
		new DirectoryInfo
		(e.ParentLocation.GetFullPath
			(FullPathFormat.EditMode)
			+ "\\").GetDirectories();
	// 各サブディレクトリをループします。
	foreach (DirectoryInfo dir in dirs)
	{
		// WinNavigationBar に新しい位置を追加します。
		// サブディレクトリのフル パスはキーで、
		// 名前はテキストになります。
		e.ParentLocation.Locations.Add(dir.FullName, dir.Name);
	}
}

Private Sub LoadFilesAndFolders(ByVal path As String)
' 選択した位置のパスのサブディレクトリで DirectoryInfos
' の配列を移植します。
    Dim dirs As DirectoryInfo() = _
      New DirectoryInfo _
      (path + "\").GetDirectories()
' 選択した位置に関連付けられたファイルを取得します。
    Dim files As FileInfo() = _
      New DirectoryInfo _
      (path + "\").GetFiles()
' WinListView から以前の位置の項目をクリアします。
    Me.UltraListView1.Items.Clear()
    Dim item As UltraListViewItem = Nothing
' フォルダおよびファイルで WinListView を移植します。
    For Each dir As DirectoryInfo In dirs
        item = Me.UltraListView1.Items.Add(dir.FullName, dir.Name)
        item.Tag = dir
' この時点で、以下と似ている
' コードの行でフォルダ項目に
' 画像を指定できます。
        'item.Appearance.Image = this.imageListLarge.Images[0];
    Next
    For Each file As FileInfo In files
        item = Me.UltraListView1.Items.Add(file.FullName, file.Name)
        item.Tag = file
    Next
End Sub

private void LoadFilesAndFolders( string path )
{
	// 選択した位置のパスのサブディレクトリで DirectoryInfos
	// の配列を移植します。
	DirectoryInfo[] dirs =
		new DirectoryInfo
		(path + "\\").GetDirectories();
	// 選択した位置に関連付けられたファイルを取得します。
	FileInfo[] files =
		new DirectoryInfo
		(path + "\\").GetFiles();
	// WinListView から以前の位置の項目をクリアします。
	this.ultraListView1.Items.Clear();
	UltraListViewItem item = null;
	// フォルダおよびファイルで WinListView を移植します。
	foreach (DirectoryInfo dir in dirs)
	{
		item = this.ultraListView1.Items.Add(dir.FullName, dir.Name);
		item.Tag = dir;
		// この時点で、以下と似ている
		// コードの行でフォルダ項目に
		// 画像を指定できます。
		//item.Appearance.Image = this.imageListLarge.Images[0];
	}
	foreach (FileInfo file in files)
	{
		item = this.ultraListView1.Items.Add(file.FullName, file.Name);
		item.Tag = file;
	}
}

Private Sub UltraNavigationBar1_SelectedLocationChanging( _
  ByVal sender As Object, _
  ByVal e As SelectedLocationChangingEventArgs) _
  Handles UltraNavigationBar1.SelectedLocationChanging
    Me.LoadFilesAndFolders(e.NewSelectedLocation.GetFullPath _
      (FullPathFormat.EditMode))
End Sub

private void ultraNavigationBar1_SelectedLocationChanged
	(object sender, SelectedLocationChangedEventArgs e)
{
	this.LoadFilesAndFolders(e.NewSelectedLocation.GetFullPath
		(Infragistics.Win.Misc.FullPathFormat.EditMode));
}

Private Sub UltraListView1_ItemDoubleClick(ByVal sender As Object, _
  ByVal e As ItemDoubleClickEventArgs) Handles UltraListView1.ItemDoubleClick
    If TypeOf e.Item.Tag Is DirectoryInfo Then
        Me.UltraNavigationBar1.NavigateTo(e.Item.Key, True)
    ElseIf TypeOf e.Item.Tag Is FileInfo Then
        System.Diagnostics.Process.Start(e.Item.Key)
    End If
End Sub

private void ultraListView1_ItemDoubleClick
	(object sender, ItemDoubleClickEventArgs e)
{
	if (e.Item.Tag is DirectoryInfo)
	{
		this.ultraNavigationBar1.NavigateTo(e.Item.Key, true);
	}
	else if (e.Item.Tag is FileInfo)
	{
		System.Diagnostics.Process.Start(e.Item.Key);
	}
}