[已解决]如何让ListView1 or ListView2共用红色线框中部分标题

qqq123123

    With ListView1
    With ListView2
        .LabelEdit = lvwManual
        .HideSelection = False
        .Appearance = cc3D
        .MultiSelect = True
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
‘----------------------------------------------------------------------------------------
   ListView1.ColumnHeaders.Add , , "" & "序", 25’-----------------------------
   ListView1.ColumnHeaders.Add , , "货品编码", 60, lvwColumnCenter‘---
   ListView1.ColumnHeaders.Add , , "货品产地", 60 ', lvwColumnCenter’--
   ListView1.ColumnHeaders.Add , , "名称名称", 60, lvwColumnCenter‘---
   ListView1.ColumnHeaders.Add , , "货品规格", 80, lvwColumnCenter’---
‘---------------------------------------------------------------------------------------
   End With
End With
End Sub

如何让ListView1 和 ListView2 同时共用红色线框中部分标题

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-24 15:02

供参考！

1. Private Sub UserForm_Initialize()
   
2.     Dim Lv As ListView, i%
   
3.     For i = 1 To 2
   
4.         Set Lv = Controls("ListView" & i)
   
5.         With Lv
   
6.             .View = lvwReport
   
7.             With .ColumnHeaders
   
8.                 .Add , , "序", 25
   
9.                 .Add , , "货品编码", 60, lvwColumnCenter
   
10.                 .Add , , "货品产地", 60, lvwColumnCente
    
11.                 .Add , , "名称名称", 60, lvwColumnCenter
    
12.                 .Add , , "货品规格", 80, lvwColumnCenter
    
13.             End With
    
14.         End With
    
15.     Next
    
16. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

供参考！

1. Private Sub UserForm_Initialize()
   
2.     Dim Lv As ListView, i%
   
3.     For i = 1 To 2
   
4.         Set Lv = Controls("ListView" & i)
   
5.         With Lv
   
6.             .View = lvwReport
   
7.             With .ColumnHeaders
   
8.                 .Add , , "序", 25
   
9.                 .Add , , "货品编码", 60, lvwColumnCenter
   
10.                 .Add , , "货品产地", 60, lvwColumnCente
    
11.                 .Add , , "名称名称", 60, lvwColumnCenter
    
12.                 .Add , , "货品规格", 80, lvwColumnCenter
    
13.             End With
    
14.         End With
    
15.     Next
    
16. End Sub

复制代码

qlh1978

如果有更多的同类控件，还是用类比较方便