● ファイル検索ダイアログ ●

これもあまり使えない。

一応やり方は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
' 機能 : ファイルの検索ダイアログを表示する
' 引数 : (in) hWnd … 呼び出し側のウインドウハンドル
' 返り値 : なし
'-------------------------------------------------------------------
Public Function ShowSearchDLG(ByVal hWnd As Long) As Long

    ShowSearchDLG = ShellExecute(hWnd, "FIND", vbNullString, vbNullString, vbNullString, SW_SHOWNORMAL)

End Function

とまあ、簡単である。もう1つの方法は拡張子が"fnd"というからのファイルを作り起動してあげればいい。コードは書かないよ。こちらの方法でやる方は、ちょっとコード量が多くなるけど、Shell関数で起動できるので終了監視や複数起動防止がやりやすいというのがメリット。


戻る