VB之ListView控件使用示例代码

VB之ListView控件使用示例代码

Private Sub Form_Load()  
    'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。      
    ListView1.ListItems.Clear               '清空列表  
    ListView1.ColumnHeaders.Clear           '清空列表头  
    ListView1.View = lvwReport              '设置列表显示方式  
    ListView1.GridLines = True              '显示网络线  
    ListView1.LabelEdit = lvwManual         '禁止标签编辑  
    ListView1.FullRowSelect = True          '选择整行  
  
    ListView1.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名  
    ListView1.ColumnHeaders.Add , , "本地 IP", 1500  
    ListView1.ColumnHeaders.Add , , "本地端口", 1200  
    ListView1.ColumnHeaders.Add , , "协议", 550  
    ListView1.ColumnHeaders.Add , , "远程 IP", 1500  
    ListView1.ColumnHeaders.Add , , "远程端口", 900  
    ListView1.ColumnHeaders.Add , , "当前状态", 900  
    ListView1.ColumnHeaders.Add , , "连接时间", 900  
    '-------------------------------------------------------  
    Dim X  
    X = ListView1.ListItems.Count + 1  
    ListView1.ListItems.Add , , X  
    ListView1.ListItems(X).SubItems(1) = "00:00:00"  
    ListView1.ListItems(X).SubItems(2) = "2008-01-01"  
    ListView1.ListItems(X).SubItems(3) = "(无)"  
    '-------------------------------------------------------  
    ListView1.ListItems.Clear               '清空列表  
    ListView1.ListItems.Add , , "1"  
    'ListView1.ListItems.Add , , "1", , 1   '添加图标 后面那个1是ImageList1控件中的图标索引号  
    ListView1.ListItems(1).SubItems(1) = "00:00:00"  
    ListView1.ListItems(1).SubItems(2) = "2008-01-01"  
    ListView1.ListItems(1).SubItems(3) = "(无)"  
  
    ListView1.ListItems.Add , , "2"  
    ListView1.ListItems(2).SubItems(1) = "00:00:01"  
    ListView1.ListItems(2).SubItems(2) = "2008-01-01"  
    ListView1.ListItems(2).SubItems(3) = "(无)"  
    '-------------------------------------------------------  
    '下列的属性也可以 单击控件右键->属性 进行设置。  
    ListView1.View = lvwReport              '设置显示方式为列表  
    ListView1.AllowColumnReorder = True     '对行进行程序排列，用鼠标进行排列  
    ListView1.Arrange = lvwAutoLeft         '图标横排列  
    ListView1.Arrange = lvwAutoTop          '图标竖排列  
    ListView1.FlatScrollBar = False         '显示滚动条  
    ListView1.FlatScrollBar = True          '隐藏滚动条  
    ListView1.FullRowSelect = True          '选择整行  
    ListView1.LabelEdit = lvwManual         '禁止标签编辑  
    ListView1.GridLines = True              '显示网络线  
    ListView1.LabelWrap = True              '图标可以换行  
    ListView1.MultiSelect = True            '可以选择多个项目  
    ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)  
    ListView1.Checkboxes = True             '显示复选框  
    'ListView1.DropHighlight = ListView1.ListItems.Item(2)   '显示系统颜色  
  
End Sub