VBNet - Форум

Вопрос: ListView Добавлено: 30.10.09 11:45

Автор вопроса: Александр

Microsoft Visual Basic 2008
Как сменить у выбранной строки цвет текста (ForeColor)
Ситуация такая:
Dim str(4) As String
Dim file() As String
Dim itm As ListViewItem

'Сдесь объявление типа ListView1.Columns.Add и т.д.

Dim filter As String = "*.*"
file = Directory.GetFiles(Dir, filter)
Dim i As Integer
For i = 0 To file.GetUpperBound(0)

'Сам обработчик (пример)
If kv > "5217" Then stat1 = "Квиток Фед"
If kv > "5217" Then System.IO.File.Move(Dir & strDat2, Dir2 & strDat2)

            str(0) = strDat 'Дата
            str(1) = strDat2 'Файл
            str(2) = kv 'идентификатор
            str(3) = stat1 'принадлежность
            str(4) = stat2 'статус

            itm = New ListViewItem(str)
            ListView1.Items.Add(itm)
'If System.IO.File.Exists(Dir & strDat2) = True Then ListView1.Items(str(4)).ForeColor = Color.Red

        Next i
Короче, цикл прошвырнулся, сравнил, заполнил коллекцию ListView. А поменять цвет одной строки в ListView не получается
Ответить

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

Номер ответа: 1 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #1	Добавлено: 31.10.09 23:47
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim itm(1) As ListViewItem itm(0) = New ListViewItem() With {.Text = "Hello", .ForeColor = Color.Red} itm(1) = New ListViewItem(New String() {"Hello"}, 0, Color.Blue, Me.ListView1.BackColor, Me.ListView1.Font) Me.ListView1.Items.AddRange(itm) End Sub Ответить

Номер ответа: 2 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #2	Добавлено: 01.11.09 00:07
	itm = New ListViewItem(str) После этой строки, вставь itm = New ListViewItem(str(4)) Ответить

Номер ответа: 3 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #3	Добавлено: 01.11.09 00:09
	Предыдущий пост очепятка itm = New ListViewItem(str) После этой строки, вставь itm.Name = (str(4)) Ответить

Номер ответа: 4 Автор ответа: Александр Вопросов: 3 Ответов: 5	Профиль \| \| #4	Добавлено: 02.11.09 12:33
	Понял, спасибо. Ответить

Страница: 1 |