Foxtable(狐表)用户栏目专家坐堂 → ImageList 组件 添加图片


  共有12293人关注过本帖树形打印复制链接

主题:ImageList 组件 添加图片

帅哥哟,离线,有人找我吗?
xmj09663
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:408 积分:2921 威望:0 精华:4 注册:2010/8/26 20:57:00
ImageList 组件 添加图片  发帖心情 Post By:2011/10/13 0:38:00 [只看该作者]

老爹  如何在ImageList  组件 添加图片  我试了一个晚上 老报错啊   求答 我的写法是这样的

 

Dim ImageList As New System.Windows.Forms.ImageList()
ImageList.ImageSize = New System.Drawing.Size(40, 40)
ImageList.Images.SetKeyName(0,"Images\设置.png")

 

前面两段 运行都是没问题的  就报错   超出 索引 范围   百度资料也查不到   纠结啊


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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"))

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/13 9:04:00 [只看该作者]

listview应该有个imagelist属性的。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/13 9:24:00 [只看该作者]

在foxtable的全局代码中,加入下面一段。

 

Public  ImageList As New System.Windows.Forms.ImageList()
Sub New
        ImageList.ImageSize = New System.Drawing.Size(40, 40)
        ImageList.Images.Add("设置", GetImage("设置.png"))
End Sub

 

这样在任何位置都可以使用这个imagelist了。

 

另外:

ListView1.View = View.LargeIcon

应该改为:

ListView1.View = Windows.Forms.View.LargeIcon

因为foxtable并没有导入Windows.Forms.View这个命名控件。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/13 9:47:00 [只看该作者]

我没有用过这个控件的,你看看listview的文档吧,应该是先创建listviewitem的,listviewitem又有三个subitems.

 

下面是listview的文档地址,复制到ie地址栏可以查看:
 
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.NETDEVFX.v20.chs/CPref17/html/P_System_Windows_Forms_ListView_Items.htm
 
 

[此贴子已经被作者于2011-10-13 9:49:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/13 9:59:00 [只看该作者]

9楼

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/10/13 10:02:00 [只看该作者]

以下是引用天问者在2011-10-13 8:54:00的发言:
呵呵  搞定了  早上   布莱克朱   给的 答案    现在 再找你帮最后一步    如何让 ImageList 与 ListView 进行绑定     

请问ListView 是什么控件呀?在狐表好像找不到呀。谢谢!!


 回到顶部