怎样在vb中调用查找替换对话框

Question

怎样在vb中调用查找替换对话框（不是查找文件的对话框），在线急等！！！！

Answer 1

Private Type FINDREPLACE
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    flags As Long
    lpstrFindWhat As String
    lpstrReplaceWith As String
    wFindWhatLen As Integer
    wReplaceWithLen As Integer
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End TypePrivate Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" _
(pFindreplace As FINDREPLACE) As LongPrivate Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" _
(pFindreplace As FINDREPLACE) As LongDim frText As FINDREPLACE'查找对话框
Private Sub cmdFind_Click()
    FindText frText
End Sub'替换对话框
Private Sub cmdReplace_Click()
    ReplaceText frText
End SubPrivate Sub Form_Load()
    With frText
        .lpstrReplaceWith = "Replace Text"
        .lpstrFindWhat = "Find Text"
        .wFindWhatLen = 9
        .wReplaceWithLen = 12
        .hInstance = App.hInstance
        .hwndOwner = Me.hWnd
        .lStructSize = LenB(frText)
    End With
End Sub 
可以弹出 系统那个
但是 就像 公共对话框一样 
真正的 查找替换 功能是自己写的
这个只是弹出窗口的代码