以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何返回按钮的图标?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154634)

--  作者:2425004926
--  发布时间:2020/9/21 14:55:00
--  如何返回按钮的图标?
dim bnt as wiform.button
bn = e.sender
btn.image = getimage("001.ico")      ‘设置按钮的图标可以这样表达

那么,返回按钮的图标如何表达

if btn.image = getimage("001.ico") then    \'这样表达好像不正确呀
******
end if

--  作者:有点蓝
--  发布时间:2020/9/21 14:59:00
--  
Dim btn As WinForm.Button = e.Form.Controls("Button1")
If btn.image IsNot Nothing Then
    e.Form.Controls("picturebox").Image = new bitmap(btn.image)
End If

--  作者:2425004926
--  发布时间:2020/9/21 15:02:00
--  
 非常谢谢
--  作者:2425004926
--  发布时间:2020/9/21 15:10:00
--  
我是想这样表达:

如果图标等于001时
      展开所有目录节点
      同时图标等于002
否则
      关闭所有节点
      图标等于001
结束

上面的代码怎么借鉴?