请教各位大佬，带复选框的LISTBOX是如何实现的？ - 编程论坛

#2

kangss2025-07-18 11:51

你这个是哪儿来到截图？
里面也可以gird，不显示表格线

#3

kangss2025-07-18 11:56

只有本站会员才能查看附件，请登录

#4

cwb63571232025-07-22 14:39

以下是引用kangss在2025-7-18 11:56:58的发言：

用grid做的话，选择选择单元格才有底色，这种任何实现？选择行有底色的实现了。

只有本站会员才能查看附件，请登录

#5

厨师王德榜2025-07-23 09:20

思路打开，可以制作适合自己的类来解决：

只有本站会员才能查看附件，请登录

#6

schtg2025-07-23 15:12

回复 5楼厨师王德榜

#7

iswith2025-07-23 16:47

了解一下Listbox 分区在第一列区单击当前行替换成另一张选中图片，数据表同步替值

#8

cwb63571232025-07-30 09:27

回复 5楼厨师王德榜

大佬。为啥我这个Grid设置的当前行背景色不生效呢？

只有本站会员才能查看附件，请登录

#9

trial032025-07-30 12:20

以下是引用厨师王德榜在2025-7-23 09:20:08的发言：

思路打开，可以制作适合自己的类来解决：

大大，可以分享如何做的吗？

谢谢

#10

hsfisher2025-07-31 08:24

#11

kangss2025-08-01 19:25

以下是引用厨师王德榜在2025-7-23 09:20:08的发言：

思路打开，可以制作适合自己的类来解决：

只有本站会员才能查看附件，请登录

给你3个bmp，看能不能用上

#12

吹水佬2025-08-03 15:06

回复楼主 cwb6357123

listbox本身就支持多选

#13

吹水佬2025-08-04 08:43

只有本站会员才能查看附件，请登录

程序代码：

** listbox 复选
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT list1 as myListbox WITH left=10,top=10
ENDDEFINE

DEFINE CLASS myListbox as listbox
    width                 = 250
    height                = 200
    ColumnCount           = 2
    ColumnLines           = .f.
    RowSourceType         = 0
    FontSize              = 12
    SelectedItemBackColor = 0x00C0C0C0
    SelectedItemForeColor = 0

    PROCEDURE init
        FOR i=1 TO 9
            this.AddListitem("○")    && ○●
            this.AddListItem(REPLICATE(TRANSFORM(i),20), this.NewItemID, 2)
        ENDFOR
    ENDPROC

    PROCEDURE click
        this.List(this.ListIndex,1) = IIF(this.List(this.ListIndex,1)=="○", "●", "○")
    ENDPROC
ENDDEFINE