تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن معرفة مكان الجملة او كلمة في richtextbox و وضع فوقها ادات Label
#1
السلام عليكم


عندي نص في ادات richtextbox1
اريد عند كتابة كلمة او جملة في textbox اد كانت موجودة في richtextbox1 توضع فوق تلك الجملة او الكلمة ادات label 
مع مراعات ان الجملة قد تكون في اكثر من سطر

ملاحظة label توضع على الجملة التي في ادات richtextbox1

هل هدا ممكن با vb.net
الرد }}}
تم الشكر بواسطة: sofiane-phy
#2
السلام عليكم ورحمة الله وبركاته

نعم اخي ممكن عملتك كود يضع ليبل بلون احمر فوق الكلمة المطابقة

وضعتها بزر بوتون


كود :
Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub
الرد }}}
#3
(02-01-20, 02:15 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

نعم اخي ممكن عملتك كود يضع ليبل بلون احمر فوق الكلمة المطابقة

وضعتها بزر بوتون


كود :
Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub
السلام عليكم
جربت الكود لكن لا يعمل جيدا عندما اختار كلمة لا توضع فوقها بدقة 
و عندما اختار جملة لا توضع فوقها نهائيا توضع في اعلى richtextbox
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
الكود يعمل جيدآ على اللغة الانكليزية
غير الخاصية RightToLeft للاداة وغير بهذا الشكل للغة العربية


كود :
Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True, .RightToLeft = Windows.Forms.RightToLeft.Yes, .TextAlign = ContentAlignment.MiddleLeft}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub
الرد }}}
تم الشكر بواسطة: علي بنيان , محمد كريّم , al9atl , asemshahen5
#5
(10-01-20, 06:17 PM)3booody كتب : الكود يعمل جيدآ على اللغة الانكليزية
غير الخاصية RightToLeft للاداة وغير بهذا الشكل للغة العربية


كود :
Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True, .RightToLeft = Windows.Forms.RightToLeft.Yes, .TextAlign = ContentAlignment.MiddleLeft}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub

سوف اجرب و اخبرك
سؤال لو اردت بدل مااضع ليبل فوق النص اغير لون النص مباشرة كيف اغير الكود  Angel
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#6
(10-01-20, 06:17 PM)3booody كتب : الكود يعمل جيدآ على اللغة الانكليزية
غير الخاصية RightToLeft للاداة وغير بهذا الشكل للغة العربية


كود :
Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True, .RightToLeft = Windows.Forms.RightToLeft.Yes, .TextAlign = ContentAlignment.MiddleLeft}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub

للاسف لم يعمل عندي جيدا علىالعربية لكن على الانجليزية يعمل
هل يمكن تعديل الكود لتلوين النص بدل وضع عليه لابل

تمكنت من تلوين جملة او كلمة في سطر واحد لكن كيف الون جملة في اكثر من سطر ؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 0 98 22-02-24, 11:47 AM
آخر رد: AHMED213
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 426 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 7 676 12-01-24, 07:31 PM
آخر رد: Kamil
  معرفة عدد الاشهر خلال فترة زمنيةمعينة boofa2022 0 170 01-01-24, 01:18 PM
آخر رد: boofa2022
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1

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


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