社区 › VB › 在运行时添加Listview控件

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

在运行时添加Listview控件

**** Hidden Message *****

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

嗨，马特
我在注册表中发现了什么（在ROOT分支中）
Private Sub Command1_Click()
Dim lvw As ListView
Dim ctl As Control
Set ctl = Controls.Add("MSComctlLib.ListViewCtrl.2", "ListView1")
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
Oleg

Fatty 发表于 2008-2-13 17:14:52

就是这样！！
再次感谢您的帮助。我真的很感激。

Fatty 发表于 2008-2-14 09:02:37

很高兴帮助
快乐计算

查看完整版本: 在运行时添加Listview控件