Foxtable(狐表)用户栏目专家坐堂 → [求助]Tree View 设置ReadOnly问题。


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

主题:[求助]Tree View 设置ReadOnly问题。

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


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
[求助]Tree View 设置ReadOnly问题。  发帖心情 Post By:2014/1/11 15:42:00 [只看该作者]

 

我通过代码创建一目录树,目录树设置有复选框。

 

想要的效果是:目标树可以展开,但不能选择和取消选择

 

下面是我做的,但始终能选择:

 

AfterLoad

 

Dim TV As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree ("表B","权限|模块|窗体")
tv.CheckBoxes = True
tv.ReadOnly = BooleanEnum.True


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/11 15:45:00 [只看该作者]

BeforeSelectNode事件中写入代码
e.Cancel=True

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


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
  发帖心情 Post By:2014/1/11 15:45:00 [只看该作者]

bin,为什么时候呢,求解。

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


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
  发帖心情 Post By:2014/1/11 15:48:00 [只看该作者]

BeforeSelectNode事件中写入代码
e.Cancel=True

 

 

 

貌似问题依然存在...


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/11 15:48:00 [只看该作者]

什么意思?

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


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
  发帖心情 Post By:2014/1/11 15:50:00 [只看该作者]

意思是,在控件的 BeforeSelectNode 事件,加上 e.cancel = true

 

复择框还是可以选.


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/11 15:53:00 [只看该作者]

那只是禁止选中,禁止复选可以在AfterCheckNode 设置e.node.Checked=False

不过不太严谨,如果你不希望勾选复选框,直接设置不要显示复选框不就好了吗?  需要的时候再显示.

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/1/11 15:58:00 [只看该作者]

AfterCheckNode

For Each nd As WinForm.TreeNode In e.Sender.AllNodes
    nd.Checked = False
Next

 


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


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
  发帖心情 Post By:2014/1/13 9:32:00 [只看该作者]

TKS,

 

解决了。谢谢


 回到顶部