iOS Question [AsViewPager] Close keyboard with B4XPages

[angel_]

I use AsTabMenu and AsViewPager with B4XPages, how can I close the keyboard (if it is open) before sliding the panel or clicking the tab?

 

[Alexander Stolte]

Hide the TabMenu under the keyboard when it is open and disable sliding while the keyboard is open.
I don't have more solutions.

 

[Alexander Stolte]

Or check if the keyboard is open in the TabClick event and close it. Then you can switch to the next tab with delay.

 

[angel_]

Is it possible to know if the keyboard is visible and hide it?

 

[Alexander Stolte]

Save the height of root before the keyboard is visible and then just check if this height is still the same, if not then you know that the keyboard is open.

 

[angel_]

Or check if the keyboard is open in the TabClick event and close it. Then you can switch to the next tab with delay.

Any code I enter inside TabClick does nothing and I also have no way of detecting which tab it is in.

 

[angel_]

disable sliding

How can I do that?

 

[Alexander Stolte]

How can I do that?

.Scroll = False

 

[angel_]

Thank you, I have this:

Private Sub B4XPage_KeyboardStateChanged (Height As Float)
    '...'
    Dim EnabledViews As Boolean = (Height = 0)
    ASViewPager1.Scroll = EnabledViews
    ASTabMenu1.ViewEnable(EnabledViews)
End Sub

But this line it doesn't work when EnabledViews is true:

ASTabMenu1.ViewEnable(EnabledViews)

Maybe a problem in this line:

Public Sub ViewEnable(enable As Boolean)
    For i = 0 To xpnl_tabbase.NumberOfViews -1    
        #If B4I
        Dim tmp_pnl As Panel = xpnl_tabbase.GetView(i)
        'tmp_pnl.UserInteractionEnabled = False <-- this line
        tmp_pnl.UserInteractionEnabled = enable
        #Else
        xpnl_tabbase.GetView(i).Enabled = enable
        #End If
    Next
End Sub