MBS FileMaker Videos
FilemakerCurrency Source
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = &Beenden
Const kEditClear =
End Class
Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
Sub Action() Handles Event
HTMLViewer1.LoadURL "http://www.google.com/search?q="+EditField1.text+"+usd+to+eur"
timer1.mode=1
End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
if TargetMacOS then
editfield2.text=HTMLViewer1.EvaluateJavaScriptMBS("res.childNodes[0].firstChild.firstChild.firstChild.childNodes[2].firstChild.firstChild.innerHTML;")
else
if HTMLViewer1.IERunJavaScriptMBS("document.title=res.childNodes[0].firstChild.firstChild.firstChild.childNodes[2].firstChild.firstChild.innerHTML;") then
editfield2.text=HTMLViewer1.IETitleMBS
else
EditField2.text="error"
end if
end if
End Sub
End ControlInstance
End Class
Links
MBS Xojo Chart Plugins