RTF Textbox find and replace dialog
To use, put the following in the RTF textbox keydown sub:-
VB Code:
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
Re: RTF Textbox find and replace dialog
Many i know if this is to use find and replace in any application or ?
Re: RTF Textbox find and replace dialog
No - only within an RTF textbox on a VB form.
Re: RTF Textbox find and replace dialog
Very nice and useful codes, many thanks to you~~~~ :wave: