[sooriaty03]

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

تفضل أخي الكريم
وإن شاء الله الشرح يكون واضح

كود :

[color=#0000FF]Public Class [/color][COLOR="#2B91AF"]Form1
[/COLOR][color=#0000FF]#Region [/color][COLOR="#A31515"]"API Declaration"
    [/COLOR][color=#0000FF]Private Declare Sub [/color][color=#000000]mouse_event [/color][color=#0000FF]Lib [/color][color=#A31515]"user32" [/color][color=#0000FF]Alias [/color][color=#A31515]"mouse_event" [/color][color=#000000]([/color][color=#0000FF]ByVal [/color][color=#000000]dwFlags [/color][color=#0000FF]As UInteger[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dx [/color][color=#0000FF]As UInteger[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dy [/color][color=#0000FF]As UInteger[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]cButtons [/color][color=#0000FF]As UInteger[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dwExtraInfo [/color][color=#0000FF]As UInteger[/color][COLOR="#000000"])
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_LEFTDOWN = &H2 [/color][COLOR="#008000"]' left button down
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_LEFTUP = &H4 [/color][COLOR="#008000"]' left button up
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_MIDDLEDOWN = &H20 [/color][COLOR="#008000"]' middle button down
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_MIDDLEUP = &H40 [/color][COLOR="#008000"]' middle button up
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_RIGHTDOWN = &H8 [/color][COLOR="#008000"]' right button down
    [/COLOR][color=#0000FF]Private Const [/color][color=#000000]MOUSEEVENTF_RIGHTUP = &H10 [/color][COLOR="#008000"]' right button up
[/COLOR][COLOR="#0000FF"]#End Region
    Private Sub [/COLOR][color=#000000]TextBox1_Click([/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.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]TextBox1.Click
        [/COLOR][COLOR="#0000FF"]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="#008000"]'هنا اظهرنا القائمة وذلك بطريقة
            'محاكاة النقر زر الفأرة الأيمن
            [/COLOR][COLOR="#000000"]mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
        [/COLOR][color=#0000FF]Catch [/color][color=#000000]ex [/color][color=#0000FF]As [/color][COLOR="#2B91AF"]Exception

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

بالتوفيق