Option Strict On Imports Microsoft.WindowsAPICodePack.Controls Imports Microsoft.WindowsAPICodePack.Shell Imports Microsoft.WindowsAPICodePack.Shell.PropertySystem Public Class Form1 '検索フォルダ Const searchDir As String = "C:\Users\xxxx\Desktop\検索test" Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Dim pv = Me.ExplorerBrowser1.NavigationOptions.PaneVisibility pv.Navigation = PaneVisibilityState.Hide 'ナビゲーションエリアを非表示 pv.Commands = PaneVisibilityState.Hide 'ヘッダ上部のツールバーを非表示 End Sub '検索結果をExplorerBrowserにNavigate Private Sub SearchNavigate(searchString As String, searchFolder As String) Dim pKey = SystemProperties.System.FullText Dim sco = SearchConditionOperation.WordEqual Dim sc = SearchConditionFactory.CreateLeafCondition(pKey, searchString, sco) Dim dir = ShellObject.FromParsingName(searchFolder) Dim ssf As New ShellSearchFolder(sc, DirectCast(dir, ShellContainer)) Me.ExplorerBrowser1.Navigate(ssf) End Sub '「*みかん*」を検索 Private Sub みかん_Click(sender As Object, e As EventArgs) Handles みかん.Click SearchNavigate("みかん", searchDir) End Sub '「*いちご*」を検索 Private Sub いちご_Click(sender As Object, e As EventArgs) Handles いちご.Click SearchNavigate("いちご", searchDir) End Sub 'KnownFolderのNavigate(フォルダを連続でNavigateした場合は、ちゃんと画面更新されます。) Private Sub KnownFolderNavigate_Click(sender As Object, e As EventArgs) Handles KnownFolderNavigate.Click Me.ExplorerBrowser1.Navigate(CType(KnownFolders.Desktop, ShellObject)) End Sub '一般FolderのNavigate(フォルダを連続でNavigateした場合は、ちゃんと画面更新されます。) Private Sub FolderNavigate_Click(sender As Object, e As EventArgs) Handles FolderNavigate.Click Me.ExplorerBrowser1.Navigate(ShellObject.FromParsingName("C:\windows")) End Sub Private Sub ExplorerBrowser1_NavigationComplete(sender As Object, e As NavigationCompleteEventArgs) Handles ExplorerBrowser1.NavigationComplete MsgBox("NavigationComplete") End Sub End Class