Need to get a word (what user clicks on) from IE into my VB program

I have been looking some sample code, found this very promising one, it traps mouse up events etc:
http://www.freevbcode.com/ShowCode.Asp?ID=1606

I need to get a word which user clicks in IE window into my program; a double click on word selects text, so it can be also this.
It seems that sendmessage API does not give text here or I did something wrong.

I have been thinking this for a while so it's difficult.

Matti
LVL 14
MattiAsked:
Who is Participating?
 
ArkConnect With a Mentor Commented:
Hi
Assuming you're using my sample from above link:

Add following function to Form code:

Private Function GetWordFromClick(doc) As String
    Dim evt, range
    Set evt = doc.parentWindow.event
    Set range = doc.body.createTextRange
    range.moveToPoint evt.clientX, evt.clientY
    range.Expand "word"
    GetWordFromClick = range.Text
End Function

' Now just call it from mouseover/mousedown/mouseup events:


Private Sub IEWin_IEMouseDown(hwnd As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
   '....
   Debug.Print GetWordFromClick(IEWin.IE(CStr(hwnd)).IEctl.document)
End Sub

'Note - this code works with IE5 and higher
0
 
ArkCommented:
PS: To get Selection:

Private Function GetSelectedWord(doc) As String
    GetSelectedWord = doc.selection.createRange.Text
End Function
0
 
MattiAuthor Commented:
Hi!

Thanks! it's great code!

Matti
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.