求教ctExplorerBar的用法?

zqy_123456789

几个问题,如何实现;
1.当我点下组名为"基础资料"时，就对应出现提示”你点选的是--组."基础资料""？
2.让窗体启动时,全部都展开
3.当我点下组名为"基础资料"下的项次"产品信息"时，就对应出现提示”你点选的是--项.产品信息“？

asklove

让窗体启动时,就展开是在FirstDraw事件中
Private Sub ctExplorerBar5_FirstDraw()   
ctExplorerBar5.TitleState(1) = 1   '第一分组展开
ctExplorerBar5.TitleState(2) = 1   '第二分组展开
******
End Sub



ItemClick事件中
ctExplorerBar5.TitleText(nList)   '分组名称
ctExplorerBar5.ItemText(nList, n)  '分组里小项名称

咱家是猫的例子中是这样：
Private Sub ctExplorerBar5_ItemClick(ByVal nList As Integer, ByVal n As Integer)
    If n <> 0 Then
    '提供这个接口,可以通过这里的判断响应不同的动作
   
        MsgBox "您选择的是: " & ctExplorerBar5.ItemText(nList, n)
    Else
       MsgBox "您选择的是: " & ctExplorerBar5.TitleText(nList)
   
    End If

End Sub

chaojianan

谢谢，学习学习。

qq7597184

学习学习。