B4J Question [ABMaterial] Too many clicked functions

[amminf]

How to avoid clicked functions.

Sample:

  Dim i As Int
    Dim oCon As ABMContainer = myModal.Content ' Aqui ERROR si se entra directamente (soyyo)
    For i= 0 To aClientesLugar.Size- 1
        Dim msbtn1 As ABMButton
        msbtn1.InitializeFlat(page, "msbtn1SeleccionClientes"& i, "", "", aClientesLista.Get(i), "transparent")


        Dim aList As List
        aList.Initialize
        aList.Add(aClientesLugar.Get(i))
        aList.Add(aClientesCentral.Get(i))
        msbtn1.Tag = aList
    
        oCon.Cell(i+ 1,1).RemoveAllComponents
        oCon.Cell(i+ 1,1).AddComponent(msbtn1)
    Next


Sub msbtn1SeleccionClientes0_Clicked(Target As String) ', SubTarget As String) ', Target2 As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target) ', SubTarget)
End Sub
Sub msbtn1SeleccionClientes1_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes2_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes3_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub

Sub msbtn1SeleccionClientes4_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes5_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes6_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes7_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes8_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes9_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes10_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes11_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes12_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes13_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes14_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes15_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes16_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes17_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes18_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes19_Clicked(Target As String)
    Return ABMShared.Sharedmsbtn1SeleccionClientes_Clicked(Target)
End Sub
Sub msbtn1SeleccionClientes20_Clicked(Target As String)
    Log("exceso de clientes: solo permitido 20 !!")
End Sub

 

[liulifeng77]

you should use addarraycomponent

 

[alwaysbusy]

Please add code tags in your post. Very hard to read your code now.

 

[amminf]

you should use addarraycomponent

With your answer the problem is solved. thks.