1,486
社区成员
发帖
与我相关
我的任务
分享
‘如题:使用了Comctl32 5.0控件来完成。已现实了TreeView & ListView的CHECKBOXES效果。
'问题是如何让TreeView的CHECKBOXES标记来选取ListView的CHECKBOXES。
'标记的索引是TreeView的Node.Text=ListView的ListItems。
Public Function SetCheck(ByVal hWnd As Long, ByVal I As Integer, ByVal Checked As Boolean) As Long
Dim LVI As LVITEM
With LVI
.stateMask = &HF000
.state = &H1000& * (1 - Checked)
.mask = &H8
End With
SendMessage hWnd, LVM_SETITEMSTATE, I, LVI
End Function