Visual Basic Foro

I can take a look at it, but I might not be adding much more to the control.  Can you modify the attached project to Fill the Data with an example of when MultiSort would be used?  (I am guessing when you have lots of the same identical values  in Column 1 and lots of identical values in Column 2)?

thanks,
chip

1. Why Column Checkbox disappear after set MultiSelect =True or False on my Win7?
2. After disappear, I have to use command again to bring back Checkbox on header.
3. If we don't handle any of the notifications (HDN_ITEMCHECK and HDN_ITEMSTATEICONCLICK[/color), the default behavior is to select and unselect the items in the list view when clicking the checkbox. This isn't what I want. I want to Check on all items and keep items Selected state and Focused state.

Edited:
   Subclass HDN_ITEMSTATEICONCLICK to prevent the default behavior.

1 & 2: same for me. Not sure why. is there a window msg that we need to subclass and "eat" ?
3: Here is how I have implemented both the default windows behavior (Check All / Uncheck All) as seen in Windows Explorer and provided the option to only Toggle the Selected items:

note: this is not perfect example, but atleast allows for multiple options to be used from within the ColumnCheck raised event.


Events:
Public Event ColumnCheck(Column As Long, Value As Boolean, Cancel As Boolean)
Subclass:
                                    Case HDN_ITEMSTATEICONCLICK
                                       
                                        Dim bCancel As Boolean
                                       
                                        Call CopyMemory(uNMHE, ByVal lParam, Len(uNMHE))
                                       
                                        Me.ColumnCheckValue(uNMHE.iItem) = Not Me.ColumnCheckValue(uNMHE.iItem)
                                       
                                        RaiseEvent ColumnCheck(uNMHE.iItem, Me.ColumnCheckValue(uNMHE.iItem), bCancel)
                                       
                                        If bCancel = True Then
                                            bHandled = True
                                            lReturn = 1
                                        End If

Form:

Private Sub ucListView1_ColumnCheck(Column As Long, Value As Boolean, Cancel As Boolean)
    On Error Resume Next
   
    Dim x As Long
   
    With ucListView1
       
        If .Count = 0 Then Exit Sub
       
        .FreezePaint True
       
        If (.SelectedCount < .Count) And (.SelectedCount > 0) Then
           
            Cancel = True
           
            For x = 0 To .Count - 1
           
                If .ItemSelected(x) = True Then
           
                    .ItemChecked(x) = Value
               
                End If
               
            Next
       
        Else
   
            For x = 0 To .Count - 1
           
                .ItemChecked(x) = Value
               
            Next
   
        End If
       
        .FreezePaint False
       
    End With
   
End Sub

sorry, you are right. i forgot to update all of the files in the .rar.

EDIT:  new file uploaded:

http://www.convivea.com/download/ucListView2.5.chip.2011.6.09.rar

From what I tested on XP/SP3 and VB6/SP6, GroupHeaderText can't be changed on runtime. But Vista/Win7 is OK. (Test String: ChrW$(&H6B22) & ChrW$(&H8FCE))
The Code your provided might be OK though there's a mistake:

 .cchHeader = Len(.pszHeader)  'Always is 4 because .pszHeader is defined in Long,Should be Len(newText)

Hi Jen, thanks for the comments. I looked at it further and actually cchHeader is ignored when using LVM_SETGROUPINFO, so that line should be commented out/removed:  http://msdn.microsoft.com/en-us/library/bb774769(v=vs.85).aspx


UNICODE:
Using my code, the Chinese characters ChrW$(&H6B22) & ChrW$(&H8FCE) do work on Windows XP SP3, both the IDE and compiled (vb6.exe needs manifest added). However, you will not see the characters unless you have East Asia Character support installed: http://www.cyberactivex.com/UnicodeTutorialVb.htm#Wheres_the_Beef_(Unicode)


GROUPHEADERTEXT:

Cita de: Jen en Junio 07, 2011, 09:11:22 pm

From what I tested on XP/SP3 and VB6/SP6, GroupHeaderText can't be changed on runtime. But Vista/Win7 is OK. (Test String: ChrW$(&H6B22) & ChrW$(&H8FCE))

I dont know why, but, sometimes the group header text can be changed, other times no. I still don't know why Im testing that too on WinXP (If works in winxp it should work in vista/7 too)

raul338, I have experienced this problem too, no matter what code is used (even tried the example at vbAccelerator). Here is what I have found for Windows XP SP3:

1. Get the GroupHeaderText works (unicode/ansi).
2. Set the GroupHeaderText works (unicode/ansi).
3. Get the GroupHeaderText AFTER you Set the GroupHeaderText fails, everytime. No matter if you Set the GroupHeaderText with Unicode, or the method used to change the GroupHeaderText. It seems the Get GroupHeaderText will return "-1" everytime after you have Set the GroupHeaderText.

