锐客网

  1. 首页 > 睿知 > it技术 > >

包含vbnet创建快捷方式的词条

IT技术快捷键

vb.net怎么设置快捷键新建一个Form1把Form1vbnet创建快捷方式的KeyPreview改成True
拖入一个Button1到Form1上面
然后加入以下代码
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
【包含vbnet创建快捷方式的词条】If e.KeyData = https://www.04ip.com/post/(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 = "vbnet创建快捷方式我被局部快捷键给召唤vbnet创建快捷方式了~"
End Sub
如何用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 LongSub
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、自己写快捷方式创建控件 。此方法代码比较繁琐，网上也有相关实例代码 ， 也是可以参考的一种方式 。
在VB 。NET中怎么样给按钮添加快捷键如果是用Alt组合?。?最简单vbnet创建快捷方式的方法就是，在按钮的Text属性里加个符合，比如想用Alt+A来控制Button1的话，就在Button1的Text属性上加一个A即可 。比如Text属性是“vbnet创建快捷方式我是按钮(A)”，如图所示，那么在按下Alt+A就可以执行Button1_Click命令了，呵呵
vb.net的安装和部署的快捷方式问题某某.exe”程序集，选择“创建某某.exe的快捷方式”,修改成你要的名称 。
2.选择“创建某某.exe的快捷方式”属性：Icon（表示快捷方式图标），选择“浏览”弹出“图标”窗体：
添加ico图标
3.选择“创建某某.exe的快捷方式”属性：Folder（表示 在哪里的快捷方式） 。弹出“选择文件夹”窗体：
“用户桌面”表示：在桌面上的快捷方式；
“用户的‘程序’菜单”表示：在开始菜单中的快捷方式
小弟表达能力不行，如果兄弟不明白，俺给你抓图，程序打包我也搞了好几天
vb创建快捷方式给你一个简单的：
Private Sub Command1_Click()
Dim WshShell As Variant, oMyShortcut As Variant
Set WshShell = CreateObject("Wscript.shell")
Set oMyShortcut = WshShell.CreateShortcut(App.Path"\新建文件夹\窗口化.lnk") '此处为快捷名称

推荐阅读


上一篇：jquery判断某个id的标签是否存在，jquery判断标签类型

下一篇：word怎么打印a3，word怎么打印a3书籍折页