Private Sub listBox1_DrawItem/ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs/ Handles ListBox1.DrawItem
Dim img As Image
img = sender.items/e.Index/
e.Graphics.DrawImage/img, targetsize/
End Sub
您可以将图像添加到集合中 listbox items.
Dim img As Image
img = Image.FromFile/"c:\tmp.jpg"/ ' or whatever
ListBox1.Items.Add/img/
...
Private Sub Form1_Load/ByVal sender As System.Object, ByVal e As System.EventArgs/ Handles MyBase.Load
ListView1.View = View.Details
ListView1.Width = 500
imgList.Images.Add/"Male", Image.FromFile/"C:\Users\Joe\Pictures\Male-Symbol.jpg"//
imgList.Images.Add/"Female", Image.FromFile/"C:\Users\Joe\Pictures\Female-Symbol.jpg"//
ListView1.SmallImageList = imgList
End Sub
Private Sub Button1_Click/ByVal sender As System.Object, ByVal e As System.EventArgs/ Handles Button1.Click
Dim index As Integer
Select Case True
Case RadioButton1.Checked
index = 0
Case RadioButton2.Checked
index = 1
End Select
Dim lvi As New ListViewItem
lvi.ImageIndex = index
lvi.SubItems.Add/TextBox1.Text/
ListView1.Items.Add/lvi/
End Sub
3 个回复
窦买办
赞同来自:
http://msdn.microsoft.com/en-u ... .aspx
Listview, 它提供更好的功能,不会遭受调整大小的恼人错误。 listbox 它被转移到S. VB6 天。 listview 支持列标题,分组等等。
添加控件 Imagelist 以其用于存储图像的形式; 设置其财产 ColorDepth 在32位和财产上 Listview LargeImagelist - 在新增的控制上 imagelist /所有这些都可以在代码中完成/.
使用此代码将图像添加到图像列表中:
添加元素B. Listview 使用此代码:
"imagekey"- 这是一种说法的方式 Listview, 使用什么图像。 您还可以使用图标索引,但不存在的索引指示将排除在范围之外的索引,而不存在的密钥,根本不会使用图像。
哦,你也想设置属性。 Listview Multiselect 价值 False /如果您希望它们只选择一个/ 并访问事件 SelectedIndexChanged// 和 ItemActivate//, 当用户点击时 / 双击项目。
二哥
赞同来自:
在
或者
并添加图像绘图处理程序。
您可以将图像添加到集合中 listbox items.
诸葛浮云
赞同来自: