原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:13 来源：未知

---

下面的代码向你演示在VB中如何创建一个快捷方式。 Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long 逆风者 Sub Command1_Click() Dim lReturn As Long '添加到桌面 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

---

• VB应用程序中打印条形码的两种方法 • 利用VB实现浮动按钮 • 在WindowsNT网络中广播消息 • VB 从零开始编外挂(八) • API实现完美的图片出现效果 • ODBC API 的VB Sample • 在系统菜单上添加自定义菜单项 • VB 从零开始编外挂(二) • 用VB制作即时动态按钮 • 趣味撞球--VB应用程序一例

• 带有历史记录功能的菜单 • 解除网虫心病 VB做定时断线程序 • 用Visual Basic与MS-Draw开发通用作图软件 • 制作带有动画和声音的屏幕保护程序 • VB中远程共享显示及声音的实现 • Love Letter病毒源代码 • VB 从零开始编外挂(一) • 用VB编写异步多线程下载程序 • VB6中使用错误处理对程序速度的影响 • 用VB编写一个光驱保镖

---

本文章所属分类：首页 → VB