Spanish Obtener nombre del control al hacer click

[Gustavo Schiffo]

Hola, buenos dias. Tengo un incomeniente con respecto a obtener el nombre del control cuando lo creo en tiempo de ejecucion.
Este es el codigo que crea los componentes dependiendo la cantidad de registro que obtiene con una consulta SQL.
Dicho codigo lo que muestra es un ImageView con una foto del producto y un label que contiene la descripcion.

Case crea_controles
                Dim l,t,w,h As Int
                Dim COUNTRIES As List
                COUNTRIES = parser.NextArray 'returns a list with maps
                l = 1%x
                t = 1%y
                w = 45%x
                h = 25%y
                For i = 0 To COUNTRIES.Size -1
                    Dim m As Map
                    m = COUNTRIES.Get(i)
                    x = m.Get("id")
                    'Posicion Imagen
                    img(x).Initialize(x)
                    img(x).Gravity = Gravity.FILL
                    
                    lbl(x).Initialize(x)
                    lbl(x).TextColor = Colors.Black
                    
                    sclPrincipal.Panel.AddView(img(x),l,t,w,h)
                    sclPrincipal.Panel.AddView(lbl(x),l+w+3dip,t,w,h)
                    
                    t = t + 27%y

                Next

La duda es como hago para crear un evento CLICK por cada control que se crea, o hay otro forma mas sencilla de hacerlo?

 

[IdasI4A]

Lo que puedes hacer es inicializar los img con el mismo nombre, y pones el id en el Tag por ejemplo

x = m.Get("id")
dim img as ImageView
' lo añades al panel,....
img.Initialize("imgPaises")
img.Tag=x

Luego en el evento Click del imageview

Private Sub imgPaises_Click
    Dim iV As ImageView
    Dim Id As Int
    
    iV=Sender
    Id=iV.tag ' Ya tiene el id de la imagen donde han hecho click'
    '
End Sub

 

[Gustavo Schiffo]

Gracias IdasI4A , ahora pruebo y comento si pude obetener el id de dicho control.

 

[TILogistic]

ver:

Como es lo inverso del Sender?

Hola a todos. Cuando tienes dos vistas o views (panel, label, textfield) y lo "clonas" puedes detectar cual fue el elemento activado, al que se le dio clic, por ejemplo, igualando otra variable = Sender. Pero... cuando tienes digamos, seis paneles, con el mismo layout, con varios elementos...

www.b4x.com

Sender, Tags and Array of Labels

Hi all. I managed to handle sender with tags and control buttons as array. BUT still can't figure out how to do this in b4a : for i = 0 to 9 label(i).visible = false next any help? Sorry for the novice question and Thanks.

www.b4x.com

 

[DiegoSMR]

Hola me pueden ayudar, tengo un problema de medidas, al hacer click en listview, me dirige a un panel, pero al momento de volver a hacer click este se multiplica y agranda a cabalidad. nosé como solucionarlo

If Value = "RIC N°01 | Empalmes" Then

'scrollview
scrollview1.Left = 0
scrollview1.Width = Activity.Width
scrollview1.Panel.LoadLayout("c1p1")
scrollview1.Panel.Height = p1.Height
scrollview1.FullScroll(False)
'menu superior
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets, "hamburger.png"))
ToolbarHelper.UpIndicatorDrawable = bd
'panel zoomimageview
p1z1.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z1.jpg"))
p1z2.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z2.jpg"))
p1z3.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z3.jpg"))
p1z4.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z4.jpg"))
p1z5.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z5.jpg"))
p1z6.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z6.jpg"))
p1z7.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z7.jpg"))
p1z8.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z8.jpg"))
p1z9.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z9.jpg"))
p1z10.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z10.jpg"))
p1z11.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z11.jpg"))
p1z12.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z12.jpg"))
p1z13.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z13.jpg"))
p1z14.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z14.jpg"))
p1z15.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z15.jpg"))
p1z16.SetBitmap(xui.LoadBitmap(File.DirAssets,"p1z16.jpg"))
End If

 

[josejad]

Hola:

Tu post no tiene nada que ver con este hilo, por favor:
- Crea un nuevo hilo con tu duda y un asunto que describa tu problema.
- Pon tu código entre etiquetas [code]... Tu código aquí.... [/code]
- Usa xCustomListView en vez de un scrollview, es más moderno, potente, sencillo y multiplataforma.
- Sube un pequeño ejemplo que muestre tu error, será más fácil ayudarte.

saludos,