比较来自世界各地的卖家的域名和 IT 服务价格

添加图像B. listbox /visual basic/

我有一套图片在互联网上发布,我需要我的用户可以选择 1 来自每人。 我以为 listbox 它将为此工作,但我无法理解,将图像添加到一个。 是否有可能? 做到最好的方法吗? 我使用最新版本的免费版 vb.
已邀请:

窦买办

赞同来自:

相反,使用
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

要回复问题请先登录注册