Foxtable(狐表)用户栏目专家坐堂 → [求助]加TreeView的事件出错


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

主题:[求助]加TreeView的事件出错

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


加好友 发短信
等级:一尾狐 帖子:463 积分:3792 威望:0 精华:0 注册:2013/2/20 11:07:00
[求助]加TreeView的事件出错  发帖心情 Post By:2017/9/21 16:44:00 [只看该作者]

怎么动态添加 TreeView 的 事件,下面的代码出错
Dim frm As WinForm.Form = Forms("TreeTest")
frm.Open()
Dim trv As WinForm.TreeView
Dim nd As WinForm.TreeNode
trv = frm.CreateControl("Trv1", ControlTypeEnum.TreeView)
trv.Dock = 5
nd = trv.Nodes.Add("Root1","根节点一")
nd.Nodes.Add("Sub1","子节点一")
nd.Nodes.Add("Sub2","子节点二")
nd = trv.Nodes.Add("Root2","根节点二")
nd.Nodes.Add("Sub3","子节点三")
nd.Nodes.Add("Sub4","子节点四")
frm.AddControl(trv)
AddHandler trv.AfterSelectNode, AddressOf TreeView_AfterSelectNode
请大大们帮忙解决



 


图片点击可在新窗口打开查看此主题相关图片如下:xxxx.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/21 16:46:00编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/21 18:17:00 [只看该作者]

Dim btrv As Windows.Forms.TreeView = trv.BaseControl

AddHandler btrv.AfterSelect, AddressOf TreeView_AfterSelectNode

 

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.treeview.afterselect.aspx

 


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


加好友 发短信
等级:一尾狐 帖子:463 积分:3792 威望:0 精华:0 注册:2013/2/20 11:07:00
  发帖心情 Post By:2017/9/21 19:49:00 [只看该作者]

 图片点击可在新窗口打开查看非常感谢
有点甜

 回到顶部