Курсор не на первой записи после сортировки в ListView

Программирование на Visual Basic for Applications
Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Курсор не на первой записи после сортировки в ListView

Сообщение Annushka » 16.03.2006 (Чт) 12:37

Добрый день.
Как заставить курсор стать на первую запись в отсортированном ListView?
Остается на первой записи до сортировки и может быть не виден :(

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 16.03.2006 (Чт) 13:35

Код: Выделить всё
Me.ListView1.ListItems(0).EnsureVisible = True

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.03.2006 (Чт) 13:37

Во всех CommonControls нумерация коллекций начинается с единицы.
Lasciate ogni speranza, voi ch'entrate.

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 14:52

Konst_One, получаю

Compile error:
Assignment to constant not permitted

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 16.03.2006 (Чт) 14:59

0 на 1 поменяйте, как alibek правильно заметил :wink:
что то с памятью моей стало...

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.03.2006 (Чт) 15:05

Konst_One
Ничё, что EnsureVisible - функция? :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 15:06

Пробовала, та же история. :(

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 15:14

Проверила значение EnsureVisible, выдает и так True

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 15:33

Сработало
Me.ListView1.SelectedItem.EnsureVisible

Но это не совсем то, что нужно.
А чтобы получить то, что хочется, добавила еще строчку

Me.ListView1.SelectedItem = Me.ListView1.ListItems(1)
Me.ListView1.SelectedItem.EnsureVisible

Всем спасибо

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 16.03.2006 (Чт) 15:41

GSerg
посыпаю голову пеплом, давно уже не смотрел на этот ListView :cry:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.03.2006 (Чт) 15:45

Annushka писал(а):Me.ListView1.SelectedItem = Me.ListView1.ListItems(1)
Me.ListView1.SelectedItem.EnsureVisible

А теперь попробуй Me.ListView1.ListItems(1).EnsureVisible
Lasciate ogni speranza, voi ch'entrate.

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 16:16

alibek, в том-то и дело, что в этом случае ничего не происходит.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.03.2006 (Чт) 16:22

Попробуй поставить сервис-пак. Потому что у меня нормально работало.
Lasciate ogni speranza, voi ch'entrate.

Annushka
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 17.05.2005 (Вт) 12:44
Откуда: Украина

Сообщение Annushka » 16.03.2006 (Чт) 16:35

Я-то ради интереса попробую, но тогда прийдется его ставить и у всех пользователей. :roll:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.03.2006 (Чт) 16:50

А почему бы нет?
Обновления на операционную систему ведь ставят.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 64

    TopList