明升m88备用网址网

 找回暗码
 注册

QQ登录

只需一步,快速开端

你正在寻觅更好的Excel学习教程吗?Excel技巧80集+数据透视表+明升88初中高全套+VBA80集,想学的这儿全都有
检查: 65|回复: 3
打印 上一主题 下一主题

[已处理] 请问listview怎样依据内容判别来改动行的色彩

[仿制链接]
跳转到指定楼层
1楼
宣布于 2019-6-15 00:14 | 只看该作者 回帖奖赏 |倒序阅览 |阅览形式
2学分
各位大大,请一下listview怎样依据内容判别来改动行的色彩?
1、假设listview的第4列的内容只可能是false或许true
2、依据【第4列】的内容来判别,如果是false的就把这【一整行】的字体色彩改为赤色。如果是true就不变

这是增加内容的代码,请问能够在增加的时分就判别然后改动色彩吗?
  1. goodsList.ListView1.ListItems.Clear
  2. For j = 2 To iRow
  3.     Set itm = goodsList.ListView1.ListItems.Add
  4.     itm.Text = SHT.Cells(j, 1).Value
  5.     For k = 1 To iCol - 1  '最大列数
  6.         itm.SubItems(k) = SHT.Cells(j, k + 1).Value
  7.     Next
  8. Next
仿制代码
请问该怎样做,谢谢我们了!!

最佳答案

检查完好内容

For J = 2 To iRow Set itm = goodsList.ListView1.ListItems.Add itm.Text = SHt.Cells(J, 1).Value For k = 1 To iCol - 1 itm.SubItems(k) = SHt.Cells(J, k + 1).Value If SHt.Cells(J, 4) = False Then itm.ForeColor = RGB(255, 0, 0) itm.ListSubItems(k).ForeColor = RGB(255, 0, 0) End If Next Nex ...
共享到:  QQ老友和群QQ老友和群
保藏保藏
2楼
宣布于 2019-6-15 00:14 | 只看该作者
本帖最后由 zjdh 于 2019-6-29 10:12 修改

For J = 2 To iRow
        Set itm = goodsList.ListView1.ListItems.Add
        itm.Text = SHt.Cells(J, 1).Value
        For k = 1 To iCol - 1
            itm.SubItems(k) = SHt.Cells(J, k + 1).Value
            If SHt.Cells(J, 4) = False Then
                itm.ForeColor = RGB(255, 0, 0)
                itm
.ListSubItems(k).ForeColor = RGB(255, 0, 0)
            End If

        Next
    Next
3楼
 楼主| 宣布于 2019-6-15 15:02 | 只看该作者
本帖最后由 淡淡的邪 于 2019-6-15 15:12 修改
zjdh 宣布于 2019-6-15 08:49
For J = 2 To iRow
        Set itm = goodsList.ListView1.ListItems.Add
        itm.Text = SHt.Cells ...

谢谢您的回复。
我试了一下 提示 编译过错:无效限定符      定位在itm.SubItems(k).ForeColor = RGB(255, 0, 0)        的 .SubItems  奇观
请问是怎样回事呢?

谢谢哈,改了一小点就能够了itm.SubItems(k).ForeColor = RGB(255, 0, 0) 改成 itm.ListSubItems(k).ForeColor = RGB(255, 0, 0) 就能够了,谢谢大佬的协助
4楼
宣布于 2019-6-15 15:33 | 只看该作者
淡淡的邪 宣布于 2019-6-15 15:02
谢谢您的回复。
我试了一下 提示 编译过错:无效限定符      定位在itm.SubItems(k).ForeColo ...

哈!我没测验,录入时漏了。
您需求登录后才能够回帖 登录 | 注册

本版积分规矩

小黑屋|手机版|Archiver|明升m88备用网址 ( 豫ICP备11015029号 )

GMT+8, 2019-6-29 12:13 , Processed in 0.060000 second(s), 4 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 回来顶部 回来列表