以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TreeView 去边框,请教!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72886)

--  作者:blackwolf
--  发布时间:2015/8/8 9:53:00
--  TreeView 去边框,请教!
 这个是在VS中的代码:Me.TreeView1.BorderStyle = System.Windows.Forms.BorderStyle.None
可以修改,并且能去边框!
我在狐表中修改:
Dim TreeV As WinForm.TreeView = e.Form.Controls("左侧弹出菜单TreeView")
Treev.BorderStyle = System.Windows.Forms.BorderStyle.None 
提示:BorderStyle 不是   WinForm.TreeView的成员。

然后我又改成

Dim TreeV As WinForm.TreeView = e.Form.Controls("左侧弹出菜单TreeView")
e.Form.Controls("左侧弹出菜单TreeView").BorderStyle = System.Windows.Forms.BorderStyle.None 
可以通过,但是,在预览的时候报错: 未找到类型“TreeView”的公共成员“BorderStyle”。

我又改成底层控件来试
Dim TreeV As object = e.Form.Controls("左侧弹出菜单TreeView").basecontrol
Treev.BorderStyle = System.Windows.Forms.BorderStyle.None
还是报错,没辙了!


--  作者:逛逛
--  发布时间:2015/8/8 10:11:00
--  
Forms("窗口1").Controls("TreeView1").BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.None
--  作者:逛逛
--  发布时间:2015/8/8 10:13:00
--  

严谨一点

 

\'Ctype(Forms("窗口1").Controls("TreeView1").BaseControl,System.Windows.Forms.TreeView).BorderStyle = System.Windows.Forms.BorderStyle.None


--  作者:blackwolf
--  发布时间:2015/8/8 10:22:00
--  
e.Form.Controls("左侧弹出菜单TreeView").BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.None
怪事。这样可以。
但是如要要定义了 treeview。在引用就报错,程序结构上应该是一样的啊。
treev.BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.None
能否说说看!


--  作者:有点蓝
--  发布时间:2015/8/8 10:32:00
--  
Dim treev As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tre As Windows.Forms.TreeView = treev.BaseControl
tre.BorderStyle = System.Windows.Forms.BorderStyle.None
应该是动态对象Object 类型 和指定类型对象之间的区别