vbnet创建快捷方式的简单介绍

vb.net的安装和部署的快捷方式问题

某某.exe”程序集，选择“创建某某.exe的快捷方式”,修改成你要的名称。

创新互联专业IDC数据服务器托管提供商，专业提供成都服务器托管，服务器租用，服务器托管，服务器托管，成都多线服务器托管等服务器托管服务。

2.选择“创建某某.exe的快捷方式”属性：Icon（表示快捷方式图标），选择“浏览”弹出“图标”窗体：

添加ico图标

3.选择“创建某某.exe的快捷方式”属性：Folder（表示 在哪里的快捷方式）。弹出“选择文件夹”窗体：

“用户桌面”表示：在桌面上的快捷方式；

“用户的‘程序’菜单”表示：在开始菜单中的快捷方式

小弟表达能力不行，如果兄弟不明白，俺给你抓图，程序打包我也搞了好几天

在VB。NET中怎么样给按钮添加快捷键

如果是用Alt组合健，最简单的方法就是，在按钮的Text属性里加个符合，比如想用Alt+A来控制Button1的话，就在Button1的Text属性上加一个A即可。比如Text属性是“我是按钮(A)”，如图所示，那么在按下Alt+A就可以执行Button1_Click命令了，呵呵

vb.net怎么设置快捷键

新建一个Form1把Form1的KeyPreview改成True

拖入一个Button1到Form1上面

然后加入以下代码

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

If e.KeyData = (Keys.Alt Or Keys.G) Then

Button1.PerformClick() '或者用Button1_Click(Nothing, New EventArgs)

'快捷键Alt+G触发Button1_Click()事件。

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Button1.Size = New Size(180, 23)

Button1.Text = "我被局部快捷键给召唤了~"

End Sub

vb.net怎么写代码给指定的硬盘里的文件创建桌面快捷方式

简单啊，可以调用命令行，不要死脑筋哦

[InternetShortcut] "E:\guiminer.url"

URL="E:\guiminer.exe" "E:\guiminer.url"

IconIndex=0 "E:\guiminer.url"

IconFile="E:\guiminer.exe" "E:\guiminer.url"

如何用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、自己写快捷方式创建控件。此方法代码比较繁琐，网上也有相关实例代码，也是可以参考的一种方式。