تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديد سطر بعد البحث فى ريتش بوكس
#1
السلام عليكم

انا معى كود بحث فى الريتش بوكس وبعد البحث يحدد السطر كامل بنجاح

اريد كود اخر لأنى اى معى بيعمل مشكلة ما عند تنفيذ امر اخر وهو ::--

عند البحث فى عن كلمة بداخل السطر وكانت هذه الكلمة فى اخر سطر فى الريتش بوكس ينتقل الى الريتش بوكس ويحدد السطر ويمسحة مع اول عملية تالية
والكود التالى هو فوكس لأداة نص اخرى فبالتالى ينتقل الى الريتش اولا ويمسح السطر المحدد فى البحث

هذا كودى للافادة ويعمل دون اى مشاكل لكنى اريد غيره اذا سمحتم
PHP كود :
Public Sub selct()
        
On Error Resume Next

        
For 0 To RichTextBox1.Lines.Length 1
            
If RichTextBox1.Lines(i).ToString.Contains(ComboBox3.TextThen
                Dim rrrrr 
As Integer RichTextBox1.Find(RichTextBox1.Lines(i).ToString0RichTextBoxFinds.None)
                Do While 
rrrrr > -1
                    RichTextBox1
.Select(rrrrrRichTextBox1.Lines(i).ToString.Length)
                    
RichTextBox1.Select()

                    
rrrrr RichTextBox1.Find(RichTextBox1.Lines(i).ToStringrrrrr RichTextBox1.Lines(i).ToString.LengthRichTextBoxFinds.None)

                    
Application.DoEvents()

                
Loop

            End 
If
            
Application.DoEvents()
        
Next 

شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله

تحديد كامل السطر الموجود فيه النص المقصود
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(StartLineFromCharIndexLineLength)
        
RichTextBox1.Focus()
    
End If
End Sub 

الرد }}}}
تم الشكر بواسطة: mero5000
#3
لكن اين يكتب كود النص المراد البحث عنه
مثلا تكست بوكس اكتب بها الكلمة المراد البحث عنها ليحدد السطر كاملا ؟؟
الرد }}}}
تم الشكر بواسطة: الوليد ☺
#4

السلام عليكم ورحمة الله

هذه طريقة نداء للإجراء، يرسل لها نصاً سواء بشكل مباشر أو من مربع نص كما في هذا المثال
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    SelectLine
(Me.TextBox1.Text)
End Sub 

الرد }}}}
تم الشكر بواسطة: mero5000
#5
شكرا اخى
الكود نفذ المطلوب بنسبة 50 % وانا اكملت الباقى بالتعديل على الكود السابق
الرد }}}}
تم الشكر بواسطة: الوليد ☺
#6

السلام عليكم ورحمة الله

لا أدري ماذا تقصد ب 50%، لأنه يبدو أنني لم أفهم المطلوب جيداً، لو توضحه أو يوضحه أحد الأخوة لأنه يبدو أنك مشغولاً.

غير ذلك أنك لم تذكر التعديل اللي تقول عملته على الكود السابق،

على العموم موفق
الرد }}}}
تم الشكر بواسطة: mero5000
#7
شكرا لك انا بالفعل مشغول لأنى تركت البرمجة من سنتين
وما افعله الان هو برنامج خاص بى فقط
الرد }}}}
تم الشكر بواسطة: الوليد ☺


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 5 130 23-02-17, 09:44 PM
آخر رد: فارس احمد السيد
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 47 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 95 12-02-17, 06:17 PM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 155 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 35 06-02-17, 05:03 PM
آخر رد: المتألق9
  حل مشكلة في التيكست بوكس عبدالرحمن المكاوي 8 158 06-02-17, 01:52 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كيف اربط بين 3 كومبو بوكس لو سمحتم farhat 8 244 06-02-17, 02:00 AM
آخر رد: farhat
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 107 03-02-17, 07:09 PM
آخر رد: مساعدة
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 145 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2

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


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