以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [讨论] 如何目录树获取一级节点(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21095) |
-- 作者:qq121454970 -- 发布时间:2012/7/1 9:16:00 -- [讨论] 如何目录树获取一级节点(已解决) 请问下,如何做到,当我点击目录树中的“店铺信息”中的任意子节点时,声明一个字符变量,变量的值等于一级节点的名称。然后根据变量值的不同,执行不同的代码? 如果点击的子节点的一级节点标题是“店铺信息”
则执行代码一 如果点击的子节点的一级节点标题是“处理方式”
则执行代码二 这段代码该怎么写呀,各位大哥,解救下呀
[此贴子已经被作者于2012-7-1 16:10:30编辑过]
|
-- 作者:sunbrain -- 发布时间:2012/7/1 11:12:00 -- Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd11 As winform.treenode Dim nd12 As winform.treenode tv.BuildTree("表a", "第一列") nd11 = tv.Nodes.Insert("店铺信息","店铺信息",100) nd12 = tv.Nodes.Insert("处理方式","
处理方式 ",101)
If e.Node.text = "店铺信息" \'你的代码 End If If e.Node.text = "处理方式" \'你的代码 End If |
-- 作者:qq121454970 -- 发布时间:2012/7/1 15:48:00 -- 谢了 |
-- 作者:qq121454970 -- 发布时间:2012/7/1 16:12:00 -- 我用的是 Dim tr As WinForm.TreeView Dim pd As WinForm.TreeNode tr = e.Form.Controls("TreeView1") pd = tr.SelectedNode.ParentNode Dim s As String = pd.text If s = "xx" \'执行代码 else s = "xx" \'执行代码 end if |