Foxtable(狐表)用户栏目专家坐堂 → TreeView 去边框,请教!


  共有2537人关注过本帖树形打印复制链接

主题:TreeView 去边框,请教!

帅哥哟,离线,有人找我吗?
blackwolf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:145 积分:946 威望:0 精华:0 注册:2015/4/18 20:22:00
TreeView 去边框,请教!  发帖心情 Post By:2015/8/8 9:53:00 [只看该作者]

 这个是在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
还是报错,没辙了!


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12123 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2015/8/8 10:11:00 [只看该作者]

Forms("窗口1").Controls("TreeView1").BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.None

 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12123 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2015/8/8 10:13:00 [只看该作者]

严谨一点

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
blackwolf
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:145 积分:946 威望:0 精华:0 注册:2015/4/18 20:22:00
  发帖心情 Post By: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
能否说说看!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 类型 和指定类型对象之间的区别

 回到顶部