使用basecontrol获取底层的.net目录树控件,然后Expandall
Dim 内置筛选树 As WinForm.FilterTree = Forms("分组").Controls("FilterTree1")
内置筛选树.BaseControl.Expandall
提示:
错误
---------------------------
编译错误:“Expandall”不是“System.Windows.Forms.Control”的成员。
错误代码:内置筛选树.BaseControl.Expandall
---------------------------
确定
---------------------------
搞定了,要直接用。Forms("分组").Controls("FilterTree1").BaseControl.Expandall
或者声明为Object类型也可
[此贴子已经被作者于2024/10/8 11:48:43编辑过]