如何调用系統的【查找】、【替换】的对话框？




 

 

在一般的文本编辑软件中，例如 Windows 本身提供的记事本及写字板中，我们都可以在【编辑】下拉菜单中，找到【查找】、【替换】二项功能，我想很多人自己在编写程序时，也都会自己为程序去编写这二个相当基本的功能。其实根本不用您自己花时间去编写这样的程序代码！

 

还记得 Microsoft Common Dialog Control (16 位控件是 Comdlg16.ocx，32 位控件是 Comdlg32.ocx) 吗？我们都知道，这个控件可以帮助我们做到以下几件事情：

 

1、ShowOpen：打开文件对话框

2、ShowSave：保存对话框

3、ShowPrinter：打印设置对话框

4、ShowFont：字体对话框

5、ShowColor：颜色对话框

6、ShowHelp：帮助对话框

当然，您若还想要 Microsoft Common Dialog Control 多做一些別的事也没办法的！但是，Microsoft 在提供 .ocx 控件的同时，还提供了另外一个控件文档，也就是 comdlg32.dll，它的功能就多了，除了上面提到的几种对话框之外，还有好几个不同功能的对话框，其中就包含【查找】、【替换】二项功能！这二个 API 分別是 FindText 及 ReplaceText 二个。

 

在程序中，要声明这二个 API 之前，由于它们都会引用到一个名为 FINDREPLACE 的 Type，所以我们在声明 Function 之前，必须先声明 Type FINDREPLACE，程序代码如下：

 

在表单的声明区中加入以下声明：

 

Find/Replace Type Structure

Private Type FINDREPLACE

lStructSize As Long  size of this struct 0x20

hwndOwner As Long  handle to owners window

hInstance As Long  instance handle of.EXE that contains cust. dlg. template

flags As Long  one or more of the FR_??

lpstrFindWhat As String  ptr. to search string

lpstrReplaceWith As String  ptr. to replace string

wFindWhatLen As Integer  size of find buffer

wReplaceWithLen As Integer  size of replace buffer

lCustData As Long  data passed to hook fn.

lpfnHook As Long  ptr. to hook fn. or NULL

lpTemplateName As String  custom template name

End Type

 

Common Dialog DLL Calls

Private Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" _

(pFindreplace As FINDREPLACE) As Long

 

Private Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" _

(pFindreplace As FINDREPLACE) As Long

 

Delcaration of the type structure

Dim frText As FINDREPLACE 

在表单中加入二个 Command Button，并命名为 cmdFind, cmdReplace，加入以下程序代码：

 

Private Sub cmdFind_Click()

Call the find text function

FindText frText

End Sub

 

Private Sub cmdReplace_Click()

Call the replace text function

ReplaceText frText

End Sub

 

Private Sub Form_Load()

Set the Find/Replace Type properties

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

好了，您现在可以按 F5 试试了！

注：在 Type FINDREPLACE 中有一个 flag，您可以代入的 flag 是 FR_??，您可以在 API 文件查看器中找找！