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


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

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

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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
【已解决】如何用代码设置窗口图标  发帖心情 Post By:2011/12/19 10:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 

如图

[此贴子已经被作者于2011-12-20 21:20:31编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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")

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/19 11:03:00 [只看该作者]

原来是这样的.

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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2011/12/19 18:19:00 [只看该作者]

 谢谢狐爸

我设置了一个全局变量  _CurrentImage = "Images\organization32.ico"

然后再窗口里面这样写

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

 报错。请问规范的是怎么写的

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20111219181717.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2011/12/19 22:57:00 [只看该作者]

狐爸,这个帮我看下。谢谢

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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)


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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2011/12/20 9:45:00 [只看该作者]

狐爸还是不行 我发现这个地址好像是会变的

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20111220094443.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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)


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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2011/12/20 9:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20111220094443.png
图片点击可在新窗口打开查看

还是报错,有时候不报错了,打开图标也没还上


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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)


 回到顶部
总数 16 1 2 下一页