Jayanta Modak Ответов: 1

Как изменить цвет ячейки(задний или передний цвет) элемента listview в соответствии со значением элемента

Как изменить цвет ячейки(задний или передний цвет) элемента listview в соответствии со значением элемента с условием if.

Я делаю это но это не работа и не показывает никакой ошибки
Пожалуйста, помогите мне......

Что я уже пробовал:

Private Sub btnaddcat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddcat.Click
        For k = 0 To ListView1.Items.Count - 1
            If ListView1.Items(k).SubItems(6).Text > 10000 Then
                ListView1.Items(k).SubItems(6).ForeColor = System.Drawing.Color.Red
            End If
        Next k
    End Sub

ZurdoDev

Отладьте свой код и посмотрите, что происходит.

Jayanta Modak

Сэр я отлаживаю но не показываю никакой ошибки массажируйте его отлаживайте от 1 до последних данных

ZurdoDev

Отладка означает пошаговое выполнение кода строка за строкой и проверку значений элементов управления и переменных.

Например, выполняет ли код когда-либо строку кода, которая изменяет цвет? Вам нужно отладить и убедиться. Вполне возможно, что проблема связана с вашим утверждением if, тем более что вы пытаетесь сравнить текст с числами.

phil.o 

If ListView1.Items(k).SubItems(6).Text > 10000 Then

Я даже удивлен, что это компилируется, так как нет оператора сравнения "больше, чем" между строкой и целочисленным значением. Время для изучения различных типов и их правильного использования :)

1 Ответов

Рейтинг:
1

phil.o

Вы не можете сравнить строку и целое значение так, как вы пытались.
Одним из возможных решений может быть разбор строкового значения на целое число перед сравнением:

Dim value As Integer
If Integer.TryParse(ListView1.Items(k).SubItems(6).Text, value) Then
   If value > 10000 Then
      '' ...
   End If
End If

Jayanta Modak

Теперь мой полный код таков
Private Sub btnaddcat_Click(ByVal sender As System.Объект, бывал е как система.EventArgs) обрабатывает btnaddcat.Щелчок
Для k = 0 в ListView1.Предметы.Количество - 1
Если Мыши Listview1.Предметы(к).Подпункты(6).Текст > 10000 затем
'Мыши listview1.Предметы(к).Подпункты(6).ForeColor = Система.Рисование.Цвет.Красный
-Конец, Если
Тусклое значение в виде целого числа
Если Целое Число.Метод Tryparse(Мыши Listview1.Предметы(к).Подпункты(6).текст, значение) Затем
Если значение > 10000, то
Мыши listview1.Предметы(к).Подпункты(6).ForeColor = Система.Рисование.Цвет.Красный
Конец, Если
Конец, Если
Следующий к
Конец Подводной Лодки
Он не работает и не отлаживает полный код, после этой строки
- Если Целое Число.Метод Tryparse(Мыши Listview1.Предметы(к).Подпункты(6).текст, значение) Затем" идите в

Конец, Если
Следующий к
не отлаживайте и не читайте средние строки.
Пожалуйста помогите мне сэр
Сэр сверьтесь с моим кодом он работает нормально но не меняет цвет ячейки
мой код таков ---
Для k = 0 в ListView1.Предметы.Количество - 1
Если Мыши Listview1.Предметы(к).Подпункты(6).Текст > 100 затем
Мыши listview1.Предметы(к).Подпункты(6).ForeColor = Система.Рисование.Цвет.Красный
MsgBox("привет тестовый код да")
Еще
MsgBox("привет тестовый код нет")
Конец, Если
Следующий к