Button Click on AHActionItem
Thanks for this Awesome lib....
I made the AH Action Bar and AHQuickAction function and I make all of the icons on the Action Bar click events...
However, on the AHQuickAction3D pop up menu (ac2) I cannot make anything happen with the click events??
Aaarrrggg!!
Is it an If/Then statement? OR ?
PLEASE HELP!! :sign0104:
For i = 1 To 7
Dim ai As AHActionItem
Dim bd As BitmapDrawable
Dim Filename, Text As String
Select i
Case 1
Filename = "refresh.png"
Text = "Get Coupons"
Case 2
Filename = "list.png"
Text = "Saved Coupons"
AB_ItemClicked(ID_REDTAG)
Case 3
Filename = "settings.png"
Text = "Settings"
' Case 4
' Filename = "menu_eraser.png"
' Text = "Delete"
' Case 5
' Filename = "menu_search.png"
' Text = "Search"
' Case 6
' Filename = "menu_cancel.png"
' Text = "Cancel"
' Case 7
' Filename = "settings.png"
' Text = "Settings"
End Select
'Initialize a bitmap drawable and the action item
bd.Initialize(LoadBitmap(File.DirAssets, Filename))
ai.Initialize(i, Text, bd)
ai.Selected = True
'Add the item to both Quickactions popups
ac2.addActionItem(ai)
Next