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

求大神斑竹帮帮忙！

自己顶一下

看看是否合意。

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

看了一下楼主的代码，主要问题出在 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朵  

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