Sub 添加列表表头()
Dim FimgX As ListImage
Form1.ListView1.ColumnHeaders.Clear
'清除列标题
Form1.ListView1.ListItems.Clear
'清除行数据
Form1.ListView1.View = lvwReport
'视图模式为:报表视图
Form1.ListView1.FullRowSelect = True
'整行选择
Form1.ListView1.MultiSelect = True
'多行选择
Form1.ListView1.GridLines = True
'显示网格
Form1.ListView1.LabelEdit = lvwManual
'禁止编辑第一列
'
Form1.ListView1.ColumnHeaders.Add 1, , "id", 0
Form1.ListView1.ColumnHeaders.Add 1, , "应付卡号", 2000
Form1.ListView1.ColumnHeaders.Add 2, , "单位名称", 2000, lvwColumnCenter
Form1.ListView1.ColumnHeaders.Add 3, , "终端号", 1800, lvwColumnCenter
Set FimgX = Form1.ImageList1.ListImages.Add(, , LoadPicture(App.Path & "\1×22.bmp"))
Set FimgX = Form1.ImageList2.ListImages.Add(, , LoadPicture(App.Path & "\1×22.bmp"))
'若要将 ImageList 控件和 ListView 控件一起使用,必须将 Icons 和 SmallIcons 属性与特定的 ImageList 控件关联。
Form1.ListView1.Icons = Form1.ImageList1
Form1.ListView1.SmallIcons = Form1.ImageList2
End Sub
[此贴子已经被作者于2020-12-4 13:28编辑过]