'constants used to specify the
'action taken on dialog startup
Public Const swFindText As Boolean = 0
Public Const swReplaceText As Boolean = 1

Public Type FindReplaceData2

  'Strings
  'the text to search
   sWorkText             As String
  
  'the string to search for
   sSearchText           As String
  
  'string to replace it with
   sReplaceText          As String
  
  'Flags
  'if true Trim leading & trailing spaces
   bTrimSpaces           As Boolean
  
  'flag indicating whether to match case.
  'Treated as a Boolean, but declared as
  'int as the values must be 0 or 1 (not -1)
   bMatchCase            As Integer
  
  'flag to force the search to start
  'at the top of the current document
   bStartAtTop           As Integer
  
  'flag to chose between find/replace
  'or count-only routines
   bCountOnly            As Boolean

  'flag indicating counting will take
  'place in the replace sub
   bInReplaceMode        As Boolean
  
  'Position trackers
  'cursor position when the dialog called
   nCursorPos            As Long
  
  'Tracks the position of the found word.
  'When dialog starts, holds cursor position
  'within the work text
   nCurrPos              As Long
 
  'Counters
  'number of matches and replacements made
   nNumFound             As Long
   nNumReplaced          As Long
  
End Type

Public frd As FindReplaceData2


Public Function CreateInitialSearchString(ctl As Control) As String
  
   Dim initSelLen As Long
   Dim work As String
   Dim wordStart As Long
   Dim wordEnd As Long
   Dim currPos As Long
   
   Dim part As String
   Dim initSelStart As Long
   Dim BreakChrs As String
   
  'was something selected in the
  'text box?
   initSelLen = Len(ctl.SelText)
  
  'yes, so use that as the search criteria
  'and save start of the current selection
  'to a variable
   If initSelLen > 0 Then
      CreateInitialSearchString = ctl.SelText
      currPos = ctl.SelStart - initSelLen
      Exit Function
   End If
  
  'nothing was selected, so try and find
  'the next adjacent word to the cursor
   initSelStart = ctl.SelStart
  
  'typical delimiters used to separate words
   BreakChrs = ",()<>[]\|:;=/*-+" & _
                Chr$(32) & _
                Chr$(13) & _
                Chr$(10) & _
                Chr$(9) & _
                Chr$(39)
  
  'create a buffer of the
  'passed control contents
   work = ctl.Text
  
  'if the cursor is presently at position 0,
  'set the cursor position variable to 1.
  'If further in the text, use that value.
   currPos = IIf(initSelStart > 0, initSelStart, 1)
  
  'from the current cursor position in currPos,
  'work backwards to find a break char and
  'save that value as wordStart
   For wordStart = currPos To 1 Step -1
      If InStr(BreakChrs, Mid$(work, wordStart, 1)) Then
         Exit For
      End If
   Next wordStart

  'because the code above found a
  'break chr, add 1 to obtain the
  'first letter of the search word
  'and clip the work text from that
  'point on
   wordStart = wordStart + 1
   part = Mid$(work, wordStart, Len(work))
  
  'starting at currPos (which is now 1 since
  'the preceding text was nuked in the
  'above call), work forward to find the
  'next break char.
   For wordEnd = 1 To Len(part)
      If InStr(BreakChrs, Mid$(part, wordEnd, 1)) Then
         Exit For
      End If
   Next wordEnd
  
  'again, since we know where the break
  'chr is, subtract one for the last
  'letter of the word
   wordEnd = wordEnd - 1
  
  'return the word determined above
   If wordEnd + wordStart > wordStart Then
      CreateInitialSearchString = Mid$(work, wordStart, wordEnd)
   End If

End Function


Public Function CreateInitialReplaceString() As String
  
  'if there is already a value
  'saved as the replace text,
  'return that
   If Len(frd.sReplaceText) > 0 Then
   
      CreateInitialReplaceString = frd.sReplaceText
      Exit Function
   
   Else
   
      CreateInitialReplaceString = ""
   
   End If

End Function


Public Sub CentreFormInParent(cform, pform)

  'cform = child form to centre
  'pform = parent form to centre in
   cform.Move (pform.Left + ((pform.Width - cform.Width) \ 2)), _
              (pform.Top + ((pform.Height - cform.Height) \ 2))

End Sub

Dim killBackspace  As Boolean


Private Sub Form_Load()

   Dim openfilename As String
   Dim fileNum As Integer
   
  'just a local file to search - change as desired 
   openfilename = "findreplace.bas"
   Me.Caption = "VBnet Find/Replace Dialog Demo"
   
   fileNum = FreeFile
   Open openfilename For Input As fileNum
      Text1.Text = Input$(LOF(fileNum), fileNum)
   Close fileNum
   
   Command1.Caption = "Find..."
   Command2.Caption = "Replace..."
   
End Sub


Private Sub Command1_Click()

   Dim sSearch As String

  'determine the search text - pass the *control*, not the Text property
   sSearch = CreateInitialSearchString(Text1)
   
   With frd
      
      .bCountOnly = False
      
      .sSearchText = sSearch
      If .bTrimSpaces Then .sSearchText = Trim$((sSearch))

      With dlgReplace
         'show find dlg
         .SetupInit swFindText, Text1, Me
         .Show , Me
      End With
      
   End With
      
End Sub

Private Sub Command2_Click()

   Dim sSearch As String
   Dim sReplace As String
  
  'determine text to pass as
  'sSearch and sReplace
   sSearch = CreateInitialSearchString(Text1)
   sReplace = CreateInitialReplaceString()
  
   With frd
      .bCountOnly = False
      .sSearchText = sSearch
      .sReplaceText = sReplace
  
      If .bTrimSpaces Then .sSearchText = Trim$((sSearch))

      With dlgReplace
         'show replace dlg
         .SetupInit swReplaceText, Text1, Me
         .Show , Me
      End With
      
   End With
   
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  'ctrl+H is also the keycode for a backspace
  'in a textbox, so in order to display the
  'replace form on a Ctrl+H, we need to eat
  'the keystroke.
  '
  'To do this, we set a flag indicating that
  'the backspace ctrl combination had been
  'pressed and respond show the dialog instead,
  'eating the keystroke in the KeyPress event,
  'and resetting it in KeyUp.  This does not
  'interfere with normal backspace key presses.
   
   If (Shift) = 2 Then
   
      Select Case KeyCode
         Case 72  'H - replace
            killBackspace = True
            Command2.Value = True
         Case 70  'F - find
            killBackspace = True
            Command1.Value = True
         Case Else
         
      End Select
   End If
   
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

  'if the ctrl+ backspace combo flag
  'set, eat the keystroke
   If killBackspace Then KeyAscii = 0
   
End Sub


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

   If killBackspace = True Then killBackspace = False
   
End Sub