Private Sub Command1_Click()
ListView1.SetFocus
ListView1.ListItems(5).Selected = True
End Sub
Private Sub ListView1_Click()
With ListView1.SelectedItem
Text1 = .Text
Text2 = .SubItems(1)
Text3 = .SubItems(2)
Text4 = .SubItems(3)
Text5 = .SubItems(4)
End With
End Sub
Vadim_n писал(а):Private Sub Command1_Click()
ListView1.SetFocus
ListView1.ListItems(5).Selected = True
ListView1_Click
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 70