Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
You can subclass a CC6 ListView to get the normal "sort arrow" indicators Windows provides, hot tracking, drag-rearrange, etc.
Note that "subclassing" does not exclusively refer to hooking the WNDPROC as some cargo cult coders here would have you believe. You can add many features through subclassing without ever doing that, as in this example.
Not to get too far off track here, but even when you define a Form (e.g. Form1) you are creating a subclass of the superclass Form.
The bonus here is that by doing this your programs don't have to force some "Windows 3.1 look" ListView appearance. Your programs will track the version of Windows they are running on automatically.
I tried you example, but I cant see any arrow when Clicking the Header ?
regards
Chris
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim c As ColumnHeader
ListView1.ColumnHeaderIcons = ImageList1
For Each c In ListView1.ColumnHeaders
If c = ColumnHeader Then
c.Icon = 1
Else
c.Icon = 0'
End If
Next
'ListView1.ColumnHeaderIcons = Nothing
End Sub
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.