求教：列表框不可选时数据项的颜色问题 - VFP论坛

第 21 楼

得分:0

回复 19楼 laowan001

没错，换成这个就简单多了，谢谢指导。

第 22 楼

得分:0

回复 16楼 csyx

多谢多谢，用这个就轻松解决了，当时是想了几天都没想到解决办法才来求助的。
看来写代码还是有脑子才行，我就有点脑子不够用。

第 23 楼

得分:0

以下是引用丁春秋yxp在2022-12-4 11:02:39的发言：

版主真高，虽然复杂，但很漂亮，留存以备后用，谢谢。

不算复杂，只是用了listbox的常规图标功能，用图标美感就没问题了吧

第 24 楼

得分:0

回复 16楼 csyx

高！

第 25 楼

得分:0

回复 18楼吹水佬

学习啦，谢谢！

第 26 楼

得分:0

以下是引用吹水佬在2022-12-4 12:30:44的发言：

不算复杂，只是用了listbox的常规图标功能，用图标美感就没问题了吧

其实就3句：
        this.Picture(this.index) = "d:\temp\test_0.png"
        this.index = this.ListIndex
        this.Picture(this.ListIndex) = "d:\temp\test_1.png"

第 27 楼

得分:0

以下是引用吹水佬在2022-12-6 18:43:31的发言：

其实就3句：
        this.Picture(this.index) = "d:\temp\test_0.png"
        this.index = this.ListIndex
        this.Picture(this.ListIndex) = "d:\temp\test_1.png"

谢谢版主，这个漂亮，最终我也采用了这种方法。
只是在过程中发现，图标无论做成png还是ico，显示都不能做到透明，列表框还是很难看，没办法做了4个图标才解决问题（两个的底板与列表框有效时背景色一致，另两个与无效时一致），不知有没有更简单一点的办法。

[此贴子已经被作者于2022-12-7 13:53编辑过]

第 28 楼

得分:0

回复 27楼丁春秋yxp

列表框好象就这样子，TREEVIEW的好象也是这样，将底色改成一样就当透明。
要强大还是用GRID

第 29 楼

得分:0

回复 28楼吹水佬

谢谢版主指导，留存研究一下。

第 30 楼

得分:0

回复 29楼丁春秋yxp

简单写一个，大概就是这样子

主要是两段

程序代码：

    
    PROCEDURE AfterRowColChange(nColIndex)
        IF this.RowColChange == 1
            this.index = RECNO()
            this.SetFocus
        ENDIF     
    ENDPROC


    PROCEDURE BackStyle_ACCESS
        this.Picture = IIF(RECNO("tt")==thisform.grd.index,"d:\temp\test_0.ico","d:\temp\test_1.ico")
        RETURN THIS.BackStyle
    ENDPROC

程序代码：

CREATE CURSOR tt (img v(1), f1 v(10))
FOR i=1 TO 9
    INSERT INTO tt VALUES ("", REPLICATE(TRANSFORM(i),10))
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show(1)
RETURN 

DEFINE CLASS form1 as Form
    AllowOutput = .f.
    AutoCenter = .t.
    ADD OBJECT cmd as commandbutton WITH left=10,top=10,height=24,caption="Enabled=.F."
    ADD OBJECT grd as grid1
    PROCEDURE cmd.click
        this.Caption = "Enabled="+TRANSFORM(thisform.grd.Enabled)
        thisform.grd.Enabled = !thisform.grd.Enabled
    ENDPROC 
ENDDEFINE

DEFINE CLASS grid1 as Grid 
    left=10
    top=40
    width=200
    RowHeight=32
    HeaderHeight=0
    GridLines=0
    DeleteMark=.f.
    RecordMark=.f.
    AllowCellSelection=.f.
    SplitBar=.f.
    ScrollBars=2
    index = 1
    PROCEDURE init
        this.Column1.width=32
        this.Column1.RemoveObject("Text1")
        this.Column1.AddObject("img", "grdimg")
        this.Column1.Sparse = .F. 
    ENDPROC 
    PROCEDURE AfterRowColChange(nColIndex)
        IF this.RowColChange == 1
            this.index = RECNO()
            this.SetFocus
        ENDIF     
    ENDPROC
ENDDEFINE

DEFINE CLASS grdimg AS image
    BackStyle = 0
    Width = 32
    Height = 32
    Stretch = 0
    PROCEDURE BackStyle_ACCESS
        this.Picture = IIF(RECNO("tt")==thisform.grd.index,"d:\temp\test_0.ico","d:\temp\test_1.ico")
        RETURN THIS.BackStyle
    ENDPROC
ENDDEFINE