以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加TreeView的事件出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107123)

--  作者:mxko
--  发布时间:2017/9/21 16:44:00
--  [求助]加TreeView的事件出错

怎么动态添加 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编辑过]

--  作者:有点甜
--  发布时间: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
--  发布时间:2017/9/21 19:49:00
--  
 图片点击可在新窗口打开查看非常感谢
有点甜