Foxtable(狐表)用户栏目专家坐堂 → "ListView列宽


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

主题:"ListView列宽

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
"ListView列宽  发帖心情 Post By:2023/2/24 17:20:00 [只看该作者]

老师,怎么指定列宽呢?
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.AddLargeImage("出租", "出租.png") '添加代表出租的一对图标
lvw.Images.AddLargeImage("待租", "待租.png") '添加代表待租的一对图标
For Each dr As DataRow In DataTables("资产统计管理").DataRows '从数据表中提取数据
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
    vr.Text = dr("资产状态") '设置标题
    If dr("资产状态") = "出租" Then '设置分组
        vr.ImageKey = "出租"
    Else
        vr.ImageKey = "待租"
    End If
Next
lvw.ResumeRedraw() '恢复绘制

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/24 17:31:00 [只看该作者]


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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/2/24 17:52:00 [只看该作者]

只有一列,也只能这样写吗?
[此贴子已经被作者于2023/2/24 17:57:37编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/25 8:40:00 [只看该作者]

详细模式才能设置列宽

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/2/25 9:02:00 [只看该作者]

那我理解错了,应该怎是直接设置图片尺寸,搞定了

[此贴子已经被作者于2023/2/25 9:26:47编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/25 9:28:00 [只看该作者]

无法设置。只能去改图片,高和宽改为一致

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/2/27 8:32:00 [只看该作者]

可以设置的,这样就可以了。
lvw.Images.LargeSize = New Size(120, 75) '定义大图标尺寸

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107756 积分:548119 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/27 8:39:00 [只看该作者]


 回到顶部