在运行时添加Listview控件

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

本人&#039；我有一个DVB，我&#039；我正在努力，我想使用Listview控件&nbsp；问题是：listview控件的数量取决于图形中特定对象的数量&nbsp；本人&#039；我尝试了控件。添加（“Forms.Listview.1”）但这只给了我一个&#039；无效的类字符串&#039；错误消息
有人接受吗&nbsp&nbsp；

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

也许控制阵列会有所帮助。我已经有一段时间没有玩过这些了
另一个选择是投入最多的钱；d需要，并根据需要使其可见/不可见。

男人不流泪 · 发表于 2008-2-13 17:14:52

您好，Matt，我在注册表（根分支）中找到了什么

copy

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