VB ListView 添加多选控件代码

Private Sub Form_Load()

    Attach Me.hWnd

    ListView1.ColumnHeaders.Clear ' 清空已有的列标题

    ListView1.View = lvwReport              '设置列表显示方式

    ListView1.GridLines = True              '显示网络线

    ListView1.LabelEdit = lvwManual         '禁止标签编辑

    ListView1.FullRowSelect = True          '选择整行

    ListView1.AllowColumnReorder = True     '对行进行程序排列，用鼠标进行排列

    ListView1.ColumnHeaders.Add , , "", 350

    ListView1.ColumnHeaders.Add , , "id", 550

    ListView1.ColumnHeaders.Add , , "域名", 2000

    ListView1.ColumnHeaders.Add , , "年份", 700

    ListView1.ColumnHeaders.Add , , "统一度", 800

    ListView1.ColumnHeaders.Add , , "历史标题", 7000

End Sub

Sub xierulist(ByVal xyuming As String, ByVal nianfen As String, ByVal xxiangguan As String, ByVal xlishi As String)

    Dim listX As Integer

    listX = ListView1.ListItems.Count + 1 ' 获取下一个 ID 值

    Dim exx As ListItem

    Set exx = ListView1.ListItems.Add(, , "") ' 添加空白列作为多选框列

    exx.SubItems(1) = CStr(listX) ' 设置 ID 列的值

    exx.SubItems(2) = xyuming

    exx.SubItems(3) = nianfen

    exx.SubItems(4) = xxiangguan

    exx.SubItems(5) = xlishi

    Set exx = Nothing

End Sub

调用方法 ：
'Call xierulist("111.com", "3.44", "33", "44")

调用以上CALL 就会在  表格里写入新数据  带选择框的