VB中如何在ListView中添加ImageList中的图像

方法如下

（1）新建一个VB工程

（2）在控件工具箱中添加ListView和ImageList控件

在工具箱上鼠标右键单击-->调出菜单

（3）在窗体上布置一个ListView和一个ImageList

（4）向ImageList1中插入图片

鼠标右键单击ImageList1-->调出菜单-->属性

（5）将ListView1与ImageList关联起来

鼠标右键单击ListView1-->调出菜单-->属性

（6）窗体代码

Option Explicit

Private Sub Form_Load()

    '向ListView1中添加项

    Dim itemX As ListItem

    With ListView1

        Set itemX = .ListItems.Add(, , "项目1")

        '使用ImageList1中的#1图

        itemX.Icon = 1

        

        Set itemX = .ListItems.Add(, , "项目2")

        '使用ImageList1中的#2图

        itemX.Icon = 2

    End With

End Sub

（7）运行效果

第一步：在窗体中拖入ListView控件和imageList控件；

第二步：设置imageList控件的Images属性，添加你想要的图片；

第三步：设置ListView控件的SmallImageList、LargeImageList、StateImageList属性为imageList；

第四步：编辑ListView控件项的ImageIndex行为你就会发现图片成功显示出来了！

附：在ListView控件中添加选项的代码

private void button1_Click(object sender, EventArgs e)

{

if (textBox1.Text == "")

{

MessageBox.Show("添加的内容不能为空")

textBox1.Focus() //获取焦点

}

else

{

if (listView1.Items.Count >0) //判断列表框中是否有项

{

//循环比较是否有重复项，有则放弃添加

for (int i = 0i <listView1.Items.Counti++)

{

if (string.Compare(listView1.Items[i].Text.ToString(), textBox1.Text) == 0)

{

MessageBox.Show("项目重复，不能添加！")

textBox1.Text = "" //清空文本框

textBox1.Focus()

return

}

}

listView1.Items.Add(textBox1.Text.ToString())

textBox1.Text = ""

}

else

{

listView1.Items.Add(textBox1.Text.ToString()) //将文本框中的数据添加到列表框

textBox1.Text = ""

}

}

}

当问题需要图片来加以辅助说明时，您可以选择插入图片功能。

准备图片

在插入图片前，您需要在电脑上准备好图片。如果是网上的图片，需要先将图片存到电脑上。

*** 作为将鼠标移至图片上，点击鼠标右键，选择“图像另存为”，请记住图片的存放路径。

上传图片

图片准备好后，点击提问页面或者回答页面的“上传图片”链接，在d出的小窗口中点击“浏览”，选择图片后点击“确定”就可以完成图片的上传。

请注意：

二级及以上用户登录后可以插入图片。

您只能上传本地电脑中的图片，对于网上的图片，可以先下载到本地，然后再进行上传。

可上传的图片格式将限于JPG、GIF、PNG和BMP，最大为3M。

为了保证图片在页面的显示效果，百度知道会自动将图片进行等比压缩，所以请尽量选择长宽相近的图片。

如果图片与您所提交的内容不相关，将会被删除。

---