+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] البحث عن كلمات داخل Textbox (/showthread.php?tid=17267)
الصفحات:
1
2
البحث عن كلمات داخل Textbox - Doctor GME - 11-09-16
باختصار لدى textbox كبير يكتب بداخله نص كبير
عند الضغط على زر find تفتح هذه النافذه الموجودة فى الصورة والخاصه بالبحث:
***
بالنسبة لخاصية find once تعمل جيداً لإيجاد نتيجة واحدة مطابقة
***
أما find next فعند الضغط عليها لا ينتقل للنتيجة المطابقة التالية مباشرة
وإنما يقوم بعمل select للنتيجة المطابقة الأولى حتى أضغط مره أخرى فينتقل للتالية
مثلاً عندما أبحث عن كلمة how باستخدام زر find once ويجده ويحدده كما فى الصوره:
ثم أضغط على زر find next ليجد الكلمة المقابلة يستمر البرنامج فى تحديد نفس الكلمة
ولا ينتقل للتالية حتى أضغط على find next مرة أخرى ليحدد التالية كما فى الصورة:
لم اتمكن من تعديل كود البرنامج ليحقق هذا
***
وبالنسبة لخاصية find previous و find all لم أتمكن من التطبيق فى الكود
كود نافذة البحث فى البرنامج:
كود :
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'button called (Find Once)
Dim a As String
Dim b As String
a = TextBox1.Text
b = InStr(Form1.TextBox1.Text, a)
If b Then
Form1.TextBox1.Focus()
Form1.TextBox1.SelectionStart = b - 1
Form1.TextBox1.SelectionLength = Len(a)
Else : MsgBox("No Text Found!")
End If
End Sub
Private TargetPosition As Integer
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String = TextBox1.Text
Dim text As String = Form1.TextBox1.Text
pos = InStr(start_at, text, target)
If pos > 0 Then
' We found it.
TargetPosition = pos
Form1.TextBox1.SelectionStart = TargetPosition - 1
Form1.TextBox1.SelectionLength = Len(target)
Form1.TextBox1.Focus()
Else
' We did not find it.
MsgBox("Not found.")
Form1.TextBox1.Focus()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'button called (Find Next)
FindText(TargetPosition + 1)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'button called (Find Previous)
FindText(TargetPosition - 2)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'button called (Find All)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End ClassRE: البحث عن كلمات داخل Textbox - سعود - 13-09-16
نفس سؤالي وقالوا استخدم Ritchtextbox لانها متقدمة.
RE: البحث عن كلمات داخل Textbox - Doctor GME - 14-09-16
استبدلته ب richtextbox ولكن نفس النتيجة
لأن الكود نفسه بحاجه إلى بعض التعديلات
هل من اقتراحات؟؟
RE: البحث عن كلمات داخل Textbox - سعود - 14-09-16
شوف سؤالي هنا والجواب هنا
دائما انظر للمواضيع المتشابهة اسفل الموضوع يساعدك بالحصول على اجابة سريعة.
RE: البحث عن كلمات داخل Textbox - Doctor GME - 14-09-16
المشكلة اخى سعود أن هذا الكود يتطلب تحويل textbox
المكتوب فيه النص الكبير المراد البحث فيه إلى richtextbox
وهذا لا يمكننى فعله لأن كود برنامجى أصبح كبير جداً ولا يمكننى تعديله
ولهذا أبحث عن كود يناسب textbox ويقوم بالمهمة
RE: البحث عن كلمات داخل Textbox - سعود - 14-09-16
طيب مارايك بهذا
http://www.vbforfree.com/how-to-searchfind-text-in-a-textbox-control-using-vbnet/
RE: البحث عن كلمات داخل Textbox - silverlight - 15-09-16
أتمني إن الكود التالي سوف يعطيك فكرة جيدة عن كيفية البحث عن كلمة في RichTextBox
افتح مشروع و أضف الي الفورم RichTextBox و باتون ثم اكتب الكود بالشكل التالي
الكود سوف يجد لك الكلمة التي تبحث عنها
وهنا انا قمت بالبحث عن كلمة vb4arab
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim s As String = "vb4arab demo, The fox knows to jump but how, how he jump?, and how he learned to jumb bla bla bla bla, vb4arab demo"
RichTextBox1.Text = s
End Sub
Private Function TryFindString(stringTofind As String, highlightColor As Color, matchCase As Boolean, matchWholeWord As Boolean) As Boolean
Me.RichTextBox1.SelectAll()
Me.RichTextBox1.SelectionBackColor = Color.White
Dim startIndex As Integer = 0
Dim searchOption As RichTextBoxFinds = Nothing
If matchCase AndAlso matchWholeWord Then
searchOption = RichTextBoxFinds.MatchCase Or RichTextBoxFinds.WholeWord
ElseIf matchCase Then
searchOption = RichTextBoxFinds.MatchCase
ElseIf matchWholeWord Then
searchOption = RichTextBoxFinds.WholeWord
Else
searchOption = RichTextBoxFinds.None
End If
Dim found As Boolean = False
Dim index As Integer = -1
While (Me.FindIndex(Me.RichTextBox1.Find(stringTofind, startIndex, searchOption), index)) > -1
found = True
Me.RichTextBox1.SelectionBackColor = highlightColor
startIndex = index + 1
End While
Return found
End Function
Private Function FindIndex(value As Integer, ByRef index As Integer) As Integer
index = value
Return value
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim search As String = "vb4arab"
Dim found As Boolean = TryFindString(search, SystemColors.MenuHighlight, True, True)
If Not found Then
Dim errorString As String = String.Format("Can't find the word ""{0}"", try another word", search)
MessageBox.Show(errorString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class
RE: البحث عن كلمات داخل Textbox - Doctor GME - 18-09-16
أخى سعود
حاولت التعديل فيه ولم أنجح إلا فى خاصية find once
أما الباقى بحاجة إلا مساعدة على تعديل الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'button called (Find Once)
SearchText(Form1.TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'button called (Find Next)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'button called (Find Previous)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'button called (Find All)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Public Overloads Function SearchText(ByVal textToFind As String) As Integer
'Contains the return value of the search.
'if it returns -1, then a match was not found.
textToFind = TextBox1.Text
Dim nomatchCase As Boolean = False
Dim highlightText As Boolean = True
Dim startPosition As Integer = 0
Dim endPosition As Integer = 0
Dim i As Integer
If endPosition < 1 Then
If Not nomatchCase Then
textToFind = textToFind.ToLower
Dim temp As String = Form1.TextBox1.Text.ToLower
i = temp.IndexOf(textToFind, startPosition, Me.Text.Length)
Else
i = Form1.TextBox1.Text.IndexOf(textToFind, startPosition, Me.Text.Length)
End If
Else
If nomatchCase = False Then
textToFind = textToFind.ToLower
Dim temp As String = Form1.TextBox1.Text.ToLower
i = temp.IndexOf(textToFind, startPosition, endPosition)
Else
i = Form1.TextBox1.Text.IndexOf(textToFind, startPosition, endPosition)
End If
End If
If i > -1 Then
If highlightText Then
Form1.TextBox1.Focus()
Form1.TextBox1.SelectionStart = i
Form1.TextBox1.SelectionLength = textToFind.Length
End If
End If
'
'Returns the position the text was found at
'otherwise it will report -1, which means that the search string was not found.
Return i
End Function
End Class(15-09-16, 02:17 AM)silverlight كتب : أتمني إن الكود التالي سوف يعطيك فكرة جيدة عن كيفية البحث عن كلمة في RichTextBox
افتح مشروع و أضف الي الفورم RichTextBox و باتون ثم اكتب الكود بالشكل التالي
الكود سوف يجد لك الكلمة التي تبحث عنها
وهنا انا قمت بالبحث عن كلمة vb4arab
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim s As String = "vb4arab demo, The fox knows to jump but how, how he jump?, and how he learned to jumb bla bla bla bla, vb4arab demo"
RichTextBox1.Text = s
End Sub
Private Function TryFindString(stringTofind As String, highlightColor As Color, matchCase As Boolean, matchWholeWord As Boolean) As Boolean
Me.RichTextBox1.SelectAll()
Me.RichTextBox1.SelectionBackColor = Color.White
Dim startIndex As Integer = 0
Dim searchOption As RichTextBoxFinds = Nothing
If matchCase AndAlso matchWholeWord Then
searchOption = RichTextBoxFinds.MatchCase Or RichTextBoxFinds.WholeWord
ElseIf matchCase Then
searchOption = RichTextBoxFinds.MatchCase
ElseIf matchWholeWord Then
searchOption = RichTextBoxFinds.WholeWord
Else
searchOption = RichTextBoxFinds.None
End If
Dim found As Boolean = False
Dim index As Integer = -1
While (Me.FindIndex(Me.RichTextBox1.Find(stringTofind, startIndex, searchOption), index)) > -1
found = True
Me.RichTextBox1.SelectionBackColor = highlightColor
startIndex = index + 1
End While
Return found
End Function
Private Function FindIndex(value As Integer, ByRef index As Integer) As Integer
index = value
Return value
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim search As String = "vb4arab"
Dim found As Boolean = TryFindString(search, SystemColors.MenuHighlight, True, True)
If Not found Then
Dim errorString As String = String.Format("Can't find the word ""{0}"", try another word", search)
MessageBox.Show(errorString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class
أخى العزيز كما قلت للأخ سعود فى الردود السابقة
برنامجى به textbox ولا أستطيع تغييره ل richtextbox لأن الكود أصبح كبير جداً
ولا يمكننى تغييره فالأسهل بكثير هو تعديل كود البحث ليتماشى مع textbox
RE: البحث عن كلمات داخل Textbox - أبو عمر - 18-09-16
تستطيع ببساطة شديدة
احذف textbox1 مثلا
واضف RitchTextBox وغير اسمه الى Textbox1
فقط
RE: البحث عن كلمات داخل Textbox - Doctor GME - 18-09-16
لم تصلح أخى أبو عمر هذه الطريقة
الكود كما قلت به أجزاء لا تطبق إلا على textbox فقط
وبعد أداء هذه الطريقة يفشل البرنامج فى debug بسبب هذا