Possible work around for Windows XP (unless you guys have found a way to do that):

On Set GroupHeader Text:
    a.  Get the GroupHeader complete info
    b.  Remove the Group
    c.   Add the Group back with the new GroupHeader Text

Not sure how "fast" that will be or if there are any side effects. I have not had a chance to test that theory yet.


SORTING:
Looks like the ListView sorting should be changed from  "If var > var then" to use Unicode aware CompareStringW Lib "kernel32.dll":  #52 @ http://www.cyberactivex.com/UnicodeTutorialVb.htm#Sorting


Thanks !

hi guys.. I fixed the  Public Property Get GroupHeaderText(ByVal GroupID As Long) As String

(previously crashed on Windows XP)
Declares
'ADDED BY CHIP!

Private Declare Function lstrcpyA Lib "Kernel32.dll" ( _
    ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function lstrlenA Lib "Kernel32.dll" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyW Lib "Kernel32.dll" ( _
    ByVal lpString1 As Long, ByVal lpString2 As Long) As Long
Private Declare Function lstrlenW Lib "Kernel32.dll" (ByVal lpString As Long) As Long

Private Type LVGROUP_lp
    cbSize                  As Long
    mask                    As Long
    pszHeader               As Long
    cchHeader               As Long
   
    pszFooter               As Long
    cchFooter               As Long
   
    iGroupId                As Long
   
    stateMask               As Long
    State                   As Long
    uAlign                  As Long
    ' IF >= WinVista
    pszSubtitle            As Long
    cchSubtitle            As Long
    pszTask                As Long
    cchTask                As Long
    pszDescriptionTop      As Long
    cchDescriptionTop      As Long
    pszDescriptionBottom   As Long
    cchDescriptionBottom   As Long
    iTitleImage            As Long
    iExtendedImage         As Long
    iFirstItem             As Long     ' Read only
    cItems                 As Long     ' Read only
    pszSubsetTitle         As Long   ' NULL if group is not subset
    cchSubsetTitle         As Long
End Type

Public Property Get GroupHeaderText(ByVal GroupID As Long) As String
    'EDITED BY CHIP! - FIXED GET TEXT POINTERS - ADDED LVGROUP_LP DATA TYPE
   
    If m_hListView Then
               
                Dim tLVG    As LVGROUP_lp
                Dim sBuffer As String
       
                sBuffer = Space$(260)
               
                With tLVG
                    .cbSize = Len(tLVG)
                    .mask = LVGF_HEADER
                    .cchHeader = 260
                    .pszHeader = StrPtr(sBuffer)
                End With
               
                If SendMessage(m_hListView, LVM_GETGROUPINFO, GroupID, tLVG) <> -1 Then GroupHeaderText = CopyString(ByVal tLVG.pszHeader, True)
               
    End If

End Property

Private Function CopyString(ByVal inPtr As Long, _
    Optional ByVal inAsWide As Boolean = False) As String
    Dim BufLen As Long
    If (inAsWide) Then
        BufLen = lstrlenW(inPtr)
        If (BufLen > 0) Then
            CopyString = Space$(BufLen)
            Call lstrcpyW(ByVal StrPtr(CopyString), inPtr)
        End If
    Else
        BufLen = lstrlenA(inPtr)
        If (BufLen > 0) Then
            CopyString = Space$(BufLen)
            Call lstrcpyA(CopyString, inPtr)
        End If
    End If
End Function

Note, you do not need the CopyString function, but I have included it for reference. If you do not wish to include the function, then you can copy the Pointer to the String using:  lstrcpyW  (in cases that are not Unicode, then you would use lstrcpyA).

Here is a slightly optimized Let GroupHeaderText( that uses StrPtr() instead of the StrConv().

Public Property Let GroupHeaderText(ByVal GroupID As Long, newText As String)

    If m_hListView Then
        Dim group As LVGROUP_lp

        With group
            .cbSize = Len(group)
            .mask = LVGF_HEADER
            .pszHeader = StrPtr(newText)
            .cchHeader = Len(.pszHeader)
        End With
        Call SendMessage(m_hListView, LVM_SETGROUPINFO, GroupID, group)
       
    End If
   
End Property



Finally, I will have an updated version of my FilterItems() that includes support for filtering WHILE they groups are displayed (very cool), both Windows Vista/7 & Windows XP.

Thanks guys!

Sorting of Columns when in Group Mode on Windows XP does not work.


EDIT:   this does not work on Windows XP  Service Pack 2, but it does work for Service Pack 3.

WinXP only shows Group without Substitle,Footer and collapse button. That means you can't collapse the groups. In Vista/Win7,the looking is better than ever.

Thanks Jen. So if I only want to use the groups to filter/hide list items as raul338 has suggested, "set 1 to the "visible" items and -1 to "not visible" items", would that require collapsing?  I wouldnt be home for a couple more hours to try this out.