| エクスプローラーの検索ダイアログを表示する (010) | |
| １．デスクトップをアクティブにして、F3キーを送る方法 Option Explicit 'SampleNo=010 WindowsXP VB6.0(SP5) 2002.04.17 Private Sub Command1_Click() '★デスクトップをアクティブにして[F3］キーを送る方法 AppActivate ("Program Manager") SendKeys "{F3}", True End Sub ２．検索ダイアログボックス表示ファイルを作成し関連付け起動する方法 （拡張子 fnd のテキストファイルを作成し、そのファイルを起動する） Option Explicit 'SampleNo=010 WindowsXP VB6.0(SP5) 2002.04.17 '拡張子に関連付けられたプログラムを実行する(P699) 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_SHOWMAXIMIZED = 3 Private Sub Command2_Click() '★関連付けファイルを起動による表示方法 Dim lngFileNo As Long Dim strMyFile As String strMyFile = Dir$("c:\tesut1.fnd") If Len(strMyFile) = 0 Then strMyFile = "c:\tesut1.fnd" '検索ダイアログボックス表示ファイル作成 lngFileNo = FreeFile Open strMyFile For Output As #lngFileNo Close #lngFileNo Else strMyFile = "c:\tesut1.fnd" End If '検索ダイアログボックスを表示 '関連付けファイルを起動 Call ShellExecute(Me.hwnd, "Open", strMyFile, _ vbNullString, vbNullString, SW_SHOWMAXIMIZED) '一度ファイルを作成しておけば以後関連付けファイルの起動だけでOK End Sub |
|