Android Example Simple Image viewer & pager

Dim separation as Int = 3dip

Dim ivThumbLeft As Int = separation
Dim ivThumbTop As Int = separation
Dim ivThumbWidth  As Int = (panelImages.Width - 5 * separation ) / 4  '4 images per row
Dim ivThumbHeight As Int = ivThumbWidth        'square thumbs

Dim listImages as list = File.ListFiles(dir)
Dim n As Int = 0

For i=0 to listImages.Size-1

    Dim thumb As Bitmap = LoadBitmapSample(dir, listImages.Get(i), ivThumbWidth, ivThumbHeight)
    Dim ivThumb As ImageView
        ivThumb.Initialize("ivThumb")
        ivThumb.Tag("ivThumb" & i)    'to detect later which imageview you have clicked on
        ivThumb.Bitmap = thumb
        ivTHumb.Gravity = Gravity.FILL

    panelImages.AddView(ivThumb, ivThumbleft, ivThumbTop, ivThumbWidth, ivThumbHeight)

    ivThumbLeft = ivThumbLeft + separation + ivThumbWidth

    n = n + 1

    If n = 4 Then '4 images per row

        ivthumbleft = separation
        ivthumbTop = ivThumbTop + separation + ivThumbHeight
        panelmages.Height = panelImages.Height + ivThumbHeight + separation
        n = 0

    End If

Next

ivThumb.Initialize("ivThumb")
ivThumb.Tag("ivThumb" & i)    'to detect later which imageview you have clicked on

Sub ivThumb_Click

dim i as ImageView
    i = Sender
  
dim imageID as String = i.Tag


End Sub