- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：ListView中图标显示可以自定义么 比如左边2排 中间1排 右边2排 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53231)
-- 发布时间：2014/7/3 1:28:00
-- 求助：ListView中图标显示可以自定义么 比如左边2排 中间1排 右边2排
求助：ListView中图标显示可以自定义么 比如左边2排 中间1排 右边三排
此主题相关图片如下：qq图片20140703013458.jpg
想将如上图的排列显示为如下图显示 左边2排 中间1排 右边2排
此主题相关图片如下：qq图片20140703012721.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:listview.table |
[此贴子已经被作者于2014-7-3 1:36:18编辑过]
-- 发布时间：2014/7/3 7:52:00
--
这个不行吧!
-- 发布时间：2014/7/3 8:26:00
--
不行,除非用透明图标,空白文本 来代替原本的位置
-- 发布时间：2014/7/3 8:54:00
-- 回复：（Bin）不行,除非用透明图标,空白文本 来代替原...
这个貌似是一个思路 但是有没有办法控制一排显示的数量的呢？比如我想每排显示6个 多余的自动显示在下排
-- 发布时间：2014/7/3 8:56:00
--
不要设置那么大
-- 发布时间：2014/7/3 9:07:00
-- 回复：（Bin）不要设置那么大
指的是什么呢 BIN老师
-- 发布时间：2014/7/3 9:09:00
--
ListVIew不要设置那么大,那么宽. 刚好6个位置
-- 发布时间：2014/7/3 9:24:00
--
拉好宽度以后，你可以用加入空的值去把图表顶到右边。
Dim i As Integer = 0
For Each dr As DataRow In DataTables("员工").DataRows \'从数据表中提取数据
Dim vr As WinForm.ListViewRow
If i > 0 AndAlso i < 5 Then
lvw.Rows.Add() \'增加一行
lvw.Rows.Add() \'增加一行
lvw.Rows.Add() \'增加一行
lvw.Rows.Add() \'增加一行
i = 5
End If
vr = lvw.Rows.Add() \'增加一行
vr.Text = dr("姓名") \'设置标题
If dr("性别") = "男" Then \'设置分组
vr.ImageKey = "Man"
Else
vr.ImageKey = "Woman"
End If
vr.Tag = dr \'将DataRow赋值给ListViewRow的Tag属性,方便以后调用.
i += 1
Next