如何用VB给指定文件创建桌面快捷方式

vb创建快捷方式有以下几种方法：

1、用fCreateShellLink函数，此方法用户电脑必须有STKIT432.DLL文件。

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName AsString, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub

private Command1_Click()

Dim lReturn As Long

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

End Sub

2、比较常用的是用WshShell对象创建快捷方式，此方法依赖\system32\WSHom.Ocx文件，部分电脑可能关闭了此文件权限，所以用的时候可根据错误，自动注册该组件

Dim nPath As String, sh, ShortCut

on error resume next

Set sh = CreateObject("wscript.shell")

If Err = 429 Then'判断用户电脑是否禁用了WshShell，如果禁用重新注册这个组件

Dim oca As String

oca = Environ("Windir") &"\system32\WSHom.Ocx"

If Dir(oca) = "" Then Exit Function

Shell "regsvr32 """ &oca &""" /s"

Err = 0

Set sh = CreateObject("wscript.shell")

End If

nPath = sh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")'获取当前用户的桌面目录

If Right(nPath, 1) <>"" Then nPath = nPath &"\"

ShortF = nPath &"文本文档.lnk"

Set ShortCut = sh.CreateShortcut(ShortF) '开始创建快捷方式对象

ShortCut.TargetPath = "C:\123.exe" '快捷方式指向的目标文件，写完整路径

ShortCut.Save

3、自己写快捷方式创建控件。此方法代码比较繁琐，网上也有相关实例代码，也是可以参考的一种方式。

有些麻烦，你要先懂得怎么做莱单编辑器在打开一个标准工程后，Alt+T+M

就会出现一个莱单编辑器你可以给这主莱单的“子莱单添”加快捷键，然后再创建一个按钮，调用这个的莱单事件就可以了，比如我截的图的事件Private

Sub

Command1_Click()dd_ClickEnd

SubPrivate

Sub

dd_Click()MsgBox

"你好"End

Sub那么我开始设置的快捷键是ctrl+a，运行时我按了这两个键，就会直接d出你好的对话框了，··········热键比较简单，直接在按钮的caption属性的后面加上”&

A

“这样，运行时按了alt+A就可以了

还有一种比较难懂，##########Private

Declare

Function

GetAsyncKeyState

Lib

"user32"

(ByVal

vKey

As

Long)

As

IntegerPrivate

Sub

Command1_KeyPress(KeyAscii

As

Integer)If

GetAsyncKeyState(vbKeyReturn)

And

GetAsyncKeyState(vbKeyControl)

ThenMsgBox

"你好"'这是按了ctrl和

enter所执行的End

IfEnd

Sub

使用菜单编辑器，两种 方法使用快捷键

1.在名称后加_快捷键（如:文件_(F)  ）,运行时按下ALT+F，就可以打开该菜单，该方法适用一层层打开菜单

2.在编辑菜单项时直接指定，该方法适用直接打开想要的功能

---