以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]引用图标,请红袍哥帮忙修改一下代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79205)

--  作者:coch2004
--  发布时间:2015/12/26 11:01:00
--  [求助]引用图标,请红袍哥帮忙修改一下代码
Dim trv1 As WinForm.TreeView = Forms("侧边栏").Controls("tr1")
Dim trd1 As WinForm.TreeNode= trv1.SelectedNode
Forms(trd1.name).BaseForm.Icon= trd1.IconFile   红色的部分有错误,请帮忙修改一下,谢谢!
--  作者:Hyphen
--  发布时间:2015/12/26 11:40:00
--  

 

[此贴子已经被作者于2015/12/26 11:41:27编辑过]

--  作者:Hyphen
--  发布时间:2015/12/26 11:46:00
--  
Forms(trd1.name).BaseForm.Icon= new System.Drawing.Icon(trd1.IconFile)
--  作者:coch2004
--  发布时间:2015/12/27 13:39:00
--  
谢谢!