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

MBS Xojo 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




Links
MBS FileMaker Plugins