#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim joSlider As JavaObject
Dim S As Slider
Dim joPropertyValue As JavaObject
Dim objChangeListener As Object
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
run
End Sub
Sub run
S.Initialize("")
MainForm.rootpane.AddNode(S,10Dip,16Dip,20Dip,50Dip)
sliderchangelistener
' do some nice things
removelistener
End Sub
Sub sliderchangelistener
joSlider=S
joPropertyValue=joSlider.RunMethod("valueProperty",Null)
objChangeListener=joPropertyValue.CreateEvent("javafx.beans.value.ChangeListener","changelistenerEQ","")
joPropertyValue.RunMethod("addListener",Array(objChangeListener))
End Sub
Sub changelistenerEQ_Event(MethodName As String,Args() As Object) As Object
Log(S.Value)
End Sub
Sub removelistener
joPropertyValue.RunMethod("removeListener",Array(objChangeListener))
End Sub