Foxtable(狐表)用户栏目专家坐堂 → 【已解决】如何用代码设置窗口图标


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

主题:【已解决】如何用代码设置窗口图标

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/19 10:36:00 [显示全部帖子]

e.Form.BaseForm.Icon = New System.Drawing.icon("c:\001.ico")

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/20 9:04:00 [显示全部帖子]

_CurrentImage = "organization32.ico"

e.Form.BaseForm.Icon = New System.Drawing.icon(_CurrentImage)


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/20 9:47:00 [显示全部帖子]

_CurrentImage = ProjectPath & "Images\organization32.ico"

e.Form.BaseForm.Icon = New System.Drawing.icon(_CurrentImage)


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/20 10:26:00 [显示全部帖子]

随便打开CaseStudy目录下的一个演示文件,新建一个窗口,代码测试通过:

 

Dim _CurrentImage  As String = ProjectPath & "Images\FLGBELG.ICO"
e.Form.BaseForm.Icon = New System.Drawing.icon(_CurrentImage)


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/20 12:21:00 [显示全部帖子]

设计窗口的时候,将“显示图标”属性设置为True

 回到顶部