ListView控件求助 - VFP论坛 - 编程论坛档案馆

楼主

已结贴√ 问题点数：20 回复次数：6

ListView控件求助

我想让ListView实现单选功能，当单击文本时可以实现从上到下或从下到上的单选，单击前面的复选框时也可以实现从上到下的单选，但是不能实现从下到上的单选，求助各位大神：如何实现单击复选框时实现从下到上也能单选？

ListView求助.rar (2.42 KB)

搜索更多相关主题的帖子: 复选框　单击　单选　 ListView　控件　

第 2 楼

得分:0

求大神斑竹帮帮忙！

第 3 楼

得分:0

自己顶一下

第 4 楼

得分:20

看看是否合意。

list.rar (2.86 KB)

第 5 楼

得分:0

回复 4楼 wcx_cc

非常感谢斑竹的帮助，符合要求！

第 6 楼

得分:0

看了一下楼主的代码，主要问题出在 oleList1.ItemCheck 上。当单击 CheckBox 时，被单击的节点并不会成为当前选定节点，即：Selected = .f.,修改后的oleList1.ItemCheck代码如下：

LPARAMETERS item
item.selected = .t.    && 使被单击的节点成为选定节点
*!*    FOR i = 1 TO this.ListItems.Count
*!*        IF this.ListItems(i).Checked = .T.
*!*           this.ListItems(i).Selected = .t.
*!*        ENDIF
*!*        IF this.ListItems(i).Checked = .f.
*!*           this.ListItems(i).Selected = .f.
*!*        ENDIF
*!*    ENDFOR
IF this.selectedItem.Selected = .t.
   this.ListItems(this.selectedItem.Index).Checked = .t.
   FOR i = 1 TO this.ListItems.Count
       IF i != this.selectedItem.Index
          this.ListItems(i).Checked = .f.
       ENDIF
   ENDFOR
ENDIF
IF this.ListItems(this.selectedItem.Index).Checked = .f.
   this.ListItems(this.selectedItem.Index).Checked = .t.
   this.ListItems(this.selectedItem.Index).Selected = .t.
ENDIF

收到的鲜花

hyf8285 于 2020-03-30 11:08 送鲜花 4朵

泉城飞狐

第 7 楼

得分:0

回复 6楼 liuxingang28

非常感谢您的帮助，遗憾的是的分已经没有了，非常抱歉！