[B4X] [XUI] AS Bottom Menu V2

Alexander Stolte · Mar 1, 2019

RWK said:
the redirection of the Click Events for the Events Tab1Click to Tab5Click are still missing.

Fixed, thanks.

- V2.3

Fix TabClick Event

Brandsum · Mar 2, 2019

mcqueccu said:
Can you implement reverse wave and animation like this example here https://cdn.dribbble.com/users/824356/videos/14191/mockup_3.mp4

Hi @mcqueccu and @Alberto Iglesias here is that animated bottom navigation. Try it!

https://www.b4x.com/android/forum/threads/b4x-xui-wobblemenu-v1.103329/

Alberto Iglesias · Mar 2, 2019

wooowww this is great! i will test right now

thank youuuuu

itgirl · Mar 8, 2019

Amazing class thanks, i just found a little bug if you enable EnableMiddleButtonAsTab and you click on already active tab the underline get little messy the solution i found is in underline_slide_animation_withtext_2

B4X:

        If enable_middlebutton_astab = True Then
            Dim tmp As Double = xpnl_underline.Left - totab.Left  - 40dip/4
        Else
            Dim tmp As Double = xpnl_underline.Left - totab.Left  - 40dip/2
        End If

amazing work with calculations by the way

TILogistic · Mar 14, 2019

if you want to see the halo effect on the middle button

B4X:

Private Sub Middle_Button_Click_Handler
    If xui.SubExists(mCallBack, mEventName & "_MiddleButtonClick",0) Then
        CallSub(mCallBack, mEventName & "_MiddleButtonClick")
    End If
    RippleEffect(PanelMiddlebutton, Ripple_Effect_Color, 250)
End Sub

B4X:

'https://www.b4x.com/android/forum/threads/b4x-xui-simple-halo-animation.80267/#content
Private Sub RippleEffect (Parent As B4XView, Color As Int, Duration As Int)
    Dim cvs As B4XCanvas
    Dim p As B4XView = xui.CreatePanel("")
    Dim InnerRadius As Int = Parent.Height * 1.30
    If Parent.Width <> Parent.Height Then InnerRadius = Max(Parent.Width, Parent.Height) * 1.60
    p.SetLayoutAnimated(0, 0, 0, InnerRadius, InnerRadius)
    cvs.Initialize(p)
    cvs.DrawCircle(cvs.TargetRect.CenterX, cvs.TargetRect.CenterY, cvs.TargetRect.Width / 2, Color, True, 0)
    Dim bmp As B4XBitmap = cvs.CreateBitmap
    p.RemoveViewFromParent
    Dim iv As ImageView
    iv.Initialize("")
    Dim p As B4XView = iv
    Dim Radius As Int = InnerRadius/2
    Dim x As Int = Parent.Width/2
    Dim y As Int = Parent.Height/2
    p.SetBitmap(bmp)
    Parent.AddView(p, x, y, 0, 0)
    p.SetLayoutAnimated(Duration, x - Radius, y - Radius, Radius * 2, Radius * 2)
    p.SetVisibleAnimated(Duration, False)
    Sleep(Duration)
    p.RemoveViewFromParent
End Sub

AllanH · Apr 21, 2019

Great bottom tab

However, changing the current tab in code does not change the current tab visually.
I've amended the code below to call the relevant click but this is a bit untidy and could probably be better written.

B4X:

Public Sub setCurrentTab(tabnumber As Int)
  
    If tabnumber = 1 Or tabnumber = 2 Or tabnumber = 3 Or tabnumber = 4 Or tabnumber = 5 Then
      
        If current_tab <> tabnumber Then
          current_tab = tabnumber
      
      'extra code below:
      Select tabnumber
          Case 1
                tab_1_Click   
          Case 2
                tab_2_Click
            Case 3
                tab_3_Click
            Case 4
              tab_4_Click     
            Case 5
                tab_5_Click
        End Select
        End If
      
        Else
          
            Log("Tab Number not in range")
      
    End If
  
End Sub

Alberto Iglesias · May 5, 2019

Hello Alexander,

