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、自己写快捷方式创建控件。此方法代码比较繁琐,网上也有相关实例代码,也是可以参考的一种方式。
分享文章:vbnet创建快捷方式的简单介绍
标题URL:http://scyanting.com/article/hhephg.html