|
Chcel by som doplniť svoju otázku. Náledujúci kód mi zobrazí pozíciu kliknutia myšou a zafarbí slovo, na ktoré som klikol.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.DocumentText = "<body contenteditable=true>Chcel by som doplniť svoju otázku.Náledujúci kód mi zobrazí pozíciu kliknutia myšou a zafarbí slovo na ktoré som klikol.</body>"
End Sub
Dim htmlDoc As HtmlDocument
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
htmlDoc = WebBrowser1.Document
AddHandler htmlDoc.Click, AddressOf htmlDoc_Click
End Sub
Sub htmlDoc_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
'pozícia kliknutia na myš
MsgBox(Windows.Forms.Cursor.Position.X - Me.WebBrowser1.Location.X & " " & Windows.Forms.Cursor.Position.Y - Me.WebBrowser1.Location.Y)
'zafarbí jedno slovo
WebBrowser1.Document.ExecCommand("ForeColor", False, "red")
End SubJa potrebujem aby sa zafarbila časť textu medzi dvoma pozíciami napríklad pt(i) a pt(i+1) Vedel by niekto poradiť? Ďakujem.
|