Foxtable(狐表)用户栏目专家坐堂 → 如何返回按钮的图标?


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

主题:如何返回按钮的图标?

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
如何返回按钮的图标?  发帖心情 Post By: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

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


加好友 发短信
等级:超级版主 帖子:106011 积分:539142 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2020/9/21 15:02:00 [只看该作者]

 非常谢谢

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2020/9/21 15:10:00 [只看该作者]

我是想这样表达:

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

上面的代码怎么借鉴?

 回到顶部