- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何判断目录树已经没有下层并打开同名的窗口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27280)
-- 发布时间：2012/12/27 13:53:00
-- 如何判断目录树已经没有下层并打开同名的窗口
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
If tr.Nodes.Count = 0 Then
Forms(e.Node.Text).Open
End If
Dim nd As WinForm.TreeNode
If tr.Nodes.Count = 0 Then
Forms(e.Node.Text).Open
End If
直接Forms(e.Node.Text).Open能打开窗口，但双击上几级会出错，请大师指点
-- 发布时间：2012/12/27 13:56:00
--
因为目录树层级不确定，有的第2层就没有下级了，有的是第3级或第4级没有下级，我想判断一下，是最底层，就打开同名窗口，不是，就不处理
-- 发布时间：2012/12/27 14:11:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each frm As WinForm.Form In Forms
If e.Node.Text = Frm.Name Then
Forms(e.Node.Text).Open
End If
Next
-- 发布时间：2012/12/27 14:18:00
--
双击事件，为什么不用到e参数？
If e.Node.Nodes.Count = 0 Then
Forms(e.Node.Text).Open
End If
Forms(e.Node.Text).Open
End If
-- 发布时间：2012/12/27 14:34:00
--
以下是引用lin_hailun在2012-12-27 14:18:00的发言：
双击事件，为什么不用到e参数？
可以了，谢谢
双击事件，为什么不用到e参数？
If e.Node.Nodes.Count = 0 Then
Forms(e.Node.Text).Open
End If
Forms(e.Node.Text).Open
End If
-- 发布时间：2012/12/27 14:38:00
--
以下是引用blackzhu在2012-12-27 14:11:00的发言：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each frm As WinForm.Form In Forms
If e.Node.Text = Frm.Name Then
Forms(e.Node.Text).Open
End If
Next
这个更好，没有同名窗口不会报错，谢谢