B4J Question CustomListView Scrollbar Visibility

[GuyBooth]

I have a CustomListView that sometimes only has two or three items in it and I don't want to show the scrollbar, and I want to widen the items to cover up the gap when the scrollbar isn't used. The gap disappears nicely if I uncheck the "Show Scroll Bar" property in the designer.
Other times it has 20+ items and I want to use the scrollbar, so I want it checked.

Is there a way to change the "Show Scroll Bar" property programmatically in B4J?

 

[Erel]

Yes.

Sub SetCLVScrollBars(clv As CustomListView, Visible As Boolean)
   Dim nsv As ScrollPane = clv.sv
   If Visible Then
       nsv.SetVScrollVisibility("ALWAYS")
   Else
       nsv.SetVScrollVisibility("NEVER")
   End If
   Dim jo As JavaObject = clv 'ignore
   jo.SetField("_scrollbarsvisible", Visible)
   clv.Base_Resize(clv.AsView.Width, clv.AsView.Height)
End Sub