帮忙讲一下 FindText、 ReplaceText

[dsclub]

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
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

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
'窗体上有个richTextbox


Private Sub mnuFind_Click()
Call FindText(frText)


End Sub

Private Sub mnuReplace_Click()
Call ReplaceText(frText)
End Sub

可是并没反映？？
有时还死机！！
帮忙吧

[gmc007]

帮我看看
http://www.csdn.net/expert/topic/399/399534.shtm

[dsclub]

有空的帮忙顶一下！

[dsclub]

拜托了！！！

[dsclub]

真的没人关注！！
悲哀！！
给个面子

[dsclub]

lwef(寒枫)　：
去这个吧：
http://www.csdn.net/expert/topic/401/401830.shtm

[lwef]

我也想知道