如何將圖像添加到新的 Listview 項？

Question

Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dis = dr("Last Accessed").Substring(0, dr("Last Accessed").IndexOf(" "))
ListView1.Items.Add(New ListViewItem(New String() {docImage, dr("Id").ToString, dr("Document Name").ToString, dr("DISnummer"), dr("XPostnummer"), dis}))

我使用此代碼填充列表視圖，但我喜歡在行的左側添加一個小圖像。 我連接了一個圖像列表，但添加圖像的代碼不起作用：

If dr("[Document Type]").ToString = "PDF" Or dr("[Document Type]").ToString = "pdf" Then
   docImage = (ImageList1.Images.Count - 1)
Endif

我究竟做錯了什么？

米

Answer 1

經過一些測試，我想通了。

While dr.Read
            If dr("Document Type").ToString = "PDF" Or dr("Document Type").ToString = "pdf" Then
                docImage = (ImageList1.Images.Count - 1)
            ElseIf dr("Document Type").ToString = "DOC" Or dr("Document Type").ToString = "doc" Then
                docImage = (ImageList1.Images.Count - 3)
            ElseIf dr("Document Type").ToString = "PPT" Or dr("Document Type").ToString = "ppt" Then
                docImage = (ImageList1.Images.Count - 2)
            End If

            dis = dr("Last Accessed").Substring(0, dr("Last Accessed").IndexOf(" "))
            items.Add(New ListViewItem(New String() {"", dr("Document Name").ToString, dr("DISnummer"), dr("XPostnummer"), dis, dr("Id").ToString, dr("Document Location").ToString}, docImage))
        End While

圖片在項目末尾。添加 function