| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- ImageList 组件 添加图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13460) |
| -- 作者：xmj09663 -- 发布时间：2011/10/13 0:38:00 -- ImageList 组件 添加图片 老爹 如何在ImageList 组件 添加图片 我试了一个晚上 老报错啊 求答 我的写法是这样的
Dim ImageList As New System.Windows.Forms.ImageList()
前面两段 运行都是没问题的 就报错 超出 索引 范围 百度资料也查不到 纠结啊 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 8:38:00 -- Dim ImageList As New System.Windows.Forms.ImageList() ImageList.ImageSize = New System.Drawing.Size(40, 40) ImageList.Images.Add("设置", GetImage("设置.png")) |
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 9:04:00 -- listview应该有个imagelist属性的。 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 9:24:00 -- 在foxtable的全局代码中，加入下面一段。
Public ImageList As New System.Windows.Forms.ImageList()
这样在任何位置都可以使用这个imagelist了。
另外： ListView1.View = View.LargeIcon 应该改为： ListView1.View = Windows.Forms.View.LargeIcon 因为foxtable并没有导入Windows.Forms.View这个命名控件。
|
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 9:47:00 -- 我没有用过这个控件的，你看看listview的文档吧，应该是先创建listviewitem的，listviewitem又有三个subitems.
下面是listview的文档地址，复制到ie地址栏可以查看： [此贴子已经被作者于2011-10-13 9:49:23编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 9:51:00 -- Private Sub CreateMyListView() \' Create a new ListView control. Dim listView1 As New ListView() listView1.Bounds = New Rectangle(New Point(10, 10), New Size(300, 200)) \' Set the view to show details. listView1.View = View.Details \' Allow the user to edit item text. listView1.LabelEdit = True \' Allow the user to rearrange columns. listView1.AllowColumnReorder = True \' Display check boxes. listView1.CheckBoxes = True \' Select the item and subitems when selection is made. listView1.FullRowSelect = True \' Display grid lines. listView1.GridLines = True \' Sort the items in the list in ascending order. listView1.Sorting = SortOrder.Ascending \' Create three items and three sets of subitems for each item. Dim item1 As New ListViewItem("item1", 0) \' Place a check mark next to the item. item1.Checked = True item1.SubItems.Add("1") item1.SubItems.Add("2") item1.SubItems.Add("3") Dim item2 As New ListViewItem("item2", 1) item2.SubItems.Add("4") item2.SubItems.Add("5") item2.SubItems.Add("6") Dim item3 As New ListViewItem("item3", 0) \' Place a check mark next to the item. item3.Checked = True item3.SubItems.Add("7") item3.SubItems.Add("8") item3.SubItems.Add("9") \' Create columns for the items and subitems. listView1.Columns.Add("Item Column", -2, HorizontalAlignment.Left) listView1.Columns.Add("Column 2", -2, HorizontalAlignment.Left) listView1.Columns.Add("Column 3", -2, HorizontalAlignment.Left) listView1.Columns.Add("Column 4", -2, HorizontalAlignment.Center) \'Add the items to the ListView. listView1.Items.AddRange(New ListViewItem() {item1, item2, item3}) \' Create two ImageList objects. Dim imageListSmall As New ImageList() Dim imageListLarge As New ImageList() \' Initialize the ImageList objects with bitmaps. imageListSmall.Images.Add(Bitmap.FromFile("C:\\MySmallImage1.bmp")) imageListSmall.Images.Add(Bitmap.FromFile("C:\\MySmallImage2.bmp")) imageListLarge.Images.Add(Bitmap.FromFile("C:\\MyLargeImage1.bmp")) imageListLarge.Images.Add(Bitmap.FromFile("C:\\MyLargeImage2.bmp")) \'Assign the ImageList objects to the ListView. listView1.LargeImageList = imageListLarge listView1.SmallImageList = imageListSmall \' Add the ListView to the control collection. Me.Controls.Add(listView1) End Sub \'CreateMyListView |
| -- 作者：狐狸爸爸 -- 发布时间：2011/10/13 9:59:00 -- 9楼 |
| -- 作者：baoxyang -- 发布时间：2011/10/13 10:02:00 -- 以下是引用天问者在2011-10-13 8:54:00的发言：
呵呵 搞定了 早上 布莱克朱 给的 答案 现在 再找你帮最后一步 如何让 ImageList 与 ListView 进行绑定 请问ListView 是什么控件呀？在狐表好像找不到呀。谢谢！！ |