+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديد سطر بعد البحث فى ريتش بوكس (/showthread.php?tid=10581)
تحديد سطر بعد البحث فى ريتش بوكس - mero5000 - 03-11-14
السلام عليكم
انا معى كود بحث فى الريتش بوكس وبعد البحث يحدد السطر كامل بنجاح
اريد كود اخر لأنى اى معى بيعمل مشكلة ما عند تنفيذ امر اخر وهو ::--
عند البحث فى عن كلمة بداخل السطر وكانت هذه الكلمة فى اخر سطر فى الريتش بوكس ينتقل الى الريتش بوكس ويحدد السطر ويمسحة مع اول عملية تالية
والكود التالى هو فوكس لأداة نص اخرى فبالتالى ينتقل الى الريتش اولا ويمسح السطر المحدد فى البحث
هذا كودى للافادة ويعمل دون اى مشاكل لكنى اريد غيره اذا سمحتم
PHP كود :
Public Sub selct()
On Error Resume Next
For i = 0 To RichTextBox1.Lines.Length - 1
If RichTextBox1.Lines(i).ToString.Contains(ComboBox3.Text) Then
Dim rrrrr As Integer = RichTextBox1.Find(RichTextBox1.Lines(i).ToString, 0, RichTextBoxFinds.None)
Do While rrrrr > -1
RichTextBox1.Select(rrrrr, RichTextBox1.Lines(i).ToString.Length)
RichTextBox1.Select()
rrrrr = RichTextBox1.Find(RichTextBox1.Lines(i).ToString, rrrrr + RichTextBox1.Lines(i).ToString.Length, RichTextBoxFinds.None)
Application.DoEvents()
Loop
End If
Application.DoEvents()
Next
شكرا جزيلا
RE: تحديد سطر بعد البحث فى ريتش بوكس - الوليد ☺ - 03-11-14
السلام عليكم ورحمة الله
تحديد كامل السطر الموجود فيه النص المقصود
PHP كود :
Public Sub SelectLine(ByVal str As String)
Dim FindIndex As Integer = RichTextBox1.Find(str)
If FindIndex <> -1 Then
Dim LineFromCharIndex As Integer = Me.RichTextBox1.GetLineFromCharIndex(FindIndex)
Dim StartLineFromCharIndex As Integer = Me.RichTextBox1.GetFirstCharIndexFromLine(LineFromCharIndex)
Dim LineLength As Integer = Me.RichTextBox1.Lines(LineFromCharIndex).Length
RichTextBox1.Select(StartLineFromCharIndex, LineLength)
RichTextBox1.Focus()
End If
End Sub
RE: تحديد سطر بعد البحث فى ريتش بوكس - mero5000 - 03-11-14
لكن اين يكتب كود النص المراد البحث عنه
مثلا تكست بوكس اكتب بها الكلمة المراد البحث عنها ليحدد السطر كاملا ؟؟
RE: تحديد سطر بعد البحث فى ريتش بوكس - الوليد ☺ - 03-11-14
السلام عليكم ورحمة الله
هذه طريقة نداء للإجراء، يرسل لها نصاً سواء بشكل مباشر أو من مربع نص كما في هذا المثال
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SelectLine(Me.TextBox1.Text)
End Sub
RE: تحديد سطر بعد البحث فى ريتش بوكس - mero5000 - 04-11-14
شكرا اخى
الكود نفذ المطلوب بنسبة 50 % وانا اكملت الباقى بالتعديل على الكود السابق
RE: تحديد سطر بعد البحث فى ريتش بوكس - الوليد ☺ - 04-11-14
السلام عليكم ورحمة الله
لا أدري ماذا تقصد ب 50%، لأنه يبدو أنني لم أفهم المطلوب جيداً، لو توضحه أو يوضحه أحد الأخوة لأنه يبدو أنك مشغولاً.
غير ذلك أنك لم تذكر التعديل اللي تقول عملته على الكود السابق،
على العموم موفق
RE: تحديد سطر بعد البحث فى ريتش بوكس - mero5000 - 04-11-14
شكرا لك انا بالفعل مشغول لأنى تركت البرمجة من سنتين
وما افعله الان هو برنامج خاص بى فقط