كيف يحدد مؤشر الفأرة كلمة من أداة نص

للرفع

عندي نفس السؤال

وكانت فكره المشروع تنضمن كشف للباسورد ووقف امامي هذا الجزء

اقتباس

أرغب في معرفة الطريقة التي تمكني من أن أجعل مؤشر الفأرة عند الوقوف على إحدى الجمل أو كلمة معينة يقرأ هذه الجملة أو الكلمة ..

الحمد لله وجدت الحل .. بعد جهد جهيد .. وصبر مرير .. طبعاً من قوة اللغة الإنجليزية لدي ( مصيبة )

ومن باب الأمانة بعد ما توصلت للحل قمت أراجع كتاب ( احتراف Visual Basic .Net ) من إعداد الأستاذ / محمد حمدي غانم

اقتبست جزئية من الحل اللي هو وضعه في مثل هذه الحالة .. ووضعت عليه اللون الأحمر ..

    Private Sub richTextBox1_MouseDown(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove

        '   أجراء لتنقية الكلمة أو سلسلة الأرقام التي يتحرك مؤشر الفأرة فوقه
        Dim positionToSearch, i, StartWord, EndWord, LengthWord As Integer

       '   تحديد موضع الرمز الذي عليه مؤشر الفأرة
        positionToSearch = RichTextBox1.GetCharIndexFromPosition(New Point(e.X, e.Y))

        '   إذا كان الرمز الحالي  يمثل رقم من 0 إلى 9 إكمل الإجراء
        '   يمكن حذف هذا الشرط في حالة تحديد أي كلمة
        If Asc(RichTextBox1.Text.Chars(positionToSearch)) > 48 _
        And Asc(RichTextBox1.Text.Chars(positionToSearch)) < 57 Then

            '   تحديد موضع أول الكلمة
            For i = positionToSearch To 0 Step -1
                If Me.RichTextBox1.Text.Chars(i) = Chr(32) _
                Or RichTextBox1.Text.Chars(i) = Chr(13) _
                Or Me.RichTextBox1.Text.Chars(i) = Chr(10) Then
                    StartWord = i + 1
                    Exit For
                End If
            Next

            '   تحديد موضع نهاية الكلمة
            For i = positionToSearch To (RichTextBox1.TextLength - 1)
                If RichTextBox1.Text.Chars(i) = Chr(32) _
                Or RichTextBox1.Text.Chars(i) = Chr(13) _
                Or RichTextBox1.Text.Chars(i) = Chr(10) Then
                    EndWord = i
                    Exit For
                End If
            Next

            '   حدد طول الكلمة الحالية
            LengthWord = EndWord - StartWord

            '   أطبع هذه الكلمة في أداة العنوان
            Label9.Text = RichTextBox1.Text.Substring(StartWord, LengthWord)
        End If
    End Sub