在运行时添加Listview控件

Atook · 发表于 2008-2-13 16:07:01

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Fatty · 发表于 2008-2-13 16:55:05

嗨，马特
我在注册表中发现了什么（在ROOT分支中）

Private Sub Command1_Click()
Dim lvw As ListView
Dim ctl As Control
[b]Set ctl = Controls.Add("MSComctlLib.ListViewCtrl.2", "ListView1")[/b]
With ctl
.Left = 10
.Top = 40
.Height = 120
.Width = 200
.Visible = True
End With
Set lvw = ctl
With lvw
.ColumnHeaders.Add 1, "@", "Header1", 100
.ColumnHeaders.Add 2, "#", "Header2", 100
.GridLines = True
.View = lvwReport
End With
'ETC'
End Sub