Private Sub SetColumnListeners
Dim jo As JavaObject = TableView1
Dim ColumnList As List = jo.RunMethodJO("getColumns", Null)
For Each Col As JavaObject In ColumnList
Dim Prop As JavaObject = Col.RunMethod("widthProperty",Null)
Dim o As Object = Prop.CreateEventFromUI("javafx.beans.value.ChangeListener","ColumnChanged",Null)
Prop.RunMethod("addListener",Array(o))
Next
End Sub
Private Sub ColumnChanged_Event (MethodName As String, Args() As Object) As Object
Dim Col As JavaObject = Sender
Dim jo As JavaObject = TableView1
Dim ColumnList As List = jo.RunMethodJO("getColumns", Null)
Dim Width As Double = Args(2)
Dim ColNum As Int = ColumnList.IndexOf(Col.RunMethod("getBean",Null))
Log(ColNum & " : " & Width)
End Sub