I tried to use setMiddleButtonSize but have no effect (i'm using on iOS) like this: Because the button middle is too big

B4X:

ASBottomMenu1.setMiddleButtonSize(20dip,2dip)

Do you have any sample?

thank you!

Alexander Stolte · May 5, 2019

Alberto Iglesias said:
I tried to use setMiddleButtonSize but have no effect

I see it, the issue is in the Base_Resize Sub, i fix it.
I add a private global variable for the middle button size, this should fix the issue.

Can you try it now? i cant test it with B4I, because my Apple Dev. account has expired for 2 months.

V2.5

Fix setMiddleButtonSize is not working

Alberto Iglesias · May 5, 2019

Perfect! I will test right now! thank you

Kope · May 10, 2019

hi Please the TabChange (CurrentTab as int) event is not responding in b4i

please any help?

Gabino A. de la Gala · May 20, 2019

I had problems with the SetCurrentTab and finally I solved it by modifying one of the procedures.

Here I leave it.

B4X:

Public Sub setCurrentTab(tabnumber As Int)
        Select Case tabnumber
            Case 1
                tab_1_handler(True,250,150)
                current_tab = tabnumber
            Case 2
                tab_2_handler(True,250,150)
                current_tab = tabnumber
            Case 3
                tab_3_handler(True,250,150)
                current_tab = tabnumber
            Case 4
                tab_4_handler(True,250,150)
                current_tab = tabnumber
            Case 5
                tab_5_handler(True,250,150)
                current_tab = tabnumber
            Case Else
                Log("Tab Number not in range")
        End Select
End Sub

I suppose that in later versions I can solve it in a more appropriate way.

A greeting.

Guenter Becker · Jul 25, 2019

Hallo,
zuerst mal: gute Arbeit, Danke.
Dann ein paar Fragen mit der Bitte um Antwort:
- wie kann die Value Anzeige ausgeblendet werden?
- wie kann die Textanzeige aus/eingeblendet werden?
- Was nützt mir die Aufzählung zahlreicher Funktionen, wenn ich sie nicht aurufen kann?

Danke für die Arbeit, würde das View schon gerne verwenden aber die Beschreibung ist schon dürftig.
Viele Grüße Günter

P.S.
If it is neccessary to give my comment/questiones in English pleas inform me.

Alexander Stolte · Jul 25, 2019

Guenter Becker said:
wie kann die Value Anzeige ausgeblendet werden?
- wie kann die Textanzeige aus/eingeblendet werden?

ist das beides nicht das gleiche?
is not that the same?

Guenter Becker said:
Was nützt mir die Aufzählung zahlreicher Funktionen, wenn ich sie nicht aurufen kann?

Was soll das für eine Frage sein?
What's that for a question?

JMB · Aug 24, 2019

Hi there.

I've just downloaded this and I get the following errors:

B4X:

Unknown member: underlineanimation
Unknown member: textvisible
Unknown member: textonly
Cannot access private member: middlebuttonvisible
Unknown member: middlebuttonastab
Unknown member: middlebuttonicon

Any clues as to why this may be?

Thanks,

JMB

Alexander Stolte · Aug 26, 2019

JMB said:
Any clues as to why this may be?

On B4A,B4I or B4J?
and witch Version?

JMB · Aug 26, 2019

B4A

V9.30

JMB · Aug 27, 2019

Hi Alexander, any clues as to what the problem may be?

Thanks.

JMB

Alexander Stolte · Aug 28, 2019

JMB said:
Hi Alexander, any clues as to what the problem may be?

I dont have any error, just one warning, that a variable is not used.

BitmapCreator V4.73
XUI V1.90
B4A 9.30

Did you try to test it on a new project?

JMB · Aug 28, 2019

My apologies, Alexander. My mistake.

I thought the ASBottomMenu.bas file was part of the example. I downloaded that file and linked to it and now there are no problems.

Thanks for your patience.

JMB

Alexander Stolte · Aug 28, 2019

JMB said:
ASBottomMenu.bas

But you need it, this is the Menu

[B4X] [XUI] AS Bottom Menu V2

Expert

Well-Known Member

Well-Known Member

Active Member

Expert

Member

Well-Known Member

Expert

Well-Known Member

Active Member

Well-Known Member

Active Member

Expert

Active Member

Expert

Active Member

Active Member

Expert

Active Member

Expert