ListView on demand

[Anonymous]

Hi all,

Hopefully someone can help me. I am trying to add in a listview box on demand - here is what I have


Dim NewControl As Control
Set NewControl = Me.Controls.Add ("MSComctllib.ListView.1", "ListView1", True)

I get an "Invalid Class String" error whenever it gets to this. As far as I can tell from looking at this and help files, I have everything correct.

Thanks in advance

Brent

[Anonymous]

Try this

Option Explicit
'require reference to Microsoft Windows Common Controls 6.0(SP6)
'location => C:\WINDOWS\System32\MSCOMCTL.OCX
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 = 205
.Visible = True
End With
Set lvw = ctl
With lvw
.ColumnHeaders.Add 1, "@", "Counter", 98
.ColumnHeaders.Add 2, "#", "Item", 100
.GridLines = True
.HoverSelection = True
.FullRowSelect = True
.View = lvwReport
End With
Dim i As Integer
Dim lvi As Variant
For i = 0 To 99
Set lvi = lvw.ListItems.Add(, , CStr(i + 1))
lvi.SubItems(1) = "Subitem " & CStr(i + 1)
Next
End Sub

~'J'~

[Anonymous]

Fatty,

You are a deadset Champ!!!! I have been on the net for 4 hours today trying to figure that one out!!

Cheers

Brent

[Anonymous]

Always glad to help
Cheers 🙂

~'J'~

[Anonymous]

wrote in message news:5847562@discussion.autodesk.com...
Try this

Set ctl = Controls.Add("MSComctlLib.ListViewCtrl.2", "ListView1")

cool
where'd you find the progid?
I just thought to look in Oleview and discovered you could see them there,
but previously I didn't have a listing of the correct name for each control.
mark

[Anonymous]

Hi Mark
I've found it in registry here:
HKEY_CLASSES_ROOT\MSComctlLib.ListViewCtrl\CurVer
there are lot of other controls

~'J'~

[Anonymous]

wrote in message news:5847940@discussion.autodesk.com...
Hi Mark
I've found it in registry here:
HKEY_CLASSES_ROOT\MSComctlLib.ListViewCtrl\CurVer
there are lot of other controls

~'J'~

Thanks,
fun stuff
mark
:-)