如何执行treeview子节点以及listview子节点的双击事件
Option Explicit
Private Sub Form_Load()
Call initTreeData
tvw.Nodes(1).Selected = True 點
tvw.Nodes(1).EnsureVisible
End Sub
Private Sub initTreeData()
Dim I As Integer
tvw.Nodes.Add , , "root", "管理系统"
'//////////////////////////////////////////////////////////////////
tvw.Nodes.Add "root", tvwChild, "child1", "条码管理系统"
tvw.Nodes.Add "child1", tvwChild, "child11", "标准条码"
tvw.Nodes.Add "child1", tvwChild, "child12", "非标准条码"
'////////////////////////////////////////////////////////////////////
tvw.Nodes.Add "root", tvwChild, "child2", "出入库管理系统"
tvw.Nodes.Add "child2", tvwChild, "child21", "入库单建立作业"
tvw.Nodes.Add "child2", tvwChild, "child22", "入库状况查询"
tvw.Nodes.Add "child2", tvwChild, "child23", "出库单建立作业"
tvw.Nodes.Add "child2", tvwChild, "child24", "出库状况查询"
tvw.Nodes.Add "child2", tvwChild, "child25", "库存查询"
tvw.Nodes.Add "root", tvwChild, "child3", "退出系统"
tvw.Nodes(1).Expanded = True
End Sub
///////////////////////////////////////
如何通过双击 treeview(root)的子节点"入库单建立作业"(child21)来调用aaa()子程序
以及如何通过双击 treeview(root)的子节点"入库单建立作业"(child22)来调用bbb()子程序
//////////////////////////////////
private sub aaa()
执行入库单建立作业子程序
end sub
private sub bbb()
执行出库单建立作业子程序
end sub