"查找全部"和"全部替换"的功能如何实现?

[couragetodream]

想的我头疼,干脆直接问吧.

CommonDialog中有通用的查找与替换的对话框吗?
怎样使所查找的关键字在textbox或richtextbox中全部显示(选中状态)?
如果"查找"与"替换"两个按钮使用同一个文本框作为输入关键字的载体的话该怎么办?

[VBDN]

关于查找与替换的内容，请参见：
http://blog.csdn.net/VBDN/archive/2005/03/16/321378.aspx

[couragetodream]

不明白

[igxk]

1.用API函数可以实现这个对话框，但函数名我忘了。
2.用　INSTR　和　REPLACE　函数可以实现查找与替换。

[couragetodream]

替换之前要查找一次,然后替换,然后再查找,然后再替换,直到找不到为止...该怎么办啊?

[couragetodream]

顶

[couragetodream]

解决这些问题很复杂吗?

[SetMeFree]

还是用VC吧,呵呵……有现成的类

[couragetodream]

谢谢

[VBDN]

'声明 Type FINDREPLACE
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 Type

'调用 Common Dialog DLL
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
Dim frText As FINDREPLACE
'在表单中加入二个 Command Button，并命名为 cmdFind, cmdReplace，加入以下程序代码：
Private Sub cmdFind_Click()
FindText frText '调用查找对话框
End Sub
Private Sub cmdReplace_Click()
ReplaceText frText '调用替换对话框
End Sub

Private 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

[couragetodream]

[e-mail]

谢谢

[couragetodream]

好像不太稳定啊

[threenewbee]

寄出，收到请回信

[threenewbee]

Find/Replace 是非模态对话框，和主程序用消息通信，实现起来比较复杂，我有一个稳定的 Find/Replace 代码。
要的留EMail

[couragetodream]

以收到,谢谢!

[couragetodream]

已收到,谢谢!