Results 1 to 11 of 11

Thread: UoDown Arrows

  1. #1

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2010
    Posts
    1,462

    UoDown Arrows

    Can I show these in a ListView Control anyhow?

    ChrW(9660)
    ChrW(9650)

    If not, is there any other solution, maybe an image?

    Thanks for any info.

  2. #2
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    9,853

    Re: UoDown Arrows

    Probably the easiest way would be to use Krool's replacement.
    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.

  3. #3

    Thread Starter
    Frenzied Member
    Join Date
    Jun 2010
    Posts
    1,462

    Re: UoDown Arrows

    Thanks Elroy I spent some time reading the various threads and I think this is way too advanced for me.

  4. #4
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,046

    Re: UoDown Arrows

    Hi Alex,

    here a sample, I did not do any proper sorting when you click the Header,
    it just shows how you get an Icon in there

    image..
    Name:  lvwIcon.JPG
Views: 130
Size:  20.7 KB

    and sample....
    ListviewHeaderIcon.zip

    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.

  5. #5
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: UoDown Arrows

    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.


    Name:  sshot new.png
Views: 132
Size:  4.9 KB

    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.
    Attached Files Attached Files

  6. #6
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,046

    Re: UoDown Arrows

    Hi dile,

    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.

  7. #7
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: UoDown Arrows

    Got me. Works on three different PCs here.

  8. #8
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,046

    Re: UoDown Arrows

    Hi,
    I'll try tomorrow on a diffrent PC

    regards
    Chris

    p.s. Like the Fontwiz Class
    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.

  9. #9
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: UoDown Arrows

    Did you compile it and run the EXE?

  10. #10
    Fanatic Member
    Join Date
    Aug 2016
    Posts
    673

    Re: UoDown Arrows

    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

  11. #11
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,046

    Re: UoDown Arrows

    Hi dile,

    sorry my mistake, the sample works perfectly

    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width