Sub showThumbs(ByVal sender As Object, ByVal e As CommandEventArgs)
Dim a As Integer = 0
Do
tblEvents.Rows(a).BackColor = Drawing.Color.White
tblEvents.Rows(a + 1).BackColor = Drawing.Color.LightBlue
a += 2
On Error Resume Next
Loop While a < RowNum
tblEvents.Rows(e.CommandName).BackColor = Drawing.Color.Aquamarine
tblEvents.Rows(e.CommandName).ID = "Selected"
Dim Conn As New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("sysObjDBConnectionString").ConnectionString)
Dim Cmd As New Data.SqlClient.SqlCommand("SELECT event_photo_id FROM EVENT_PHOTO WHERE event_id =" & e.CommandArgument, Conn)
Dim EventRead As Data.SqlClient.SqlDataReader
Conn.Open()
EventRead = Cmd.ExecuteReader
Dim Thumb As ImageButton
Dim TR As TableRow
Dim TC As TableCell
Dim x As Integer = 0
Dim y As Integer = 0
While EventRead.Read
x += 1
If x = 4 Then x = 1
If x = 1 Then
y += 1
If y = 3 Then y = 1
TR = New TableRow
If y = 1 Then
TR.BackColor = Drawing.Color.White
Else
TR.BackColor = Drawing.Color.LightBlue
End If
End If
TC = New TableCell
TCThumbInit.Visible = False 'hide initial information
Thumb = New ImageButton
Thumb.CommandArgument = e.CommandArgument
Thumb.CommandName = e.CommandName
AddHandler Thumb.Command, AddressOf Me.showFull
Thumb.ImageUrl = "~/IMG.aspx?Type=2&ID=" & EventRead(0)
Thumb.Width = "100"
TC.Controls.Add(Thumb)
TC.Controls.Add(New LiteralControl("&nbsp; &nbsp;"))
TR.Cells.Add(TC)
If x = 3 Then tblThumb.Rows.Add(TR)
End While
If x <> 3 Then tblThumb.Rows.Add(TR)
Conn.Close()
End Sub
Sub showFull(ByVal sender As Object, ByVal e As CommandEventArgs)
'showThumbs(sender, e)
Response.Write("imageButton.Command")
'Dim FullIMG As New Image
'FullIMG.ImageUrl = "~/IMG.aspx?Type=2&ID=" & e.CommandArgument
'TCFull.controls.add(FullIMG)
End Sub

PartialClass _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Sub imgClick(ByVal sender As Object, ByVal e As ImageClickEventArgs)
Response.Write("Image Click")
End Sub
Sub imgCommand(ByVal sender As Object, ByVal e As CommandEventArgs)
Response.Write("Image Command")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim img As New ImageButton
img.ImageUrl = "~/t_can.gif"
AddHandler img.Click, AddressOf Me.imgClick
AddHandler img.Command, AddressOf Me.imgCommand
Table1.Rows(0).Cells(0).Controls.Add(img)
End Sub
EndClass

Protected Sub Gerak(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        MsgBox("Masuk", MsgBoxStyle.OkOnly)
    End Sub
 
 
For i = 0 To jum - 1
            img(i) = New ImageButton()
            AddHandler img(i).Click, AddressOf Me.Gerak
            img(i).ImageUrl() = "images/kodok-hijau.gif"
            pGame.Controls.Add(img(i))
        Next