这个思路可以考虑一下:
Private Function Init_ImgList() As Boolean '初始化图片
Dim HowImgRow As Integer = 10 '常数,每行10个小图标
Dim CN As New SqlConnection()
Dim CM As New SqlCommand()
Dim DR As SqlDataReader
Dim ImgPath As String
Dim Number_i As Integer = 0
Dim Number_j As Integer
Dim Table As HtmlTable
Dim Tr As HtmlTableRow
Dim Td As HtmlTableCell
Dim Img As HtmlImage CN.ConnectionString = CnStr.ConnString
CN.Open()
CM.Connection = CN
CM.CommandText = "Select * from [PhotoOfIco]"
DR = CM.ExecuteReader Table = New HtmlTable()
'Table.CellPadding = 0
'Table.CellSpacing = 0
'Table.Border = 0
While DR.Read()
If IsDBNull(DR("PhotoOfIcoName")) <> True Then
If Trim(DR("PhotoOfIcoName")) <> "" Then
'每一行生成HowImgRow个TD加图标
'====================
Number_j = Number_i Mod HowImgRow
If Number_j = 0 Then
'生成一个TR用于乘放HowImgRow个TD加图标
Tr = New HtmlTableRow()
End If
'==================== '初始化一个图标
ImgPath = "../Images/MenuIco/" + DR("PhotoOfIcoName")
Img = New HtmlImage()
Img.Src = ImgPath
Img.Style.Item("cursor") = "hand"
Img.Attributes.Item("onclick") = "selectIco(this)" '初始化一个TD将图标放入TD
Td = New HtmlTableCell()
Td.Style.Add("border-style", "solid")
Td.Style.Add("border-width", "0.01cm")
Td.Style.Add("border-color", "d0d0d0")
Td.Attributes.Item("onmouseover") = "JavaScript:this.style.borderColor='red'"
Td.Attributes.Item("onmouseout") = "JavaScript:this.style.borderColor='#d0d0d0'"
Td.Controls.Add(Img)
Tr.Controls.Add(Td) '每生成一个TD都将其放入TR中 Table.Controls.Add(Tr) 'TR加完TD后在放到Table中
End If
End If
Number_i = Number_i + 1
End While ImgList.Controls.Add(Table) '将图标列表放到ImgList中 DR.Close()
CM.Dispose()
CN.Close()
End Function
Private Function Init_ImgList() As Boolean '初始化图片
Dim HowImgRow As Integer = 10 '常数,每行10个小图标
Dim CN As New SqlConnection()
Dim CM As New SqlCommand()
Dim DR As SqlDataReader
Dim ImgPath As String
Dim Number_i As Integer = 0
Dim Number_j As Integer
Dim Table As HtmlTable
Dim Tr As HtmlTableRow
Dim Td As HtmlTableCell
Dim Img As HtmlImage CN.ConnectionString = CnStr.ConnString
CN.Open()
CM.Connection = CN
CM.CommandText = "Select * from [PhotoOfIco]"
DR = CM.ExecuteReader Table = New HtmlTable()
'Table.CellPadding = 0
'Table.CellSpacing = 0
'Table.Border = 0
While DR.Read()
If IsDBNull(DR("PhotoOfIcoName")) <> True Then
If Trim(DR("PhotoOfIcoName")) <> "" Then
'每一行生成HowImgRow个TD加图标
'====================
Number_j = Number_i Mod HowImgRow
If Number_j = 0 Then
'生成一个TR用于乘放HowImgRow个TD加图标
Tr = New HtmlTableRow()
End If
'==================== '初始化一个图标
ImgPath = "../Images/MenuIco/" + DR("PhotoOfIcoName")
Img = New HtmlImage()
Img.Src = ImgPath
Img.Style.Item("cursor") = "hand"
Img.Attributes.Item("onclick") = "selectIco(this)" '初始化一个TD将图标放入TD
Td = New HtmlTableCell()
Td.Style.Add("border-style", "solid")
Td.Style.Add("border-width", "0.01cm")
Td.Style.Add("border-color", "d0d0d0")
Td.Attributes.Item("onmouseover") = "JavaScript:this.style.borderColor='red'"
Td.Attributes.Item("onmouseout") = "JavaScript:this.style.borderColor='#d0d0d0'"
Td.Controls.Add(Img)
Tr.Controls.Add(Td) '每生成一个TD都将其放入TR中 Table.Controls.Add(Tr) 'TR加完TD后在放到Table中
End If
End If
Number_i = Number_i + 1
End While ImgList.Controls.Add(Table) '将图标列表放到ImgList中 DR.Close()
CM.Dispose()
CN.Close()
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货