Вы можете использовать элемент управления WebBrowser в режиме конструктора со вторым элементом управления WebBrowser
, установленным в режиме просмотра.
Чтобы перевести элемент управления WebBrowser
в режим разработки, вы можете использовать следующий код.
Этот код является упрощенной версией редактора WYSIWYG для одного из наших программных продуктов.
Просто создайте новую форму, поместите на нее элемент управления WebBrowser
и поместите ее в форму. Загрузка:
Me.WebBrowser1.Navigate("")
Application.DoEvents()
Me.WebBrowser1.Document.OpenNew(False).Write("<html><body><div id=""editable"">Edit this text</div></body></html>")
'turns off document body editing
For Each el As HtmlElement In Me.WebBrowser1.Document.All
el.SetAttribute("unselectable", "on")
el.SetAttribute("contenteditable", "false")
Next
'turns on editable div editing
With Me.WebBrowser1.Document.Body.All("editable")
.SetAttribute("width", Me.Width & "px")
.SetAttribute("height", "100%")
.SetAttribute("contenteditable", "true")
End With
'turns on edit mode
Me.WebBrowser1.ActiveXInstance.Document.DesignMode = "On"
'stops right click->Browse View
Me.WebBrowser1.IsWebBrowserContextMenuEnabled = False