• Home
 · 
• Windows System Services
 · 
• This code helps to search the text as like you're using ctrl+F

This code helps to search the text as like you're using ctrl+F

This code helps to search the text as like you're using ctrl+F

API Declarations


'declarations in the code itself



Rate This code helps to search the text as like you're using ctrl+F

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Textbox     -    Quantity  1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If vbCtrlMask And KeyCode = 70 Then
Form2.Show vbModeless, Me
End If
End Sub


'Form2 codings
'Text1                -  Text to be find
'Text2                -  Text to be replace
'command1             -  Find Next
'command2             -  Replace
'command3             -  cancel
'command4             -  Replace all

Dim length As Integer
Dim start As Integer
Dim str As Integer
Dim benabled As Boolean

Private Sub Command1_Click()
benabled = True
length = InStr(start, Form1.Text1.Text, Text1.Text)
If length > 0 Then
    Form1.Text1.SelStart = length - 1
    Form1.Text1.SelLength = Len(Text1.Text)
Else
    MsgBox "The Specific Region has been searched", vbInformation
    Exit Sub
End If
start = length + Len(Text1.Text)

End Sub

Private Sub Command2_Click()
If benabled = False Then
    Command1.Value = -1
    Exit Sub
End If
If start > str Then
Form1.Text1.SelText = Text2.Text
str = start
End If
Call Command1_Click
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
start = 1
here:
If benabled = False Then
Command1.Value = -1
Exit Sub
End If
length = InStr(start, Form1.Text1.Text, Text1.Text)
If length > 0 Then
    Form1.Text1.SelStart = length - 1
    Form1.Text1.SelLength = Len(Text1.Text)
Else
    MsgBox "The Specific Region has been searched", vbInformation
    Exit Sub
End If
start = length + Len(Text1.Text)
Form1.Text1.SelText = Text2.Text
GoTo here
End Sub

Private Sub Form_Load()
length = 1
start = 1
str = 1
benabled = False
End Sub

Private Sub Text1_Change()
Call Form_Load
End Sub