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

[ghazi 0]

وضعت أداة Rich text Box على Form جديد

السؤال

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

أي يخزنها في متغير أو ما شابه ..

ليتسنى لي معالجة هذه الكلمة فيما بعد ..

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

أمل من أعضاء المنتدى مساعدتي .

لأن المشروع متعطل على هذه المرحلة فقط ............ وشكراً :rolleyes:

[HASHAD_MAHMOUD 0]

للرفع

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

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

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

[ghazi 0]

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

ومن باب الأمانة بعد ما توصلت للحل قمت أراجع كتاب ( احتراف 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) = [COLOR=red]Chr(13)[/COLOR] _
                Or Me.RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(10)[/COLOR] 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) = [COLOR=red]Chr(13)[/COLOR] _
                Or RichTextBox1.Text.Chars(i) = [COLOR=red]Chr(10)[/COLOR] Then
                    EndWord = i
                    Exit For
                End If
            Next

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

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