15 Январь 2011

Как осуществить прокрутку элемента управления ListView до заданного элемента

ListBox |  Таги: , ,

Как осуществить прокрутку элемента управления ListView до заданного элемента

Private Sub Form_Load()
  Dim x As Integer
  With ListView1
    For x = 1 To 20
      .ListItems.Add Key:="Элемент" & x, Text:="Элемент" & x
    Next x
    .SelectedItem = .ListItems("Элемент11")
    .SelectedItem.EnsureVisible
  End With
End Sub

Запустите проект на выполнение. VB откроет форму, выведет окно списка и выделит в нем одиннадцатый элемент.



Оставить комментарий

Я не робот.