兰色幻想vba从入门到进阶80集完整版第59集的示例

李桥贵

哪位老师有兰色幻想vba从入门到进阶80集完整版第59集的示例，能分享一下吗

ykcbf1100

这个讲解是视频，以下是第59集的链接地址
https://www.bilibili.com/video/BV16Q4y1M71i?p=59

李桥贵

ykcbf1100 发表于 2023-9-6 09:39
这个讲解是视频，以下是第59集的链接地址
https://www.bilibili.com/video/BV16Q4y1M71i?p=59

谢谢您和原创作者赵老师。如果有个示例就更好。原创作者赵老师能发个示例就更好。

bet007

listview论坛里大把事例啊！

ykcbf1100

李桥贵 发表于 2023-9-7 09:53
谢谢您和原创作者赵老师。如果有个示例就更好。原创作者赵老师能发个示例就更好。

没找到实例，只有视频。
这种视频教学一般不提供另外的题材。

marchwen01

来了。。。。。。。

marchwen01

1. Option Explicit
   
2. 
   
3. '窗体加载
   
4. Private Sub UserForm_Initialize()
   
5.     Dim arr As Variant
   
6.     arr = Worksheets("Sheet1").Range("A1").CurrentRegion.Value
   
7.    
   
8.     '调用 listViewLoad 过程，传参 arr
   
9.     Call ListViewLoad(arr)
   
10. End Sub
    
11. 
    
12. 'ListView 加载 要一个数组参数
    
13. Private Sub ListViewLoad(ByVal arr)
    
14.     Dim i As Integer, iCount As Integer, subIndex As Integer, iSub As Integer
    
15.         
    
16.     With Me.ListView_UserList   '引用listView
    
17.         .FullRowSelect = True   '行全选
    
18.         .View = lvwReport       '报表视图
    
19.         .Gridlines = True       '显示网格线
    
20.         .Font.Size = 11         '设置字体大小
    
21.         .Font.Name = "微软雅黑" '设置字体
    
22.         
    
23.         With .ColumnHeaders     '引用列标题
    
24.             .Clear  '清除旧的列标题
    
25.             iCount = UBound(arr, 2) - LBound(arr, 2) + 1    '计算列数
    
26.             For i = LBound(arr, 2) To UBound(arr, 2)        '循环数组的第一行
    
27.                 '新增一个列标题
    
28.                 With .Add
    
29.                     .Width = Me.ListView_UserList.Width / iCount    '用 ListView 的宽度除以列数，取平均宽度。
    
30.                     .Text = arr(LBound(arr, 1), i)
    
31.                 End With
    
32.             Next i
    
33.         End With
    
34.         
    
35.         '循环数据
    
36.         For i = LBound(arr, 1) + 1 To UBound(arr, 1)
    
37.             '引用 ListItems.Add 添加数据行
    
38.             With .ListItems.Add
    
39.                 .Text = arr(i, 1)   '数据行的第一列
    
40.                
    
41.                 subIndex = 1
    
42.                 '数据行的第二列至最后一列
    
43.                 For iSub = LBound(arr, 2) + 1 To UBound(arr, 2)
    
44.                     .SubItems(subIndex) = arr(i, iSub)
    
45.                     subIndex = subIndex + 1
    
46.                 Next iSub
    
47.             End With
    
48.         Next i
    
49.     End With
    
50. End Sub

复制代码

李桥贵

marchwen01 发表于 2023-9-7 11:54

谢谢老师！

779846526

ykcbf1100 发表于 2023-9-6 09:39
这个讲解是视频，以下是第59集的链接地址
https://www.bilibili.com/video/BV16Q4y1M71i?p=59

感谢分享，再次谢谢