كود للبحث في تكست بواسطة Ctrl + F - نسخة قابلة للطباعة

كود :
'الفورم الأول

'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



'في الفورم الثاني أضف

'Text1 الكلمة المراد البحث عنها

'Text2 الكلمة المراد إستبدالها بها

'Command1 البحث عن التالي

'Command2 إستبدال

'Command3 إلغاء الأمر

'Command5 إستبدال الكل

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 "المنطقة المحددة بحثت", 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 "المنطقة المحددة بحثت", 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