Подскажите, как получить выделенный в браузере текст?

[euroflock]

Если в браузере выделить какой-нибудь текст и скопировать его в буфер обмена, то получить его можно через буфер обмена таким способом:

Код: Выделить всё

Dim clipText As String = Clipboard.GetText

А есть ли способ получить выделенный текст без предварительного копирования его в буфер обмена (если не трудно - рабочий примерчик)?

[Williams]

Находится с полпинка -
http://stackoverflow.com/questions/2173 ... ol-in-netc
С конвертацией C# > VB вопросов нет?

[euroflock]

Большое спасибо...
Работающий код на самом деле выглядит иначе, а именно так (чтобы он заработал нужно в проект добавить Reference к C:\Program Files\Microsoft.NET\Primary Interop Assemblies\Microsoft.mshtml.dll):

Код: Выделить всё

Dim domDoc As Object = WebBrowser1.Document.DomDocument
Dim idoc2 As mshtml.IHTMLDocument2 = domDoc
Dim selection As mshtml.IHTMLSelectionObject = idoc2.selection
Dim textHTMLSelection As mshtml.IHTMLTxtRange = CType(selection.createRange(), mshtml.IHTMLTxtRange)
MessageBox.Show(textHTMLSelection.text)