| |
Как автоматически скролить элемент ListBox вниз |
|
| |
Данный пример покажет, как можно автоматически уходить в конец списка элемента ListBox при добавлении новых элементов. Расположите на форме элемент ListBox и элемент CommandButton. Добавьте код. Как вы понимаете, за автоматический уход в конец списка отвечают строчки List1.Selected(List1.NewIndex) = True/False. Первая строчка выделяет последний (NewIndex) элемент списка, вторая - снимает выделение.
Dim a
Private Sub Command1_Click()
a = a + 1
List1.AddItem a
List1.Selected(List1.NewIndex) = True
List1.Selected(List1.NewIndex) = False
End Sub
|
|
| |
|
|
|
|