怎样实现Vb创建桌面自定义图标的快捷方式呢

2011-04-06 02:29:15 376 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET程序打包，及设置打包程序的（ICO）快捷方式图标今天总结一下VB.NET的程序打包方法，及更改打包后的快捷方式图标。第一步打开自己想打包的程序文件，然后工具栏选择“文件”，“新建项目”如下图1所示。图1 完成第一步后进入第二步，在其他项目类型里找到“安装和部署”，在Visual Studio Installer里选择“安装项目”，如图2，在图,2下方可以设置安装软件的名称，设置完成后，进入第三步。图2 进入到第三步以后，会出现图3所示界面。在目标计算机上的文件系统下选择，应用程序文件夹，右键点击，“添加” “文件”。如图4所示。之后选择要打包的阅读详情

个位大侠，我学Vb不久，还是个菜鸟。谁能给我写段代码啊怎样实现Vb创建桌面自定义图标的快捷方式呢

...全文

带硬约束的物理信息神经网络（PINN with Hard Constraint）示例及代码本文以一个案例介绍了带硬约束的物理信息神经网络的原理及实现步骤。阅读详情

维诺之星小程序

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

tiger413 2011-07-28

打赏
举报

在VC下如何实现呢，各位大虾们，主要是这一句，
.IconLocation = WSH.ExpandEnvironmentStrings _
("%SystemRoot%\system32\SHELL32.dll,70") '图标,可以是自己的ico
比如我要把应用程序图标改成图片图标，.jpg快捷方式的样子。
在下面这里回贴给分。

http://topic.csdn.net/u/20110724/23/36dde568-2e94-4d26-8468-986bf051fbd0.html

苦苦的潜行者 2011-07-28

打赏
举报

[Quote=引用 2 楼 ptzxzc 的回复:]
引用 1 楼 dbcontrols 的回复:

先把三月份的帖子结了再说

VB code
Private Sub Command2_Click()
'引用windows scripting host object model

Dim WSH As WshShell
Dim Urllink……
[/Quote]

+++1
不错不结贴,csdn的人还是不欢迎的

碧海情天-赵亮 2011-04-09

打赏
举报

[Quote=引用 1 楼 dbcontrols 的回复:]
先把三月份的帖子结了再说
[/Quote]
呵呵，我喜欢的风格。

码之魂 2011-04-06

打赏
举报

[Quote=引用 1 楼 dbcontrols 的回复:]

先把三月份的帖子结了再说
[/Quote]

Private Sub Command2_Click()

'引用windows scripting host object model



   Dim WSH As WshShell

    Dim Urllink As WshShortcut

    Dim DeskPath As String

    Dim lnkName As String

  

    Set WSH = New WshShell

    DeskPath = WSH.SpecialFolders("Desktop")  '获得桌面路径

    

    '得到快捷方式

    lnkName = Dir(DeskPath & "\*.lnk") 

    Debug.Print lnkName

    While Len(lnkName)

        Debug.Print lnkName

        lnkName = Dir

    Wend

    

    '可以用wsh_shell.expandenvironmentstrings("%windir%")获得windows路径

    Set Urllink = WSH.CreateShortcut(DeskPath & "\Test.lnk")

    With Urllink

        .TargetPath = "d:\test.txt"         '目标

        .IconLocation = WSH.ExpandEnvironmentStrings _

            ("%SystemRoot%\system32\SHELL32.dll,70")     '图标,可以是自己的ico

        .Hotkey = "ctrl+shift+F"            '快捷键

        .WorkingDirectory = "d:\"           '起始位置

        .WindowStyle = 1                    '运行方式

        .Description = "备注备注备注备注备注"       '备注

        .Arguments = StrArg '参数

  End With

  Urllink.Save '保存快捷方式

  

'  '添加到桌面

'lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")

''添加到程序组

'lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")

''添加到启动组

'lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")

  

End Sub

dbcontrols 2011-04-06

打赏
举报

先把三月份的帖子结了再说

怎样实现Vb创建桌面自定义图标的快捷方式呢

相关推荐