تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود يقوم مقام (دبل كليك).. وكود للانتقال إلى الكلمة التالية في النص
#1
السلام عليكم
الإخوة الكرام

أريد أن أعرف الكود الذي يقوم مقام (دبل كليك)
وكذلك كود الانتقال إلى الكلمة التالية في النص

توضيح المطلوب:
إذا كان لدينا تيكست بوكس فيه نص
والمؤشر يقف على كلمة معينة في النص
يوجد زر عند الضغط عليه أريد أن يتم التظليل على الكلمة التي يقف عليها المؤشر (كأنني ضغطت دبل كليك بالماوس)
يوجد زر آخر عند الضغط عليه أريد أن ينتقل المؤشر إلى الكلمة التالية في النص

وجزاكم الله خيرا
الرد
تم الشكر بواسطة: معاند الحظ , معاند الحظ
#2
وعليك السلام اخوي

قريت السؤال وحسبته سهل لكن الحمدلله لقيت الحل لكنه مو 100%

المشكلة في الحل هي انك اذا حطيت المؤشر على الكلمة قبل الاخيرة في سطر يتم تحديد الكلمة ومعاها جزء من السطر اللي بعده 
والحقيقة اني ماني فاهم ليش يصير كذا لكن خذ الحل وان شاء الله تستفيد منه واذا قدرت تخليه شغال 100% ارجوك اكتب رد

للحل ضع RichTextBox او TextBox 

اذا كنت استخدمت RichTextBox  تأكد من جعل التحديد مرئيا من خلال تعديل الخاصية HideSelection للـRichTextBox  

كود :
Public Class Form1

   ' متغير لحفظ موقع مؤشر الفارة
   Dim cursorPos As Point
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   End Sub

   Private Sub rtxt_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles rtxt.MouseClick
       'تسجيل موقع المؤشر
       cursorPos = e.Location
       '
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       'Dim newString As String = rtxt.Text.Replace(vbCr, "").Replace(vbLf, "")
       'تسجيل مكان بدء التحديد
       Dim startindex = rtxt.GetCharIndexFromPosition(cursorPos)
       'تسجيل مكان اول فراغ
       Dim nextwhiteSpaceindex As Integer = rtxt.Find(" ", startindex + 1, RichTextBoxFinds.None)
       'تحديد الكلمة التي بعد المؤشر
       rtxt.Select(startindex, nextwhiteSpaceindex - startindex)
       Me.Text = rtxt.SelectedText
   End Sub
   

 
End Class
الرد
تم الشكر بواسطة: waelalmsry75 , ابو روضة , ابو روضة , asemshahen5
#3
(31-01-20, 01:38 AM)معاند الحظ كتب : وعليك السلام اخوي

قريت السؤال وحسبته سهل لكن الحمدلله لقيت الحل لكنه مو 100%

المشكلة في الحل هي انك اذا حطيت المؤشر على الكلمة قبل الاخيرة في سطر يتم تحديد الكلمة ومعاها جزء من السطر اللي بعده 
والحقيقة اني ماني فاهم ليش يصير كذا لكن خذ الحل وان شاء الله تستفيد منه واذا قدرت تخليه شغال 100% ارجوك اكتب رد

للحل ضع RichTextBox او TextBox 

اذا كنت استخدمت RichTextBox  تأكد من جعل التحديد مرئيا من خلال تعديل الخاصية HideSelection للـRichTextBox  

كود :
Public Class Form1

   ' متغير لحفظ موقع مؤشر الفارة
   Dim cursorPos As Point
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   End Sub

   Private Sub rtxt_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles rtxt.MouseClick
       'تسجيل موقع المؤشر
       cursorPos = e.Location
       '
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       'Dim newString As String = rtxt.Text.Replace(vbCr, "").Replace(vbLf, "")
       'تسجيل مكان بدء التحديد
       Dim startindex = rtxt.GetCharIndexFromPosition(cursorPos)
       'تسجيل مكان اول فراغ
       Dim nextwhiteSpaceindex As Integer = rtxt.Find(" ", startindex + 1, RichTextBoxFinds.None)
       'تحديد الكلمة التي بعد المؤشر
       rtxt.Select(startindex, nextwhiteSpaceindex - startindex)
       Me.Text = rtxt.SelectedText
   End Sub
   

 
End Class
بارك الله فيك أخي الكريم ونفع بك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل النص الى صوت mne3000 6 137 , 06:49 PM
آخر رد: mne3000
  طلب كود لحذف الجزء المظلل عليه من النص في التيكست بوكس waelalmsry75 4 155 26-03-20, 01:53 AM
آخر رد: Mahmoud_2020
  [سؤال] فتح الفورم بحسب اسم الفورم الموجود في مربع النص بسام هزاع 2 85 24-03-20, 11:22 PM
آخر رد: kiki
  تغير لون مربع النص alshandodi 6 506 13-12-19, 05:05 PM
آخر رد: محمد كريّم
  النص الطويل للكرستال ريبورت DOX.1 3 252 20-11-19, 02:12 AM
آخر رد: DOX.1
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 277 15-11-19, 06:33 PM
آخر رد: SnTnt
  ممكن كود تقسيم النص على حقلين على سبيل المثال محمد شريف sherf 0 164 15-11-19, 04:28 AM
آخر رد: sherf
  كيف أصنع برنامج يقوم بعمل قرعة على أسماء elta 24 7,818 04-11-19, 06:38 PM
آخر رد: الجسمي
  كود فيجوال بيسك تغيير لون النص في الوورد mostafa12 0 228 07-10-19, 03:57 PM
آخر رد: mostafa12
  [سؤال] AxWindowsMediaPlayer يقوم بالتحديث كل 5 ثواني ! aiham22 0 190 05-10-19, 06:56 PM
آخر رد: aiham22

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


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