Good day everyone please i have encounter problem with the below line of code help me fix it
B4X:
Private Sub More_Click
Dim pop As PopupMenu
Dim v As View
v = Sender
pop.Initialize("PopupMenu", v)
'pop.AddMenuItem(1, "Share App", Null)
'pop.AddMenuItem(2, "Rate App", Null)
pop.AddMenuItem(3, "Anthem Audio", Null)
pop.Show
End Sub
Sub PopupMenu_ItemClicked (Item As MenuItem)
Select Item.Id
Case ShareApp
' Dim Intent As Intent
' Intent.Initialize(Intent.ACTION_VIEW, "https://www.youtube.com/channel/UCCAK20OTGH7Tgd-ubETJd3g?view_as=subscriber")
' StartActivity(Intent)
Case RateApp
' Dim Intent As Intent
' Intent.Initialize(Intent.ACTION_VIEW, "https://www.google.com")
' StartActivity(Intent)
Case AnthemAudio
Activity.LoadLayout("Music")
End Select
End Sub
Last edited: