Question

哪位大神VB厉害，我要一个类似实现Excel中ListView功能的控件！

哪位大神VB厉害，我要一个类似实现Excel中ListView功能的控件，可以支持把数组导入到控件中，也可以把控件中的数组导出到Excel中，哪位大神有这样的实例，麻烦帮一下忙！谢谢！！！

Answer 1

这个用listbox列表框控件也可以实现啊。
比如
listbox1.columncount = ubound(arr)
listbox1.list = arr

追问

不是Excel中而是VB，导入数组是二维的也就是多行多列。您有这样的实例吗？

追答

http://zhidao.baidu.com/question/5690596.html

VB里面也有listview控件啊，用法基本都一样的！

追问

百度啊百度没有满意的答案我应该怎么处理这个提问！
我选择一个我不想选择的答案作为满意答案不是误人子弟吗？

追答

我滴乖乖，给你回答了之后你几万年就消失了，也没出来现个行。如果我给你的链接你觉得不合适，那么我给你贴图。我是为了图个省事儿，但如果你觉得不满意，你可以不选满意答案的。再说你随时密我都可以的啊，私信，QQ这么多联系方式。

按照我标识的顺序，第一步打开“工程”-“部件”，第二步见下图：

第二步将Microsoft windows Common Controls 6.0这里打钩，然后点击确定。

这个时候，你会看到第三步的位置多出来一些控件，你将鼠标放在控件上面，就会显示控件的名字，你选中我给你标出来的listview控件，然后第四步，在窗体上画出来即可。

Private Sub Form_Load()
    Dim arr
    arr = Array("姓名", "学号", "年龄", "分数")
    
    ListView1.View = lvwReport   '这个是设定listview1的现实方式
    ListView1.GridLines = True   '这个是设定有没有网格线
    Dim i As Integer
    For i = 0 To UBound(arr)
        ListView1.ColumnHeaders.Add , , arr(i)  '这个是添加标题，这里的标题以数组的元素添加
    Next
    
    brr = Array(Array("张三", "10010", "20", "100"), Array("王五", "20010", "28", "99"), Array("张三", "30010", "30", "60"))
    For i = 0 To UBound(brr)
        ListView1.ListItems.Add , , brr(i)(0)    '这个是添加第一个项目--姓名
        For m = 1 To UBound(brr(i))
            ListView1.ListItems(i + 1).SubItems(m) = brr(i)(m)   '这个是给添加的项目添加其他项的内容！
    Next m, i
End Sub

以下是最终显示的效果图：