Dim v As View = clv.AsView
v.CalcRelativeKeyboardHeight(...)
This code is from B4XPreferencesDialog, it might be useful:
B4X:
Dim p As View = CustomListView1.AsView.Parent.Parent
Dim rel As Int = p.CalcRelativeKeyboardHeight(Height)
If rel = 0 Then rel = CustomListView1.AsView.Height
CustomListView1.sv.Height = Min(rel, CustomListView1.AsView.Height)
Dim v As View = clv.AsView
v.CalcRelativeKeyboardHeight(...)
This code is from B4XPreferencesDialog, it might be useful:
B4X:
Dim p As View = CustomListView1.AsView.Parent.Parent
Dim rel As Int = p.CalcRelativeKeyboardHeight(Height)
If rel = 0 Then rel = CustomListView1.AsView.Height
CustomListView1.sv.Height = Min(rel, CustomListView1.AsView.Height)