我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

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创建快捷方式的简单介绍
分享网址:http://shouzuofang.com/article/hhephg.html

其他资讯