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


 

All movies