• 0
ghazi

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

سؤال

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

السؤال

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

للرفع

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

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

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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .