Option Explicit
 
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
 
Dim ImageList As cImgList ' ImageList Для ListView1
 
Public Function Random(ROt As Long, RDo As Long) As Long
    Randomize
    Random = CLng(Int(Rnd(1) * (RDo - ROt + 1)) + ROt)
End Function
 
Private Function GetNewIdUnique() As Long
    Dim i As Long
    Dim id As Long
    Dim Alleged As Long
    Dim founded As Boolean
    
    If ListView1.ListCount > 0 Then
        ' 1. Обычно новый id это всегда ListView1.ListCount + 1, поэтому сначала нужно это проверить
        Alleged = ListView1.ListCount + 1
        founded = False
        
        For i = 0 To ListView1.ListCount - 1
            If Alleged = ListView1.GetItemIdUnique(i) Then founded = True
        Next
        
        If founded = False Then ' Если предполагаемого нового id нет во всём списке
            GetNewIdUnique = Alleged
            Exit Function
        Else
            ' Так вдруг случилось, что предполагаемый новый id уже был в списке
        End If
        
        ' 2. Найти первый свободный (не найденный) id
        For id = 1 To ListView1.ListCount + 1
            founded = False
            
            For i = 0 To ListView1.ListCount - 1
                If id = ListView1.GetItemIdUnique(i) Then founded = True
            Next
            
            If founded = False Then
                GetNewIdUnique = id
                Exit Function
            End If
        Next
    Else
        GetNewIdUnique = 1
    End If
End Function
 
Private Sub InsertListViewStrings(ByVal Column1 As String, ByVal Column2 As String, ByVal Column3 As String)
    Dim lItem As Long
    
    lItem = ListView1.ItemAdd(GetNewIdUnique, ListView1.ListCount, Column1, -1)
    
    If lItem <> -1 Then
        ListView1.SubItemText(lItem, 1) = Column2
        ListView1.SubItemText(lItem, 2) = Column3
    End If
End Sub
 
Private Sub InsertListViewStringsAndIcons(ByVal Column1 As String, ByVal Column2 As String, ByVal Column3 As String)
    Dim nIcon As Long
    Dim lItem As Long
    
    If ImageList Is Nothing Then
        Set ImageList = New cImgList
        Set ListView1.ImageList(LVSIL_SMALL) = ImageList
    End If
    
    nIcon = ImageList.AddIconFromFile(Column1)
    lItem = ListView1.ItemAdd(GetNewIdUnique, ListView1.ListCount, Column1, nIcon)
    
    If lItem <> -1 Then
        ListView1.SubItemText(lItem, 1) = Column2
        ListView1.SubItemText(lItem, 2) = Column3
    End If
End Sub
 
Private Sub Command1_Click()
    InsertListViewStrings "Дыня", "это ещё одна добавленная строка", "ОКНА!"
    ListView1.SetFocus
    Label1.Caption = "Всего строк: " & ListView1.ListCount
End Sub
 
Private Sub Command2_Click()
    ListView1.SubItemText(ListView1.ListIndex, 0) = "Column1 " & ChrW(&H88E7)
    ListView1.SubItemText(ListView1.ListIndex, 1) = "Column2 " & ChrW(&H88E7)
    ListView1.SubItemText(ListView1.ListIndex, 2) = "Column3 " & ChrW(&H88E7)
    ListView1.SetFocus
End Sub
 
Private Sub Command3_Click()
    InsertListViewStringsAndIcons "C:\Windows\Explorer.exe", "ляляля", "000"
    InsertListViewStringsAndIcons "C:\Windows\system32\calc.exe", "кальк", "111"
    InsertListViewStringsAndIcons "calc.exe", "кальк", "111"
    InsertListViewStringsAndIcons "c:\Проект1.exe", "Проект1", "222"
    InsertListViewStringsAndIcons "c:\Проект1 " & ChrW(&H88E7) & ".exe", "Проект1", "222"
    ListView1.SetFocus
    Label1.Caption = "Всего строк: " & ListView1.ListCount
End Sub
 
Private Sub Command4_Click()
    ListView1.Sort 0, stIndex, soDescending
    ListView1.SetFocus
End Sub
 
Private Sub Command5_Click()
    On Error Resume Next ' Очень редко, но иногда так бывает, что здесь может почему-то вылететь автоматическая ошибка
    
    ListView1.RemoveItem ListView1.ListIndex
    ListView1.SetFocus
    
    Me.Cls
    Print ListView1.ListIndex, ListView1.SubItemText(ListView1.ListIndex, 0), ListView1.SubItemText(ListView1.ListIndex, 1), ListView1.SubItemText(ListView1.ListIndex, 2)
    
    Label1.Caption = "Всего строк: " & ListView1.ListCount
End Sub
 
Private Sub Command6_Click()
    Dim lItem As Long
    
    lItem = ListView1.ItemAdd(GetNewIdUnique, 0, "Column1", -1)
    
    If lItem <> -1 Then
        ListView1.SubItemText(lItem, 1) = "Column2"
        ListView1.SubItemText(lItem, 2) = "Column3"
    End If
    
    ListView1.SetFocus
    Label1.Caption = "Всего строк: " & ListView1.ListCount
End Sub
 
Private Sub Command7_Click()
    Dim newRandomPosition As Long
    Dim lItem As Long
    
    If ListView1.ListCount > 0 Then
        newRandomPosition = Random(0, ListView1.ListCount - 1)
        lItem = ListView1.ItemAdd(GetNewIdUnique, newRandomPosition, "1", -1)
        
        If lItem <> -1 Then
            ListView1.SubItemText(lItem, 1) = "2"
            ListView1.SubItemText(lItem, 2) = "3"
        End If
    Else
        Beep
        Exit Sub
    End If
    
    ListView1.SetFocus
    Label1.Caption = "Всего строк: " & ListView1.ListCount
End Sub
 
Private Sub Command8_Click()
    ListView1.Clear
    Label1.Caption = "Всего строк: 0"
    Me.Cls
End Sub
 
Private Sub Form_Click()
    MessageBox hWnd, StrPtr(CStr(ListView1.SubItemText(ListView1.ListIndex, 0) & vbNewLine & ListView1.SubItemText(ListView1.ListIndex, 1) & vbNewLine & ListView1.SubItemText(ListView1.ListIndex, 2))), StrPtr(App.Title), ByVal 0&
End Sub
 
Private Sub Form_Load()
    ListView1.Initialize
    ListView1.View = LVS_REPORT
    ListView1.AllowColumnReorder = True
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    
    ListView1.ColumnAdd "Процесс", 160
    ListView1.ColumnAdd "Класс", 160
    ListView1.ColumnAdd "Окно " & ChrW$(1234), 160
    
    InsertListViewStrings "Первач " & ChrW$(1234), "первый класс", "первое окно"
    InsertListViewStrings "Вторим", "второй класс", "второе окно"
    InsertListViewStrings "Дерево", "третий класс", "ААА"
    InsertListViewStrings "Арбуз", "4", "4"
    InsertListViewStrings "Банан", "5", ChrW(&H88E7)
    
    Label1.Caption = "Всего строк: " & ListView1.ListCount
    ListView1.SelectFirstItem
End Sub
 
Private Sub Label1_Click()
    MsgBox ListView1.ColumnCount
End Sub
 
Private Sub ListView1_ColumnClick(ByVal IndexColumn As Long)
    ListView1.Sort IndexColumn, stText, soAscending
End Sub
 
Private Sub ListView1_ItemCheck(Index As Long)
    Cls
    Print "index: " & Index, "id: " & ListView1.GetItemIdUnique(Index), ListView1.SubItemText(Index, 0), ListView1.SubItemText(Index, 1), ListView1.SubItemText(Index, 2)
End Sub
 
Private Sub ListView1_ItemClick(Index As Long)
    Cls
    Print "index: " & Index, "id: " & ListView1.GetItemIdUnique(Index), ListView1.SubItemText(Index, 0), ListView1.SubItemText(Index, 1), ListView1.SubItemText(Index, 2)
End Sub