#Event: SelectedChanged3 (Result as MySubType)
Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Public mBase As B4XView
Type MySubType (index As Int, ItemTex As String, ItemValue As Object)
End Sub
Private Sub RaiseEvent
Dim p As MySubType
p.Initialize
p.index = Index
p.ItemTex = Item
p.ItemValue = mmapValues.Get(Item)
CallSubDelayed2(mCallBack, mEventName & "_SelectedChanged3", p)
End Sub
'in B4x
Private Sub Eventname_SelectedChanged3 (Result As MySubType)
Log(Result.index)
Log(Result.ItemTex)
Log(Result.ItemValue)
End Sub