これもあまり使えない。
一応やり方は2つある。1つ目は ShellExecute API関数の第2引数に"find"という文字を指定して実行すればより。それは以下の通り。 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1
'-------------------------------------------------------------------
ShowSearchDLG = ShellExecute(hWnd, "FIND", vbNullString, vbNullString, vbNullString, SW_SHOWNORMAL) End Function とまあ、簡単である。もう1つの方法は拡張子が"fnd"というからのファイルを作り起動してあげればいい。コードは書かないよ。こちらの方法でやる方は、ちょっとコード量が多くなるけど、Shell関数で起動できるので終了監視や複数起動防止がやりやすいというのがメリット。 |