1
Códigos - Aportes - Recursos / Re:FlexCell y Otros controles Buenos haber si alguien hace maravillas
« en: Abril 30, 2021, 11:19:47 pm »
I try to log in w/ this username, but I can't.
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Top visible Row is 10, Listview got ScrollbarYou have to use LVM_HITTEST (and similars), maybe with the TopItem and the PageCount
I use GetItemRect(m_hListview,0) to retrieve the first Row #0's rectangle, it returns (0, -303, 450, -270 ).
1. My question is how to use API to determine (0, -303, 450, -270 ) is Row #0?
2. I want to determine (0,-290,450,-298) is in which of Row (apparently, it is in ROW 0).
Public Function ItemHitTest( _
ByVal x As Single, _
ByVal y As Single _
) As Long
Dim uLVHI As LVHITTESTINFO
If (m_hListView) Then
With uLVHI.pt
.x = ScaleX(x, UserControl.ScaleMode, vbPixels)
.y = ScaleY(y, UserControl.ScaleMode, vbPixels)
End With
ItemHitTest = SendMessage(m_hListView, LVM_HITTEST, 0, uLVHI)
End If
End Function
SendMessage doesn't work because .Pt is always positive value. Private Function GetItemRect(hWnd As Long, ByVal Index As Long) As RECT
GetItemRect.X1 = LVIR_BOUNDS
Call SendMessage(hWnd, LVM_GETITEMRECT, Index, GetItemRect)
End FunctionDe la misma forma que antesCódigo: (vb) [Seleccionar]ucListView1.ItemFindText(Texto, Start, cPartial/cWholeWord, Warp)Start es a partir de que item
cPartial es para si buscar el item que incluya el texto, cWholeWord es que el texto del item sea el texto buscado
Warp es para "empezar otra vez" la lista (en caso de que start no sea -1 o 0)

http://coolthingoftheday.blogspot.com/2012/02/6-on-8-will-vb6-be-supported-on-windows.htmlI have installed Win8 on my PC. VB6 exe can directly run.