You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/HTMLViewer Windows/HTMLViewer HTML Text and Image
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
Function FileHTML() As Boolean
dim w as new WindowHTML
w.TextArea1.Text = WindowTest.HTMLViewer1.IEHTMLTextMBS
Return True
End Function
Function FilePicture() As Boolean
dim w as new Windowpic
w.BackDrop = WindowTest.HTMLViewer1.IEImageMBS
Return True
End Function
Function FileText() As Boolean
dim w as new WindowText
w.TextArea1.Text = WindowTest.HTMLViewer1.IETextMBS
Return True
End Function
End Class
Class WindowHTML Inherits Window
Control TextArea1 Inherits TextArea
ControlInstance TextArea1 Inherits TextArea
End Control
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileText = "Text"
MenuItem FileHTML = "HTML"
MenuItem FilePicture = "Picture"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
Class WindowTest Inherits Window
Control HTMLViewer1 Inherits HTMLViewer
ControlInstance HTMLViewer1 Inherits HTMLViewer
EventHandler Sub DocumentComplete(URL as String)
WindowText.TextArea1.Text = me.IETextMBS
WindowHTML.TextArea1.Text = me.IEHTMLTextMBS
Windowpic.Backdrop = me.IEImageMBS
End EventHandler
End Control
EventHandler Sub Open()
HTMLViewer1.LoadURL "http://www.monkeybreadsoftware.de/xojo/"
End EventHandler
End Class
Class WindowText Inherits Window
Control TextArea1 Inherits TextArea
ControlInstance TextArea1 Inherits TextArea
End Control
End Class
Class WindowPic Inherits Window
End Class