Visual Basic Foro

Иногда возникает ошибка в Function pvSortingCallback.
Ошибка сортировки неправильный тип.
Возможно нужно исправить на это

A veces, hay un error en el pvSortingCallback Funcion.
Error de clasificacion del tipo equivocado.
Tal vez usted necesita para arreglarlo

Sometimes there is an error in the Function pvSortingCallback.
Error sorting the wrong type. Maybe you need to fix it
Case eSortTypeConstants.stNumeric: val1 = Val(val1): val2 = Val(val2)
'=================================================
И здесь возвращается строка из 256 символов
Y aqui se vuelve una cadena de 256 caracteres
And here it returns a string of 256 characters
Public Property Get ColumnText(ByVal Column As Long) As String
If m_hListView = 0 Or m_hHeader = 0 Then Exit Property
    Dim uLVC  As LVCOLUMN
    Dim a     As String
    With uLVC
        [b]a = String$(255, Chr(0))[/b]
        .pszText = StrPtr(a)
        .cchTextMax = Len(a)
        .mask = LVCF_TEXT
    End With
    Call SendMessage(m_hListView, LVM_GETCOLUMN, Column, uLVC)
   
    'Correccion исправление
    ColumnText = Left$(a, InStr(2, a, Chr(0), vbBinaryCompare) - 1) ' <<<<<<
   
End Property


LeandroA    - He corregido para classic style  del estilo

'Theme =========================================================================
Private Declare Function DrawThemeBackGround Lib "uxtheme.dll" Alias "DrawThemeBackground" (ByVal hTheme As Long, ByVal lhdc As Long, ByVal iPartId As Long, ByVal iStateId As Long, pRect As RECT2, pClipRect As Any) As Long
Private Declare Function OpenThemeData Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszClassList As Long) As Long
Private Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As Long) As Long
'Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
'Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long
'Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32.dll" (ByVal hdc As Long, ByRef lpRect As RECT2, ByVal hBrush As Long) As Long


Private mUseThemeReBar As Boolean



                Case WM_ERASEBKGND
                   
                    '-- Flat style bug [?]
                    'bHandled = True'<<<<
               
'===============================================================================
                   GetClientRect UserControl.hwnd, uRct
                   
                   hTheme = OpenThemeData(0&, StrPtr("ReBar")) '/\/\/\/\/\
                   If mUseThemeReBar And hTheme Then
                       
                        If (hTheme) Then
                   
                            Call DrawThemeBackGround(hTheme, wParam, 6, 0&, uRct, ByVal 0&)
                           
                            Call CloseThemeData(hTheme)
                        End If
                    Else
'                        hBrush = CreateSolidBrush(TranslateColor(UserControl.BackColor))
'
'                        If hBrush Then
'                             FillRect wParam, uRct, hBrush
'                             DeleteObject hBrush
'                        End If
                            bHandled = True '<<<<
                   End If
 '==========

many thanks you for your work

MZTools3VB6 + IDE addin TabPage = ok

Listview Drag-Drop MultiSelection
good example - http://winandfx.narod.ru/
Audica 0.6.0 source  http://winandfx.narod.ru/data/project_audica_0.6.0_src.zip
'-------------------------
ucListViewEx  = ok