Monkeybread Xojo plugin - Example: /Win/HTMLViewer Windows/HTMLViewer Get and Set Field

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/HTMLViewer Windows/HTMLViewer Get and Set Field

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 Get and Set Field

This example is the version from Sun, 5th Nov 2022.

Project "HTMLViewer Get and Set Field.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control PushButton2 Inherits PushButton

ControlInstance PushButton2 Inherits PushButton

EventHandler Sub Action() call HTMLViewer1.IERunJavaScriptMBS("document.title = document.f.q.value") TextField1.text = HTMLViewer1.IETitleMBS End EventHandler

End Control

Control PushButton4 Inherits PushButton

ControlInstance PushButton4 Inherits PushButton

EventHandler Sub Action() call HTMLViewer1.IERunJavaScriptMBS("document.f.q.value='"+TextField1.text+"'") End EventHandler

End Control

Control HTMLViewer1 Inherits HTMLViewer

ControlInstance HTMLViewer1 Inherits HTMLViewer

EventHandler Sub Open() me.loadurl "http://www.google.com/" End EventHandler

End Control

Control TextField1 Inherits TextField

ControlInstance TextField1 Inherits TextField

End Control

Control Label1 Inherits Label

ControlInstance Label1 Inherits Label

End Control

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

End Project