怎么子类化 Image 控件 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 怎么子类化 Image 控件

标题：怎么子类化 Image 控件

只看楼主

wedsic

等　级：新手上路
帖　子：162
专家分：0
注　册：2017-7-17
结帖率：66.67%

楼主

问题点数：0 回复次数：5

怎么子类化 Image 控件

怎么子类化 Image 控件增加 backstyle_access 方法

[此贴子已经被作者于2017-8-26 17:09编辑过]

搜索更多相关主题的帖子: 子类　 Image　控件　增加　方法　

2017-08-26 17:07

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:0

DEFINE CLASS Grid_Image AS Image
    Visible = .T.

    PROCEDURE BackStyle_ACCESS
        * add user code here
        RETURN this.BackStyle
    ENDPROC
ENDDEFINE

2017-08-26 17:29

wedsic

等　级：新手上路
帖　子：162
专家分：0
注　册：2017-7-17

第 3 楼

得分:0

怎么使用这个类

2017-08-26 17:40

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 4 楼

得分:0

以下是引用wedsic在2017-8-26 17:40:55的发言：

怎么使用这个类

简单示例：

** test.prg
CREATE CURSOR tt (picname C(100))
FOR i=0 TO 100
    INSERT INTO tt VALUES ("test"+TRANSFORM(i%3+1)+".bmp")
ENDFOR
GO TOP
of = CREATEOBJECT("myForm")
of.show
READ EVENTS
RETURN

DEFINE CLASS myForm as Form
    ADD OBJECT grid1 as myGrid
    PROCEDURE unload
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

DEFINE CLASS myGrid as grid
    RecordSource="tt"
    PROCEDURE Init
        this.Column1.RemoveObject("Text1")
        this.Column1.AddObject("Image1", "myGridImage")
        this.Column1.Sparse = .F.
    ENDPROC
ENDDEFINE

DEFINE CLASS myGridImage AS Image
    Visible = .T.
    PROCEDURE BackStyle_ACCESS
        this.Picture = tt.picname
        RETURN this.BackStyle
    ENDPROC
ENDDEFINE

2017-08-26 20:23

wedsic

等　级：新手上路
帖　子：162
专家分：0
注　册：2017-7-17

第 5 楼

得分:0

回复 4楼吹水佬

大神威武

[此贴子已经被作者于2017-8-26 21:59编辑过]

2017-08-26 21:29

jpjkj

等　级：新手上路
帖　子：2
专家分：0
注　册：2019-12-21

第 6 楼