RTF Textbox find and replace dialog

[Merrion]

To use, put the following in the RTF textbox keydown sub:-

Private Sub rtfText_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Shift And 2 Then
   If KeyCode = vbKeyF Then
        Call FindReplaceMain.ShowFindDialog(rtftext)
    ElseIf KeyCode = vbKeyH Then
        Call FindReplaceMain.ShowReplaceDialog(rtftext)
    End If
End If
 
End Sub

[tony007]

Many i know if this is to use find and replace in any application or ?

[Merrion]

No - only within an RTF textbox on a VB form.

[boris9050]

Very nice and useful codes, many thanks to you~~~~