Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > LISTBOX

Автор: REVOLT 27.9.2004, 20:32

Есть List6 ну и список в нем. Сделал кнопку удаление...
Пусть ставлю фокус (щёлкаю мышью) на последнюю надпись и естественно нажимаю на кнопку удалить. Надпись удаляется... А фокус уходит в самый верх... Как сделать так, уважаемые профи. Чтобы фокус поднимался на 1 вверх, ну после удалённой на одну вверх

Автор: valex13 28.9.2004, 04:45

А как ты производишь удаление?
Если стандартно
ListBox1.RemoveItem (ListBox1.ListIndex)
То список ListBox сам спозиционирует на последнюю запись.

Автор: Akina 28.9.2004, 08:55

Код

Temp = ListBox1.ListIndex
ListBox1.RemoveItem (ListBox1.ListIndex)
If Temp=ListBox1.ListCount Then 
   ListBox1.ListIndex=Temp-1 
Else 
   ListBox1.ListIndex=Temp
End If

Автор: valex13 29.9.2004, 12:05

Оставь только

Код


ListBox1.RemoveItem (ListBox1.ListIndex)
Temp = ListBox1.ListIndex

Автор: REVOLT 29.9.2004, 12:23

Всем спасибо! Всё получилось....