Question

vb 建立一个桌面图标

制作一个程序需要在桌面建立一个图标，应用时双击图标打开程序。请高手给我一段代码

Answer 1

Private Sub Command1_Click()
Dim nPath As String, sh As Object, ShortCut As Object
    Set sh = CreateObject("WScript.Shell")
    '获取桌面路径
    nPath = sh.SpecialFolders("Desktop")
    '创建一个快捷方式对象
    Set ShortCut = sh.CreateShortcut(nPath & "\电子小说阅览器.lnk")
    ShortCut.TargetPath = "D:\StoryView.exe"  '快捷方式指向的目标
    ShortCut.WorkingDirectory = "D:\"
    ShortCut.Save
End Sub

追问

谢谢！再问一下这段代码写在那个窗体上？

追答

窗体放一个按钮即可

追问

我的意思是如果多窗体这个按钮与代冯放在那个窗体?我是个初学者

追答

放在哪个窗体都可以，这要问你自己啊，你想把“建立桌面快捷方式”这个按钮放在你的哪个窗体来实现这个功能呢？