Comments on: ListView

By: Excel Addin

Excel Addin — Wed, 07 Dec 2011 14:46:47 +0000

And I absolutely concur with Markus above.

it took me ages to find a decent how-to guide on listboxes.

Im now going to head back and code in decent column headers and sorting into my own work.

Thanks for this, and Im kicking myself it took me this long to find it.

By: Markus

Markus — Thu, 06 Oct 2011 03:49:00 +0000

Hey,

awesome, the first proper use I find on this. I am desperately looking for ways to add images into cells the way it is described in MSDN for the Listviews in VB6, but I do not know how to assign an image index to a subitem?

I also really want to change the checkbox icons through StateImageList, however VBA will not let me change that property

Anyone know how I could proceed? If I cannot do this, the usability of my app will suffer

Thank you so much,
Markus

By: Piyusha

Piyusha — Wed, 29 Jul 2009 07:23:00 +0000

Hi all,
I am populating two drop downs by a macro .every time the macro runs it takes the text value from the first dropdown and sets its text to that value.But the first dropdown is populated with same multiple record each time the macro is launced . I cannot claer it as the second dropdown requires the first dropdown text. Please help how can I do it
Thanks,
Piyusha

By: Rifter1

Rifter1 — Thu, 27 Nov 2008 06:53:00 +0000

Wow you don't know how hard I looked to find this.
This is EXACTLY what I needed. Thanks!

By: Rob van Gelder

Rob van Gelder — Sat, 30 Dec 2006 23:29:00 +0000

JK:
My post got cut in half because I used some reserved html characters.
I was pointing out my own mistake - I was storing a String in a Long variable. shocking and how embarrassing.

Rob

By: JD

JD — Thu, 28 Dec 2006 21:48:00 +0000

For the sorting:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

ListView1.Sorted = True

If ListView1.SortKey = (ColumnHeader.Index - 1) Then _
GoTo changesort 'there's already a sort in place for this column

'No need to change sort order the first time the column is selected
ListView1.SortOrder = lvwAscending
ListView1.SortKey = (ColumnHeader.Index - 1) 'Sortkey = 0-based, Index = 1-based

Exit Sub

changesort:
'I prefer select statements as they take up slightly less CPU time
Select Case ListView1.SortOrder
Case lvwAscending
ListView1.SortOrder = lvwDescending
Case Else
ListView1.SortOrder = lvwAscending
End Select

End Sub

By: jkpieterse

jkpieterse — Thu, 28 Dec 2006 15:00:00 +0000

Hi again Rob,

Sorry, I obviously didn't look at your post.

By: jkpieterse

jkpieterse — Thu, 28 Dec 2006 14:58:00 +0000

Hi Rob,

??? Not sure I grasp what you are saying here?

By: Rob van Gelder

Rob van Gelder — Wed, 27 Dec 2006 20:32:00 +0000

oh my goodness... did I just do this?
Computers As Long
udtPeople(1).Computers = "3?

By: jkpieterse

jkpieterse — Wed, 27 Dec 2006 11:14:00 +0000

I sometimes use an array of a custom type to avoid the extra dimensions:

Type Person
Name as String
Age As Integer
End Type

In a sub:
Dim typPersons() as Person

Redim typPersons(1)
typPersons(0).Name="John"
typPerson(0).Age=50
typPersons(1).Name="Jim"
typPerson(1).Age=12