OnLine o OffLine esa es la cuestion

[LeandroA]

Les pido disculpa, pero estamos teniendo problemas con los DSN del server, esperemos que se solucione pronto y definitivamente y podamos seguir Online.

Saludos

[Chris]

It seems some things got lost too.

I just had to register again, because my account was gone. Also, the topic I started yesterday about ucListview is gone.

[LeandroA]

Fuck , 

check this
http://rapidshare.com/files/420698144/ucListView_and_progress.zip

saludos.

[Chris]

Excellent, thank you very much 

Maybe it's just me, but it seems a few other things are not working now. For example, when clicking on a columnheader, the ucListView1_ColumnClick event does not fire. Setting HeaderFixedWidth to True does not lock the columns. Calling the .Sort function via a commandbutton doesn't do anything either.

The problem seems to be in zSubclass_Proc. It never reaches HDN_ITEMCLICK, so the ColumnClick event is never raised. I'll see if I can find a solution tomorrow, it's bedtime now.

Thanks again for your work, Leandro.

-Chris

[LeandroA]

yes,  add that change in the ucListview

Código: [Seleccionar]

Public Function ColumnAdd( _
                ByVal Column As Integer, _
                ByVal Text As String, _
                ByVal Width As Integer, _
                Optional ByVal Align As eColumnAlignConstants = [caLeft], _
                Optional ByVal Icon As Integer = -1 _
                ) As Boolean
   

    Dim LVC As LVCOLUMN_lp
   
    If (m_hListView) Then
   
        With LVC
            .mask = LVCF_FMT Or LVCF_TEXT Or LVCF_WIDTH Or LVCF_IMAGE * -(Icon > -1)
            .pszText = StrPtr(StrConv(Text, vbFromUnicode))  ' <------- as long
            .fmt = HDF_STRING Or Align * -(Column <> 0) Or HDF_IMAGE * -(Icon > -1) Or HDF_BITMAP_ON_RIGHT 'HDF_STRING Or Align Or LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
            .cx = Width
            .iImage = Icon
            .iOrder = 0
        End With
       
        ColumnAdd = SendMessage(m_hListView, LVM_INSERTCOLUMN, Me.ColumnCount, LVC) > -1
   
        If m_hHeader = 0 Then
            m_hHeader = pvHeaderhWnd()
            Call SendMessageLong(m_hHeader, HDM_SETIMAGELIST, 0, m_hILHeader)
        End If
   
    End If
   
End Function
remove the function ColumnAdd2, it not necessary

[Chris]

Perfect, thank you very much. Everything works fine now