老师,怎么指定列宽呢?
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() '恢复绘制