Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio Plugin Tutorial Videos

NSSlider 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 ValueChanged() Handles Event
      StaticText1.text=str(me.Value)
    End Sub
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText2
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      
      Return n
      
    End Function
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText3
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      n.numberOfTickMarks=11
      
      Return n
      
    End Function
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText4
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      n.numberOfTickMarks=5
      n.tickMarkPosition=n.NSTickMarkAbove
      n.allowsTickMarkValuesOnly=true
      
      Return n
      
    End Function
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText5
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      n.numberOfTickMarks=5
      n.tickMarkPosition=n.NSTickMarkAbove
      n.allowsTickMarkValuesOnly=true
      
      Return n
      
    End Function
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText5
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      n.numberOfTickMarks=5
      n.tickMarkPosition=n.NSTickMarkRight
      n.allowsTickMarkValuesOnly=true
      
      Return n
      
    End Function
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      dim n as new MySlider
      
      n.info=StaticText6
      n.minValue=0
      n.maxValue=100
      n.doubleValue=50
      n.sliderType=n.NSCircularSlider
      n.numberOfTickMarks=5
      n.allowsTickMarkValuesOnly=True
      
      Return n
      
    End Function
  End ControlInstance
End Class

Class MySlider
Inherits NSSliderMBS
  // Properties
  Dim info As staticText
  
  
  
  // Event implementations
  Sub Action()
    info.text=str(me.intValue)
  End Sub
End Class

All movies

Loading


Links
MBS Real Studio Plugins - Pfarrgemeinde Messdiener Nickenich