- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 项目发布后任务栏图标不是自己选定的图标 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108557)
-- 发布时间：2017/10/25 8:46:00
-- 项目发布后任务栏图标不是自己选定的图标
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:最小化窗口1.rar |
请教各位老师，为什么项目发布之后任务栏的图标没有变成我选定的图标，项目已上传
此主题相关图片如下：zxh.png
-- 发布时间：2017/10/25 9:13:00
--
主窗口的AfterLoad事件，写代码
e.Form.BaseForm.ShowInTaskBar = True
或者看看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79980&authorid=0&page=0&star=1
-- 发布时间：2017/10/25 10:08:00
--
这句代码已经加上了，窗口2的AfterLoad事件里面
-- 发布时间：2017/10/25 10:12:00
--
-- 发布时间：2017/10/25 10:23:00
--
如果是锁定到任务栏，你要用代码处理，用代码把exe锁定到任务栏。
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46572&skin=0
下面是win8系统的方法：
全局代码
Public Function LockApp(isLock As Boolean, appPath As String) As Boolean
Dim shell As New Shell32.Shell()
Dim folder As Shell32.Folder = shell.[NameSpace](System.IO.Path.GetDirectoryName(appPath))
Dim app As Shell32.FolderItem = folder.ParseName(System.IO.Path.GetFileName(appPath))
Dim sVerb As String = iif(isLock, "固定到任务栏(&K)", "从任务栏取消固定(&K)")
For Each Fib As Shell32.FolderItemVerb In app.Verbs()
msgbox(fib.name)
If Fib.Name = sVerb Then
Fib.DoIt()
Return True
End If
Next
Return False
End Function
调用代码参考
LockApp(true, "C:\\Windows\\notepad.exe")
-- 发布时间：2017/10/25 10:31:00
--
不是锁定，我的意思是任务栏上图标是系统图标，不是我设置的图标，如何能变为我设置的图标
-- 发布时间：2017/10/25 10:46:00
--
不是锁定，我的意思是任务栏上图标是系统图标，不是我设置的图标，如何能变为我设置的图标
窗口2，设置一下图标即可。属性->外观->图标
-- 发布时间：2017/10/25 10:51:00
--
这里只修改了窗口左上角的图标，项目已上传了，能帮我修改看下吗
-- 发布时间：2017/10/25 12:12:00
--
这里只修改了窗口左上角的图标，项目已上传了，能帮我修改看下吗
测试，没，问，题。请重新发布后测试。
-- 发布时间：2017/10/25 12:44:00
--
现在发布后变这样了，也不是我设置的图标
此主题相关图片如下：222.png