15
Январь
2011
Как осуществить прокрутку элемента управления ListView до заданного элемента
Как осуществить прокрутку элемента управления 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 откроет форму, выведет окно списка и выделит в нем одиннадцатый элемент.