Разное - ListView в VB6

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Разное - ListView в VB6

Synthetyic_Man

Новый участник

Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Помогите пожалуйста с примером кода. Я начинающий в VB6 и у меня возникла трудность.
На форме ListView и кнопка. Нужно что бы при нажатии кнопки происходило поочередное выделение строчек в ListView, как будто бы ты щелкаешь мышью. Т.е. нажил один раз кнопку -выделилась верхняя строка и произошел клик, нажал еще раз кнопку -выделилась строка ниже и тоже по ней произошел клик и т.д. После того, как весь список будет пройден опять все повторялось по кругу. Спасибо!

Отправлено: 10:10, 03-05-2010

MERDOCK

Новый участник

Сообщения: 3
Благодарности: 1

Профиль | Отправить PM | Цитировать

Вот процедура, которая сделает, то что тебе надо:

Код:

Private Sub NextItemSelect()
        Dim Indx As Integer 'Индекс итема
        
        'Проверка наличия итемов в ListView
        If Me.ListView1.Items.Count = 0 Then Exit Sub

        'Если ни один из итемов не выбран то
        If Me.ListView1.SelectedItems.Count = 0 Then

            'выбираем индекс первого итема
            Indx = 0

        Else 'А если выделен какой-то итем то 
            'Если выбранный итем является последним то
            If Me.ListView1.SelectedItems(Me.ListView1.SelectedItems.Count - 1).Index >= Me.ListView1.Items.Count - 1 Then
                Indx = 0
            Else 'Иначе получаем [индекс последнего итема]+1
                Indx = Me.ListView1.SelectedItems(Me.ListView1.SelectedItems.Count - 1).Index + 1
            End If

        End If
        'Снимаем выделение со всех итемов
        Me.ListView1.SelectedItems.Clear()

        'Теперь просим ListView выделить нужный нам итем
        Me.ListView1.Items(Indx).Selected = True

        'Просим показать выбранный элемент, выполняя прокрутку
        Me.ListView1.Items(Indx).EnsureVisible()

        'Переводим фокус на ListView
        Me.ListView1.Select()
    End Sub

Последний раз редактировалось MERDOCK, 11-05-2010 в 06:42.

Отправлено: 05:52, 11-05-2010 | #2