تقييم الموضوع :
  • 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] كيف أجعل النص يتحرك بهذه الطريقة Necro PC 9 224 , 02:50 AM
آخر رد: Anas Mahmoud
  [نقاش] عن الكاميرات وكود لحساب تاريخ وعمر الشخص michaelripper42 1 88 09-11-20, 01:42 AM
آخر رد: اسامه الهرماوي
Heart [سؤال] السلام علام مطلوب طريقة التحقق من كول الكلمة المتكرار في اليسة بوكس وضعها في التيكس ب Ali 2020 0 318 01-10-20, 12:38 AM
آخر رد: Ali 2020
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 994 20-09-20, 08:46 PM
آخر رد: jam3h
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 178 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 287 09-08-20, 05:09 PM
آخر رد: ismaeel
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 491 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 4,358 21-07-20, 11:48 PM
آخر رد: alessam4pro
  كيف أقلب النص في تكست بوكس المهنا 3 508 14-07-20, 06:33 PM
آخر رد: ابراهيم ايبو
  ضبط النص في التقرير DOX.1 2 462 04-07-20, 12:25 AM
آخر رد: DOX.1

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


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