Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Связь двух ListView Добавлено: 18.04.13 21:29  

Автор вопроса:  Оллл
Народ, помогите плз решить проблему - VB 6, на форме четыре ListView, передвигаясь по строкам первого из них, нужно выделять соответствующие строки на трех других (кол-во строк одинаковое во всех четырех). Т.е. вопрос в том, как программно выделить нужную строку в ListView. Программа очень старая и сложная, переделывать на NET бесперспективно

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Cramper



Вопросов: 15
Ответов: 93
  Профиль | | #1 Добавлено: 19.04.13 10:38
Может быть так, на примере 2-х Listview:

  1. Dim i, io As Integer
  2. Private Sub Form_Load()
  3. 'Фамилия
  4. ListView1.ListItems.Add 1, , "Иванов"
  5. ListView1.ListItems.Add 2, , "Петров"
  6. ListView1.ListItems.Add 3, , "Сидоров"
  7. ListView1.ListItems.Add 4, , "Васильев"
  8. 'Год рождения
  9. ListView2.ListItems.Add 1, , "1958"
  10. ListView2.ListItems.Add 2, , "1972"
  11. ListView2.ListItems.Add 3, , "1967"
  12. ListView2.ListItems.Add 4, , "1961"
  13. io = 0
  14. End Sub
  15.  
  16. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  17. i = ListView1.SelectedItem.Index
  18. 'Отмена прошлого выделения
  19. If io <> 0 Then
  20. ListView2.ListItems(io).Selected = True
  21. ListView2.ListItems(io).ForeColor = vbBlack
  22. ListView2.ListItems(io).Bold = False
  23. End If
  24. ListView2.SetFocus
  25. 'Выделение красным цветом и жирным шрифтом
  26. ListView2.ListItems(i).Selected = True
  27. ListView2.ListItems(i).ForeColor = vbRed
  28. ListView2.ListItems(i).Bold = True
  29. io = i
  30. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Оллл



Вопросов: 41
Ответов: 43
  Профиль | | #2 Добавлено: 19.04.13 13:37
Спасибо, это уже близко к тому, что нужно. Во втором контроле выделяется красным цветом только значение первого столбца. А возможно сделать, чтобы выделялись значения всех столбцов (у меня их шесть)?

Ответить

Номер ответа: 3
Автор ответа:
 Оллл



Вопросов: 41
Ответов: 43
  Профиль | | #3 Добавлено: 19.04.13 13:47
Сам нашел - через .ListSubItems(1).ForeColor
Спасибо за помощь!

Ответить

Номер ответа: 4
Автор ответа:
 Cramper



Вопросов: 15
Ответов: 93
  Профиль | | #4 Добавлено: 19.04.13 14:37
Удачи!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам