[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

[color=#0000FF]Public Class [/color][COLOR="#2B91AF"]Form1
    [/COLOR][color=#0000FF]Private Sub [/color][color=#000000]TextBox1_MouseDown([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As Object[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.Windows.Forms.[/color][color=#2B91AF]MouseEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]TextBox1.MouseDown
        [/COLOR][color=#0000FF]If [/color][color=#000000]e.Button = MouseButtons.Right [/color][COLOR="#0000FF"]Then
            Try
                [/COLOR][COLOR="#008000"]'التأكد من وجود نص داخل أداة النص
                [/COLOR][color=#0000FF]If [/color][color=#000000]TextBox1.Text = [/color][color=#A31515]"" [/color][COLOR="#0000FF"]Then Exit Sub
                [/COLOR][COLOR="#008000"]'متغيرين لتحديد بداية ونهاية الكلمة
                [/COLOR][color=#0000FF]Dim [/color][color=#000000]FirstLetter, LastLetter [/color][COLOR="#0000FF"]As Integer
                [/COLOR][COLOR="#008000"]'تحديد بداية الكلمة
                'وذلك عن طريق البحث عن مسافة أمام الكلمة
                [/COLOR][color=#000000]FirstLetter = TextBox1.Text.Substring(0, TextBox1.SelectionStart).LastIndexOf([/color][color=#A31515]" "[/color][COLOR="#000000"]) + 1
                [/COLOR][COLOR="#008000"]'لتحديد نهاية الكلمة
                [/COLOR][color=#000000]LastLetter = TextBox1.Text.IndexOf([/color][color=#A31515]" "[/color][COLOR="#000000"], FirstLetter)
                [/COLOR][COLOR="#008000"]'إذا كان نهاية الكلمة أصغر من بدايتها
                'فهذا يعني أن الكلمة المطلوبة تقع آخر النص
                [/COLOR][color=#0000FF]If [/color][color=#000000]LastLetter < FirstLetter [/color][color=#0000FF]Then [/color][COLOR="#000000"]LastLetter = TextBox1.TextLength
                [/COLOR][COLOR="#008000"]'تظليل الكلمة بعد أن عرفنا البداية والنهاية
                [/COLOR][COLOR="#000000"]TextBox1.SelectionStart = FirstLetter
                TextBox1.SelectionLength = LastLetter - FirstLetter
            [/COLOR][color=#0000FF]Catch [/color][color=#000000]ex [/color][color=#0000FF]As [/color][COLOR="#2B91AF"]Exception

            [/COLOR][COLOR="#0000FF"]End Try
        End If
    End Sub
End Class
[/COLOR]

بالتوفيق