添加图像B. listbox /visual basic/

相反，使用
http://msdn.microsoft.com/en-u ... .aspx
Listview, 它提供更好的功能，不会遭受调整大小的恼人错误。 listbox 它被转移到S. VB6 天。 listview 支持列标题，分组等等。

添加控件 Imagelist 以其用于存储图像的形式; 设置其财产 ColorDepth 在32位和财产上 Listview LargeImagelist - 在新增的控制上 imagelist /所有这些都可以在代码中完成/.

使用此代码将图像添加到图像列表中：

ImageList1.Images.Add/"imagekey", Image.FromStream/yourimagestream//

添加元素B. Listview 使用此代码：

ListView1.Items.Add/"list item title", "imagekey"/

"imagekey"- 这是一种说法的方式 Listview, 使用什么图像。 您还可以使用图标索引，但不存在的索引指示将排除在范围之外的索引，而不存在的密钥，根本不会使用图像。

哦，你也想设置属性。 Listview Multiselect 价值 False /如果您希望它们只选择一个/ 并访问事件 SelectedIndexChanged// 和 ItemActivate//, 当用户点击时 / 双击项目。

安装

ListBox1.DrawMode

在

DrawMode.OwnerDrawFixed

或者

DrawMode.OwnerDrawVariable

并添加图像绘图处理程序。

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/

...

对的，这是可能的：

Dim imgList As New ImageList



Private Sub Form1_Load/ByVal sender As System.Object, ByVal e As System.EventArgs/ Handles MyBase.Load

 ListView1.View = View.Details

 ListView1.Width = 500



 ListView1.Columns.Add/"Gender", 75, HorizontalAlignment.Left/

 ListView1.Columns.Add/"Name", 100, HorizontalAlignment.Left/

 ListView1.Columns.Add/"Notes", 350, HorizontalAlignment.Left/

 ListView1.AllowColumnReorder = True



 ListView1.Columns/0/.DisplayIndex = 1



 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