- 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=22782)
-- 发布时间：2012/8/23 20:13:00
-- 如何用通用代码展开窗口中的多个目录树？
各位老师，一个窗口中有多个目录树，点击展开按钮时想用如下代码将每一个目录树都展开。
For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.TreeView Then \'判断控件是否是目录树
c.Expand
End If
Next
此主题相关图片如下：qq截图20120823201138.jpg
提示出错，请问中间要怎么写。（每个目录树分开定义即展开的方式我会）。
谢谢！
-- 发布时间：2012/8/23 20:26:00
--
For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.TreeView Then \'判断控件是否是目录树
Dim tr As WinForm.TreeView = c
tr.ExpandAll
End If
Next
-- 发布时间：2012/8/23 20:36:00
--
谢谢版主，可以了。