تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود للبحث في تكست بواسطة Ctrl + F
#1
كاتب الموضوع : sniperser

إخواني أقدم لكم كود للبحث في تكست بواسطة 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
نرجوا منكم التقييم
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لابطال عمل Ctrl-Alt-Del RaggiTech 0 257 17-10-12, 12:54 AM
آخر رد: RaggiTech
  طريقة للبحث عن الملفات RaggiTech 0 317 17-10-12, 12:46 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم