vb listview 怎样多列显示并写数据
怎样把一个ListView设置成三列并分别读取三个文本文档,把第一个文本文档按行(第一行写入第一列第一个,第二行写入第一列第二个……)写入第一列中,第二个文本文档写入第二...
怎样把一个ListView设置成三列并分别读取三个文本文档,把第一个文本文档按行(第一行写入第一列第一个,第二行写入第一列第二个……)写入第一列中,第二个文本文档写入第二列中,第三个文本文档写入第三列中。。。求源码
展开
展开全部
'入口参数;ListView1 是ListView控件对象.
'入口参数;HeadArray() 是个二维变体数组 0为文本激消,1为宽度值
'入口参数;IsCheckBoxes 是否要显示复选框
'功能;ListView 控件初始化为报表谨孝格式 可通用初始化ListView控件表头
Private Function ListViewInitialize(ByRef ListView1 As ListView, ByRef HeadArray() As Variant, ByVal IsCheckBoxes As Boolean)
On Error GoTo ONERROR
Dim itmX As ListItem
Dim clmX As ColumnHeader
Dim i As Long
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.BorderStyle = ccFixedSingle
Select Case IsCheckBoxes
Case Is = True
ListView1.CheckBoxes = True '是否显示复选框
End Select
For i = LBound(HeadArray) To UBound(HeadArray)
Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1))
Next
Set itmX = Nothing
Set clmX = Nothing
Erase HeadArray
Exit Function
ONERROR:
If Err.Number <> 0 Then
Select Case Err.Number
Case Else
MsgBox "错误代码:" & Err.Number & " 错误描述:" & Err.Description, vbExclamation, "明晌知初始化"
End Select
End If
End Function
'入口参数;HeadArray() 是个二维变体数组 0为文本激消,1为宽度值
'入口参数;IsCheckBoxes 是否要显示复选框
'功能;ListView 控件初始化为报表谨孝格式 可通用初始化ListView控件表头
Private Function ListViewInitialize(ByRef ListView1 As ListView, ByRef HeadArray() As Variant, ByVal IsCheckBoxes As Boolean)
On Error GoTo ONERROR
Dim itmX As ListItem
Dim clmX As ColumnHeader
Dim i As Long
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.BorderStyle = ccFixedSingle
Select Case IsCheckBoxes
Case Is = True
ListView1.CheckBoxes = True '是否显示复选框
End Select
For i = LBound(HeadArray) To UBound(HeadArray)
Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1))
Next
Set itmX = Nothing
Set clmX = Nothing
Erase HeadArray
Exit Function
ONERROR:
If Err.Number <> 0 Then
Select Case Err.Number
Case Else
MsgBox "错误代码:" & Err.Number & " 错误描述:" & Err.Description, vbExclamation, "明晌知初始化"
End Select
End If
End Function
追问
。。。貌似不行
追答
传递数据进ListView控件中.我看错了.......
给你一个提示.修改这部分的代码即可.采用二维数组呀. 完整的代码就不发了.
For i = LBound(HeadArray) To UBound(HeadArray)
Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1))
Next
http://wenku.baidu.com/view/2ce8e6084a7302768e993921.html?st=1 你可以下载它
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询