Xojo Developer Conference
Join us from 25th to 27th April 2018 in Denver.

MBS Real Studio Plugin Tutorial Videos

AppleScript Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub Action() Handles Event
dim a as AppleScriptMBS
dim script as string

a=new AppleScriptMBS

script="tell application ""iTunes"" to play"

a.Compile Script
if a.Lasterror<>0 then
MsgBox "Apple Script error: "+str(a.Lasterror)+EndOfLine+EndOfLine+a.Error.BriefMessage
end if

'MsgBox a.Source

a.Execute

if a.Lasterror<>0 then
MsgBox "Apple Script error: "+str(a.Lasterror)+EndOfLine+EndOfLine+a.Error.BriefMessage
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim a as AppleScriptMBS
dim script as string

a=new AppleScriptMBS

script="tell application ""iTunes"" to pause"

a.Compile Script
a.Execute


End Sub
End ControlInstance
End Class


All movies




Links
MBS FileMaker Plugins