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