🚀 go-pugleaf

janusz wrote:

> Witam
> Mam prosbe jak sterowac ListView aby przy dodawaniu nowych
> pozycji w sytuacji kiedy lista pozycji wychodzi poza wysokosc
> kontrolki byl widoczny ostatni wiersz listview
> polecenia
> ListView1.ListItems(ListView1.ListItems.Count).Selected = True
> ListView1.SelectedItem =
> ListView1.ListItems(ListView1.ListItems.Count) nie zalatwiaja sprawy

Czysta forma, ListView, Button.
Kod: (musisz sobie troche zmodyfikować, ale wiadomo o co chodzi.)
<CODE>
Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SCROLL As Long = LVM_FIRST + 20
Private Const LVM_GETITEMPOSITION  As Long = LVM_FIRST + 16

Private Declare Function SendMessage Lib "user32.dll" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As
Long, ByRef lParam As Any) As Long

Private Sub Command1_Click()

With ListView1
    .SelectedItem = .ListItems.Add(, , .ListItems.Count + 1)
    ListView_ScrollToItem .hwnd, .ListItems.Count
End With

End Sub

Private Function ListView_GetItemPosition(ByVal hWndLV As Long, ByVal
intIndex As Long) As POINTAPI
Dim paPosition As POINTAPI

If SendMessage(hWndLV, LVM_GETITEMPOSITION, intIndex, paPosition) Then
ListView_GetItemPosition = paPosition
    
End Function

Private Sub ListView_ScrollToItem(ByVal hWndLV As Long, ByVal intIndex
As Long)
Dim paPosition As POINTAPI

paPosition = ListView_GetItemPosition(hWndLV, intIndex)

SendMessage hWndLV, LVM_SCROLL, paPosition.x, paPosition.y

End Sub

Private Sub Form_Load()
With ListView1
    .View = lvwReport
    .LabelEdit = lvwManual
    .HideSelection = False
    .FullRowSelect = True
    .ColumnHeaders.Add
End With
End Sub

</CODE>

pozdrawiaMM
-- 
Marcin M. Miga
"More matter with less art"