MBS REALbasic 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 Realbasic PDF Plugins - Pfarrgemeinde Messdiener Nickenich