Android Question DesignerArgs with CustomView

[Cadenzo]

How can I get a CustomView from the DesignerArgs? Here I read, that it is in the .Tag of B4XView. But the code below does not work (java.lang.RuntimeException: Field: ba not found in: android.widget.TextView)

'Parameters: PrimaryColorID, SecondaryColorID, View(s)
Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs)
    If DesignerArgs.FirstRun Then
        Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
        Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
        For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            Dim sbtn As SwiftButton = v.Tag 'tag empty?
            sbtn.SetColors(iPrimary, iSecondary)
        Next
    End If
End Sub

'in DesignedScript:
MyDDD.SetSwiftbuttonColor(4, 5, SwiftButton1)

 

[teddybear]

Try this code

Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs) 
        Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
        Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
        For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            If v.tag Is SwiftButton Then
                Dim sbtn As SwiftButton = v.Tag
                sbtn.SetColors(iPrimary, iSecondary)
            End If
        Next
End Sub

 

[Cadenzo]

This is not working. The argument is a SwiftButton, but the v.Tag is not.

 

[Erel]

What is the output of:

  For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            Log(GetType(v))
            Log(GetType(v.Tag))
        Next

And also post the designer script.

 

[teddybear]

What is the output of:

  For i = 2 To DesignerArgs.Arguments.Size - 1
            Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
            Log(GetType(v))
            Log(GetType(v.Tag))
        Next

And also post the designer script.

The designer script is same as post #1
Output

anywheresoftware.b4a.BALayout
android.widget.TextView

 

[teddybear]

Add sleep in sub SetSwiftbuttonColor, it will work，B4j is not required.

Private Sub SetSwiftbuttonColor(DesignerArgs As DesignerArgs)
    Sleep(10)
    Dim iPrimary As Int = GetColor(DesignerArgs.Arguments.Get(0))
    Dim iSecondary As Int = GetColor(DesignerArgs.Arguments.Get(1))
    For i = 2 To DesignerArgs.Arguments.Size - 1
        Dim v As B4XView = DesignerArgs.GetViewFromArgs(i)
        If v.tag Is SwiftButton Then
            Dim sbtn As SwiftButton = v.Tag
            sbtn.SetColors(iPrimary, iSecondary)
        End If
    Next
End Sub

 

[Cadenzo]

Very good! With sleep it is working. Thanks!