Klikken op een Imageview in een Panel

FMFREAK

Member
Licensed User
Longtime User
Heb deze code

B4X:
   For i = 0 To Cursor.RowCount -1
      Dim Height, Height2 As Float
      Dim lblAgnDatum, lblAgnVak,lblAgnId As Label
      Dim datumveld As String
      Dim imgAgnDelete As ImageView
      lblAgnDatum.Initialize("")
      lblAgnVak.Initialize("")
      lblAgnId.Initialize("")
      imgAgnDelete.Initialize("")
      imgAgnDelete.Bitmap = LoadBitmap(File.DirAssets,"delete.png")
      Agendaoverzicht.Panel.Height=Agendaoverzicht.Height
      Agendaoverzicht.Panel.Color = Colors.Transparent
      Cursor.Position = i
      datumveld=DateTime.Date(Cursor.GetLong("datum"))
      lblAgnDatum.Text=datumveld
      lblAgnVak.Text=Cursor.GetString("vak")
      lblAgnId.Text=Cursor.GetInt("id")
      imgAgnDelete.Tag = Cursor.GetInt("id")
      Agendaoverzicht.Panel.AddView(lblAgnDatum, 5dip, 5dip + TotalHeight, Agendaoverzicht.Width, -2)
      Agendaoverzicht.Panel.AddView(lblAgnVak, 5dip, 25dip + TotalHeight, Agendaoverzicht.Width, -2)
      Agendaoverzicht.Panel.AddView(imgAgnDelete, 250dip, 8dip + TotalHeight, 20, 20)
      DoEvents
      Reflect.Target=lblAgnDatum
        Height=Reflect.RunMethod("getHeight")
      DoEvents
      Reflect.Target=lblAgnVak
      Height2=Reflect.RunMethod("getHeight")
      TotalHeight=TotalHeight+Height+Height2
      Agendaoverzicht.Panel.Height=TotalHeight
   Next

Nu staat er dus een image in (imgAgnDelete). Hoe kan ik het nu voor elkaar krijgen dat als ik op die image klik hij dus een Sub imgAgnDelete_Click kan aanpreken. Let wel op dat ie in een For lus zit. Het is dus de bedoeling dat er dan een query op de sql gedaan wordt waarbij het aangeklikt ID verwijdert wordt.
 
Top