Klikken op een Imageview in een Panel

Discussion in 'Dutch Forum' started by FMFREAK, Apr 29, 2011.

  1. FMFREAK

    FMFREAK Member Licensed User

    Heb deze code

    Code:
    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, 
    5dip5dip + TotalHeight, Agendaoverzicht.Width, -2)
          Agendaoverzicht.Panel.AddView(lblAgnVak, 
    5dip25dip + TotalHeight, Agendaoverzicht.Width, -2)
          Agendaoverzicht.Panel.AddView(imgAgnDelete, 
    250dip8dip + TotalHeight, 2020)
          
    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.
     
  2. XverhelstX

    XverhelstX Well-Known Member Licensed User

    hebk gepost op de Q&A op andere topic.

    gebruik exit om uit de lus te gaan.

    xverhelstx
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice