以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ListView求帮忙  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75189)
--  作者：yaojun
--  发布时间：2015/9/29 19:58:00
--  ListView求帮忙
今天学到了Listview一章，其中分组显示数据示例五是我非常感兴趣的，搞了一天就只能用ico图片，用JpG图片试了N次都搞不好，求代码。感谢！
--  作者：大红袍
--  发布时间：2015/9/29 20:06:00
--  
呃，什么图片都可以，只要路径和文件名写对就行。
--  作者：yaojun
--  发布时间：2015/9/29 20:52:00
--  
红袍老师能编写范例吗，我试了只能用其它图片显示，却不能分组显示，求教。
--  作者：大红袍
--  发布时间：2015/9/29 20:54:00
--  

示例5就是啊，照着写就行啊。做不到好，就上传具体的例子
--  作者：yaojun
--  发布时间：2015/9/29 21:00:00
--  
是复制的示例五代码，可是表的图片换成JpG图片就不行了
--  作者：大红袍
--  发布时间：2015/9/29 21:01:00
--  
 一定可以，提出代码，上传例子。
--  作者：yaojun
--  发布时间：2015/9/29 21:12:00
--  
只能下次再问了，家里没网，手机使用中，呵呵！
--  作者：yaojun
--  发布时间：2015/10/10 8:23:00
--  

是不是示例五需要同一个图片要准备两个大小不同的JPG图啊（我每个图片只准备了一份，不知道是不是这个原因导致不显示大图片，只显示小图片）：

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() \'清除原来的分组
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'用大图标模式
lvw.Images.LargeSize  = New Size(168,168) \'大图标尺寸改为168*168像素
lvw.Images.SmallSize  = New Size(80,80) \'小图标尺寸改为80*80像素
Dim gps() As  String  = {"204","333"} \'定义分组名称
Dim nms() As String = {"204-1","204-2","333-5"} \'定义标题  
Dim ics() As String = {"IMG01151","IMG01152","IMG01153"} \'定义图标键值 
For Each gp As String In gps
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() \'增加分组
    vg.Name = gp \'指定分组名称
    vg.Text = gp & "系列" \'指定分组标题
Next
For i As Integer = 0 To nms.Length - 1
    lvw.Images.AddImage(ics(i),ics(i) & ".jpg", ics(i) & "80.jpg") \'添加代表这个国家的小图标
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    r.Text = nms(i) \'指定标题
    r.ImageKey = ics(i) \'指定图标键值
    Select Case nms(i)  \'指定各个国家所属的分组
        Case "204-1","204-2"
            r.Group = "204"
        Case  "333-5"
            r.Group = "333"
       
    End Select
Next
--  作者：Hyphen
--  发布时间：2015/10/10 9:49:00
--  

lvw.Images.AddImage(ics(i),ics(i) & ".jpg", ics(i) & ".jpg")

 

大图标的设置改成一样的名称就可以使用同一套图片
--  作者：Hyphen
--  发布时间：2015/10/10 9:50:00
--  
否则就要设置两个大小不同的JPG图，或者大小一样，改下名称也可以