Android Code Snippet [B4X] RaiseEventIfSubExists

When you create a custom view, you often add some events to it.
For example, the custom view I am preparing now has 3 events:

#Event: ElapsedTimeChanged(ElapsedTime As Long)
#Event: StateChanged(Paused As Boolean, ElapsedTime As Long)
#Event: Click(ElapsedTime As Long)

Writing code for each one would mean duplicating lines of code. This snippet (Sub) is useful in these cases.

Note that the mEventName variable is already declared in the custom views class model.

Private Sub RaiseEventIfSubExists(EventName As String, params As List)
    Dim FullSubName As String
    FullSubName = mEventName & "_" & EventName
    If xui.SubExists(mCallBack, FullSubName, params.Size) Then
        Select params.Size
            Case 0
                CallSub(mCallBack, FullSubName)
            Case 1
                CallSub2(mCallBack, FullSubName, params.Get(0))
            Case 2
                CallSub3(mCallBack, FullSubName, params.Get(0), params.Get(1))
        End Select
    End If
End Sub

Usage examples:

'Note the 2 parameters.
RaiseEventIfSubExists("StateChanged", Array(mPaused, getElapsedTime))
'1 parameter.
RaiseEventIfSubExists("Click", Array(getElapsedTime))

 

[Erel]

Change this line to:

If xui.SubExists(mCallBack, FullSubName, params.Size) Then

This way it will work with B4i as well.