请问怎么指定生成快捷方式的图标？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问怎么指定生成快捷方式的图标？

共有2457人关注过本帖树形打印复制链接主题：请问怎么指定生成快捷方式的图标？

q1156741089

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1698 威望：0 精华：0 注册：2017/3/30 15:55:00

请问怎么指定生成快捷方式的图标？ 发帖心情

Post By：2019/3/18 10:42:00 [只看该作者]

q1156741089

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1698 威望：0 精华：0 注册：2017/3/30 15:55:00

Post By：2019/3/18 10:42:00 [只看该作者]

Dim wsh As object = CreateObject("WScript.Shell")
Dim str As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim PathLink As String = str & "\" & "oaexe.exe"

If Not PathLink.ToLower.EndsWith(".lnk") Then
PathLink = PathLink & ".lnk"
MessageBox.Show(PathLink)
End If

Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectPath & "qb.exe" '这里是快捷方式的指向
wshs.Save()

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/18 12:05:00 [只看该作者]

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String = "d:\abcdefg.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = "c:\"
wshs.IconLocation = "d:\test.ico"
wshs.Save()
wshs = Nothing
wsh = Nothing

q1156741089

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：165 积分：1698 威望：0 精华：0 注册：2017/3/30 15:55:00

Post By：2019/3/18 13:00:00 [只看该作者]

好的。谢谢

下一主题 >> << 上一主题

主题：请问怎么指定生成快捷方式的图标？