tempad
ReadyGo!技术成就梦想 >>VB教程 >> 如何用VB建立快捷方式

如何用VB建立快捷方式

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:46
下面的代码向你演示在VB中如何创建一个快捷方式。

PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong
SubCommand1_Click()

DimlReturnAsLong

"添加到桌面
lReturn=fCreateShellLink("..\..\Desktop","ShortcuttoCalculator","c:\windows\calc.exe","")
"添加到程序组
lReturn=fCreateShellLink("","ShortcuttoCalculator","c:\windows\calc.exe","")
"添加到启动组
lReturn=fCreateShellLink("\Startup","ShortcuttoCalculator","c:\windows\calc.exe","")

EndSub->

责任编辑: efish 参与评论 查找更多：
相关文章
在系统菜单上添加自定义菜单项 在系统菜单上添加自定义菜单项
奇形怪状的窗体 奇形怪状的窗体
在VB中如何创建闪烁(标语)屏 在VB中如何创建闪烁(标语)屏
用VB5.0创建Windows快捷方式 用VB5.0创建Windows快捷方式
VB5.0应用程序的启动与退出设计 VB5.0应用程序的启动与退出设计
VB5.0中实现字体闪烁效果 VB5.0中实现字体闪烁效果
用VB尝试新的界面风格 用VB尝试新的界面风格
利用VB三维面板控件设计流动条 利用VB三维面板控件设计流动条
用VB实现浮动按钮 用VB实现浮动按钮
用VB制作即时动态按钮 用VB制作即时动态按钮
2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航
ReadyGo!技术成就梦想