Sub TableView_Filter(e As Event)
Try
Dim jo As JavaObject = e
Dim PickResult As JavaObject = jo.RunMethod("getPickResult", Null)
Dim toString As String = PickResult.RunMethod("toString", Null)
'---------------------------------------------------------------------------------
' If NOT a TableColumn then probably something like a scrollbar
'---------------------------------------------------------------------------------
If toString.Contains("TableColumn") = false Then return
If PickResult.IsInitialized Then
Dim nw As JavaObject = PickResult.RunMethod("getIntersectedNode", Null)
If nw.IsInitialized Then
'-------------------------------------------------------------------------------
' Without the toString check for TableColumn above this routine
' getItem below crashes when clicking on the scrollbars
'-------------------------------------------------------------------------------
Dim item As Object = nw.RunMethod("getItem", Null)
If item Is ImageView Then
Dim iv As ImageView = item
'your image view is here.
Log("Found: " & iv)
e.Consume
End If
End If
End If
Catch
Log(LastException)
End Try
End Sub