Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

URL Scheme Source

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

// Event implementations
Function HandleAppleEvent(theEvent As AppleEvent, eventClass As String, eventID As String) As Boolean
if eventClass = "GURL" and eventID = "GURL" then

dim s as string = theEvent.StringParam("----")

s = DecodeURLComponent(s)

window1.EditField1.text = s

end if


End Function
Sub Open()
if TargetWin32 then
dim s as string = System.CommandLine

dim p1 as integer = instr(s, """")
if p1>0 then
dim p2 as integer = instr(p1+1, s, """")
if p2>0 then
dim p3 as integer = instr(p2+1, s, """")
if p3>0 then
dim p4 as integer = instr(p3+1, s, """")
if p4>0 then
window1.EditField1.text = mid(s, p3+1, p4-p3-1)
end if
end if
end if
end if
end if

End Sub
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
End Class


All movies




Links
MBS FileMaker Plugins