Monkeybread Xojo plugin - Example: /Win/HTMLViewer Windows/HTMLViewer Extensions

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/HTMLViewer Windows/HTMLViewer Extensions

Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/HTMLViewer Windows/HTMLViewer Extensions

This example is the version from Sun, 17th Mar 2012.

Project "HTMLViewer Extensions.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control HTMLViewer1 Inherits HTMLViewer

ControlInstance HTMLViewer1 Inherits HTMLViewer

End Control

Control PushButton1 Inherits PushButton

ControlInstance PushButton1 Inherits PushButton

EventHandler Sub Action() call HTMLViewer1.IERunJavaScriptMBS "alert('Hello World');" End EventHandler

End Control

Control PushButton2 Inherits PushButton

ControlInstance PushButton2 Inherits PushButton

EventHandler Sub Action() call HTMLViewer1.IERunJavaScriptMBS "document.f.q.value='Hello';" End EventHandler

End Control

Control PushButton3 Inherits PushButton

ControlInstance PushButton3 Inherits PushButton

EventHandler Sub Action() MsgBox HTMLViewer1.IETextMBS End EventHandler

End Control

Control PushButton4 Inherits PushButton

ControlInstance PushButton4 Inherits PushButton

EventHandler Sub Action() MsgBox HTMLViewer1.IEHTMLTextMBS End EventHandler

End Control

Control PushButton5 Inherits PushButton

ControlInstance PushButton5 Inherits PushButton

EventHandler Sub Action() dim l as integer if searching then if HTMLViewer1.IEContinueFindTextMBS(EditField1.Text, 0, 0, true) then MsgBox "Found" else searching=False MsgBox "not found" end if else if HTMLViewer1.IEFindTextMBS(EditField1.Text, 0, 0, true) then MsgBox "Found" searching=True else MsgBox "not found" end if end if End EventHandler

End Control

Control EditField1 Inherits TextField

ControlInstance EditField1 Inherits TextField

End Control

EventHandler Sub Open() HTMLViewer1.LoadURL "http://www.google.de/" End EventHandler

Property searching As boolean = false

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar

Class PicWindow Inherits Window

End Class

End Project