Hi
if i put in builb page this ABMActionButton with visibility to HIDE
how i can make visibility to ALL in the code ?
i have tried this but with no succes!
regards Paolo
if i put in builb page this ABMActionButton with visibility to HIDE
B4X:
Dim acb1 As ABMActionButton
acb1.Initialize(page, "acb1", "mdi-av-timer", "bigblue" )
acb1.MainButton.Size = ABM.BUTTONSIZE_LARGE
Dim btn1 As ABMButton
btn1.InitializeFlat (page, "btn1", "", ABM.ICONALIGN_LEFT ,"Mese", "")
acb1.AddMenuButton(btn1)
btn1.Visibility = ABM.VISIBILITY_HIDE_ALL
Dim btn2 As ABMButton
'btn2.InitializeFloating(page, "btn2", "mdi-action-view-module", "sub2")
btn2.InitializeFlat (page, "btn2", "", ABM.ICONALIGN_LEFT ,"Settimana", "")
acb1.AddMenuButton(btn2)
btn2.Visibility = ABM.VISIBILITY_HIDE_ALL
Dim btn3 As ABMButton
'btn3.InitializeFloating(page, "btn3", "mdi-action-view-quilt", "sub3")
btn3.InitializeFlat (page, "btn3", "", ABM.ICONALIGN_LEFT ,"Giorno", "")
acb1.AddMenuButton(btn3)
btn3.Visibility = ABM.VISIBILITY_HIDE_ALL
how i can make visibility to ALL in the code ?
i have tried this but with no succes!
B4X:
Sub acb1_Clicked(Target As String, SubTarget As String)
Dim bt1 As ABMActionButton = page.Component("btn1") 'RETURN NULL VALUE
Dim bt2 As ABMButton = page.Component("btn2")'RETURN NULL VALUE
Dim bt3 As ABMButton = page.Component("btn3")'RETURN NULL VALUE
If SubTarget="" Then
bt1.Visibility = ABM.VISIBILITY_ALL
' add to page
bt2.Visibility = ABM.VISIBILITY_ALL
bt3.Visibility = ABM.VISIBILITY_ALL
Log("clicked main button")
Return
End If
Dim myTexts, myReturns As List
myTexts.Initialize
myReturns.Initialize
myToastId = myToastId + 1
page.ShowToast("toast" & myToastId, "toastred", "Clicked on " & SubTarget, 5000)
Return
End Sub
regards Paolo