want to select a word from line using right click

[DaveG]

If Button = 2 Then
 
   'This code will be executed when the user clicks on the right mouse button.
 
End if

This should work, I hope.

[hafiiez]

If Button = 2 Then

n = InStrRev(txtSpellCheck.text, " ", txtSpellCheck.SelStart)

End if


when this code 'll be Exicuted then this statement "txtSpellCheck.SelStart"
'll return 0 because it will simply ignore the right click of mouse . the property only work with left click button

[moeur]

I've actually thought about this problem before so thanks for bringing it up so that I could think about it again. Here is some code that will move the cursor position to the spot where you right click

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_USER = &H400
Private Const EM_CHARFROMPOS = WM_USER + 39
Private Type POINTL
        x As Long
        y As Long
End Type
 
Private Sub RTB_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim mypoint As POINTL
    Dim Index As Long
    If Button = vbRightButton Then
        mypoint.x = ScaleX(x, vbTwips, vbPixels)
        mypoint.y = ScaleY(y, vbTwips, vbPixels)
        Index = SendMessage(RTB.hwnd, EM_CHARFROMPOS, 0, mypoint)
        RTB.SelStart = Index
    End If
End Sub

Now it is just like the left mouse button

[engineer]

Thanks moeur.

It work.

Thanks again

[Harsh Gupta]

sorry moeur, but it's not working for me!