在实际的VB编程工作中,常常要为自己的程序在桌面生成一个快捷图标。
用VB在桌面生成图标我提供两种方式,这两种方法都还很简单。
第一种方法,利用vb5stkit.dll来生成桌面图标:
1.利用现成的DLL文件来创建桌面图标,这个DLL文件就是VB5STKIT.DLL,大小才29K,很小,压缩一下就更小了,请大家百度搜索 vb5stkit.dll 下载。
在VB编程,首先要在窗体模块中引用这个DLL,代码如下:
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
2.然后,在窗口的load事件中,写一行代码就可以新建一个程序的图标。
Private Sub Form_Load()
fCreateShellLink "..\..\..\..\..\..\Desktop", "新桌面图标", App.Path & "\工程1.exe", ""
End Sub
注:以上代码生成EXE程序,必须要把要生成快捷图标的EXE程序放在同一目录中,同时,VB5STKIT.DLL也要放在同一目录里。假定以上VB源代码生成一个EXE,文件名叫: 工程1.exe,那么把这个工程1.exe和VB5STKIT.DLL放在同一目录里,运行工