将映像添加到ListView-SQL Server数据库-Image不';不出现
我正在处理SQLServer2000数据库中的动态listview,需要在其上添加图像。我已经在表单中添加了将映像添加到ListView-SQL Server数据库-Image不';不出现,listview,sql-server-2000,imagelist,Listview,Sql Server 2000,Imagelist,我正在处理SQLServer2000数据库中的动态listview,需要在其上添加图像。我已经在表单中添加了ImageList控件,并将ListView属性设置为LargeIcon,SmallImageList作为ImageList 我不知道如何在listview上添加图像。这是我的代码,我不知道它有什么问题,虽然它显示了数据库中的数据,但只有图像没有出现: Public Sub PopulateListView_Images(ByVal lv As ListView, ByVal cmd As
ImageList
控件,并将ListView
属性设置为LargeIcon
,SmallImageList
作为ImageList
我不知道如何在listview上添加图像。这是我的代码,我不知道它有什么问题,虽然它显示了数据库中的数据,但只有图像没有出现:
Public Sub PopulateListView_Images(ByVal lv As ListView, ByVal cmd As SqlCommand, ByVal myImageList As ImageList)
Dim da As New SqlDataAdapter
Dim ds As New DataSet
ds.Reset()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
'Fill Method
lv.Columns.Clear()
lv.Items.Clear()
lv.SmallImageList = myImageList
'Fill Listview
Dim c As DataColumn
For Each c In ds.Tables(0).Columns
'adding names of columns as Listview columns
Dim h As New ColumnHeader
h.Text = c.ColumnName
h.Width = 60
lv.Columns.Add(h)
Next
Dim dt As DataTable = ds.Tables(0)
Dim str(ds.Tables(0).Columns.Count) As String
'adding Datarows as listview Grids
Dim rr As DataRow
For Each rr In dt.Rows
For col As Integer = 0 To ds.Tables(0).Columns.Count - 1
str(col) = rr(col).ToString()
Next
Dim ii As New ListViewItem(str)
lv.Items.Add(ii)
'showing the number of records still added
Next
End Sub
在这段代码中,只显示数据,不显示图像。我试着加上:
lv.Items(0).ImageKey = 0