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