تقييم الموضوع :
  • 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
بارك الله فيك أخي الكريم ونفع بك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 319 20-09-20, 08:46 PM
آخر رد: jam3h
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 77 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 169 09-08-20, 05:09 PM
آخر رد: ismaeel
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 315 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,873 21-07-20, 11:48 PM
آخر رد: alessam4pro
  كيف أقلب النص في تكست بوكس المهنا 3 311 14-07-20, 06:33 PM
آخر رد: ابراهيم ايبو
  ضبط النص في التقرير DOX.1 2 357 04-07-20, 12:25 AM
آخر رد: DOX.1
  سؤال في محدات النص في الدتا قريد ahmedbezia 6 373 01-07-20, 07:07 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] كليك يمين على صف في الداتاقريد و حذف السطر larbihamri 9 605 17-06-20, 01:19 AM
آخر رد: larbihamri
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 19 5,119 06-06-20, 07:32 PM
آخر رد: Omar ahmed

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


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