以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  "ListView列宽  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185474)

--  作者:cd_tdh
--  发布时间:2023/2/24 17:20:00
--  "ListView列宽
老师,怎么指定列宽呢?
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() \'恢复绘制

--  作者:有点蓝
--  发布时间:2023/2/24 17:31:00
--  
http://www.foxtable.com/webhelp/topics/2853.htm
--  作者:cd_tdh
--  发布时间:2023/2/24 17:52:00
--  
只有一列,也只能这样写吗?
[此贴子已经被作者于2023/2/24 17:57:37编辑过]

--  作者:有点蓝
--  发布时间:2023/2/25 8:40:00
--  
详细模式才能设置列宽
--  作者:cd_tdh
--  发布时间:2023/2/25 9:02:00
--  
那我理解错了,应该怎是直接设置图片尺寸,搞定了

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

--  作者:有点蓝
--  发布时间:2023/2/25 9:28:00
--  
无法设置。只能去改图片,高和宽改为一致
--  作者:cd_tdh
--  发布时间:2023/2/27 8:32:00
--  
可以设置的,这样就可以了。
lvw.Images.LargeSize = New Size(120, 75) \'定义大图标尺寸

--  作者:有点蓝
--  发布时间:2023/2/27 8:39:00
--  
是的,看漏了:http://www.foxtable.com/webhelp/topics/2769.htm