将图像添加到列表视图 vb.net

Question

我有一个包含固定和动态项目的列表视图。我打算打印它作为付款验证收据

这就是我添加固定项目的方式

Dim ListItem As ListViewItem
ListItem = ListView1.Items.Add("ST PAUL'S SECONDARY SCHOOL")
Dim logo As ListViewItem
logo = ListView1.Items.Add(Image.FromFile("1.png"))

我的问题是添加图像的行给了我以下错误

错误 BC30518 重载解析失败，因为无法使用以下参数调用可访问的“Add”：“Public Overridable Overloads Function Add(text As String) As ListViewItem”：“Image”类型的值无法转换为“String”。 '公共可重写重载函数添加（值作为 ListViewItem）作为 ListViewItem'：'Image' 类型的值无法转换为'ListViewItem'。 SchoolManager C:\Users\MASENO\Source\Repos\SchoolManager\SchoolManager\Pay Fees.vb 18 活跃

我已经尝试使用此代码从资源中添加图像，但它没有添加任何图像并且没有显示错误

      Dim il = New ImageList()
    il.Images.Add("1", My.Resources.barlogo)
    ListView1.LargeImageList = il
    ListItem.ImageKey = "1"

我可能做错了什么，我该如何纠正它？

Answer 1

使用ImageList 来保存您的图像，然后通过按键将其应用到 ListView。

' your code
Dim ListItem As ListViewItem
ListItem = ListView1.Items.Add("ST PAUL'S SECONDARY SCHOOL")
' new code
Dim il = new ImageList()
il.Images.Add("1", Image.FromFile("1.png"))
ListView1.LargeImageList = il
ListItem.ImageKey = "1"