Visual Basic Foro
General => General => Mensaje iniciado por: LeandroA en Septiembre 21, 2010, 01:56:43 am
-
Les pido disculpa, pero estamos teniendo problemas con los DSN del server, esperemos que se solucione pronto y definitivamente y podamos seguir Online.
Saludos
-
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.
-
Fuck :-\ ,
check this
http://rapidshare.com/files/420698144/ucListView_and_progress.zip
saludos.
-
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
-
yes, add that change in the ucListview
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
-
Perfect, thank you very much. Everything works fine now :D