将图像添加到列表框(visual basic)

Private Sub AddImageToListView()
    Dim imgList As ImageList
    Dim img As Image
    
    ' 创建一个新的 ImageList 对象
    imgList = New ImageList()
    
    ' 设置 ImageList 的大小
    imgList.ImageSize = New Size(32, 32)
    
    ' 加载图像到 ImageList 中
    img = Image.FromFile("C:\path\to\image.jpg")
    imgList.Images.Add(img)
    
    ' 将 ImageList 添加到 ListView 控件中
    ListView1.SmallImageList = imgList
    
    ' 添加一个新的列表项并设置其图像
    Dim item As ListViewItem
    item = ListView1.Items.Add("Item 1")
    item.ImageIndex = 0
End Sub