Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Илья (aka Luka) -

Visual Basic 5.0/6.0 - Элементы управления Windows

Все примеры / Интерфейс / Элементы управления Windows

ListView

Автор: Илья (aka Luka) | добавлено: 04.03.2010, 11:51 | просмотров: 4930 (1+) | комментариев: 0 | рейтинг: *x10
Простенький примерчик работы с элементом управления ListView. Все элементарно... добавляем элементы, удаляем элементы и т.д. Кому нужно - смотрите.

Код

'Объявляем константы
Dim LF As ListItem
Dim LFS As ListSubItem
Dim a As ListItem
Dim Collumn1 As String
Dim Collumn2 As String

Private Sub Form_Load()
 'Надо создать файлы из которых будет производится добавление в колонки
 'Создаём файл 1.txt на диске c:\ и записываем в него текст
 Open "C:\ListView.1" For Output As #1
 Print #1, "Проверка 1"
 Print #1, "Проверка 2"
 Print #1, "Проверка 3"
 Close

 'Создаём файл 2.txt на диске c:\ и записываем в него текст
 Open "C:\ListView.2" For Output As #1
 Print #1, "Test 1"
 Print #1, "Test 2"
 Print #1, "Test 3"
 Close

End Sub

Private Sub Form_Unload(Cancel As Integer)
'Надо удалить файлы которые были созданы
 Kill "c:\ListView.1"
 Kill "c:\ListView.2"
End Sub

Private Sub ListView1_DblClick()
 
 'При двойном нажатии пишем текст в окно N1 и N2
 N1.Text = ListView1.SelectedItem.Text
 N2.Text = ListView1.SelectedItem.SubItems(1)

End Sub

Private Sub Комманда1_Click()
 'Сейчас будем добавлять текст в ListView
 'Добавляем текст в "Меню" из файла ListView.1 и в "Подменю" текст из файла ListView.2
 Open "C:\ListView.1" For Input As 1 'Читаем текст из файла ListView.1
 Open "C:\ListView.2" For Input As 2 'Читаем текст из файла ListView.2
 Do Until EOF(1)
 Input #1, Collumn1
 Input #2, Collumn2
    
    'Заносим инормацию из Collumn1 в LF - это колонка "меню"
    Set LF = ListView1.ListItems.Add(, , Collumn1)
    
    'Заносим инормацию из Collumn2 в LFS - это колонка "подменю"
    Set LFS = LF.ListSubItems.Add(, , Collumn2)

 Loop
 Close

End Sub

Private Sub Комманда2_Click()

 'Очищаем ListView
 ListView1.ListItems.Clear

End Sub
Файлы ListViewLuka.zip (3,21 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Илья (aka Luka)

Нет информации об авторе...
Илья (aka Luka)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики