Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / List view / 2 сообщений из 2, страница 1 из 1
14.08.2009, 16:15
    #36145028
oldzas
oldzas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
List view
подниму старую тему, но я в vba нуб, поэтому поднимаю.

есть listview, надо в 1 столобике: если в ячейке написано "задача" выделить ее одним цветом, а если "задание" то другим.......

я нашел код

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) = "**" Then
ListView1.ListItems.Item(i).ForeColor = vbBlue
ListView1.ListItems.Item(i).Bold = True
End If
Next


что тут надо исправить ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 20:57
    #36145493
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
List view
oldzasподниму старую тему, но я в vba нуб, поэтому поднимаю.

есть listview, надо в 1 столобике: если в ячейке написано "задача" выделить ее одним цветом, а если "задание" то другим.......

я нашел код

что тут надо исправить ???

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
For i =  1  To ListView1.ListItems.Count
Select Case ListView1.ListItems(i).SubItems( 1 ) 
  Case "задача"
    ListView1.ListItems.Item(i).ForeColor = vbBlue
  Case "задание"
    ListView1.ListItems.Item(i).ForeColor = vbRed
End Select
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / List view / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]