快速调用“查找文件对话框”加强型的实现

Question

在窗体加一个按钮就OK,加入代码:'快速调用“查找文件对话框”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
    '定义常量参数
    Const SW_SHOW = 5   '通用调用查找对话框函数
    Public Sub ShowFindDialog(Optional InitialDirectory As String)
    ShellExecute 0, "find", IIf(InitialDirectory = "", "", InitialDirectory), vbNullString, vbNullString, SW_SHOW
    End Sub
    '调用查找对话框例程Private Sub Command1_Click()
 Call ShowFindDialog("C:\Program Files")
End Sub该功能是实现快速调用WIN系统“查找文件对话框”,
我想加一个文本框text1在窗体上,如何实现只单击command1,就能把文本框text1的内容自动加载到WIN系统“查找文件对话框”内.麻烦了~~~~~~~~~

Answer 1

请问能不能用剪贴板来实现,还是API函数SendMessage能实现呢?

Answer 2

'快速调用“查找文件对话框”
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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
'定义常量参数
Const SW_SHOW = 5'通用调用查找对话框函数
Public Sub ShowFindDialog(Optional InitialDirectory As String)
    ShellExecute 0, "find", IIf(InitialDirectory = "", "", InitialDirectory), vbNullString, vbNullString, SW_SHOW
End Sub
'调用查找对话框例程Private Sub Command1_Click()
    Call ShowFindDialog("C:\Program Files")
    Clipboard.Clear
    Clipboard.SetText Text1.Text
    SendKeys "^v"
    DoEvents
    Sleep 1000
    SendKeys "{ENTER}"
End Sub