用VB在桌面建立快捷方式_如何建立桌面快捷方式
刀豆文库小编猜你可能喜欢“如何建立桌面快捷方式”。
用VB在桌面建立快捷方式（精选6篇）由网友“屠龙公主ovo”投稿提供，下面是小编精心整理的用VB在桌面建立快捷方式，希望能够帮助到大家。
篇1：用VB在桌面建立快捷方式
演示在VB中如何创建一个快捷方式，
Private Declare Function fCreateShellLink Lib “STKIT432.DLL” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click
Dim lReturn As Long
添加到桌面
lReturn = fCreateShellLink(“..\\..\\Desktop”, “Shortcut to Calculator”, “c:\\windows\\calc.exe”, “”)
添加到程序组
lReturn = fCreateShellLink(“”, “Shortcut to Calculator”, “c:\\windows\\calc.exe”, “”)
添加到启动组
lReturn = fCreateShellLink(“\\Startup”, “Shortcut to Calculator”, “c:\\windows\\calc.exe”, “”)
End Sub
篇2：用VB5.0创建Windows快捷方式VB
用 VB 5.0创建Windows快捷方式 作者：吴俊 Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的，可在一些
用VB5.0创建Windows快捷方式
作者：吴俊
Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的。可在一些软件中，还为用户在程序中动态的添加或者删除桌面上的快捷方式的功能。本文所要讲述的就是如何在VB中实现动态添加/删除Windows的快捷方式。
---- 要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库Vb5stkit.dll。在该动态链接库中提供了三个函数OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分别用于创建快捷方式程序组、快捷方式、删除快捷方式。这三个函数的声明形式分别如下：
Private Declare Function OSfCreateShellGroup Lib “Vb5stkit.dll” Alias “fCreateShellFolder” (ByVal lpstrDirName As String) As Long
Private Declare Function OSfCreateShellLink Lib “Vb5stkit.dll” Alias “fCreateShellLink” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String,ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
Private Declare Function OSfRemoveShellLink Lib “Vb5stkit.dll” Alias “fRemoveShellLink” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long
---- 其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:Windowsstart menuprograms”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。
---- 下面的代码具体演示了以上三个函数的用法：
---- 首先在VB下新建“工程”，然后在Form1的“通用”，“声明”部分输入上面列出的函数声明，然后在Form1上添加三个命令按钮，在其Click事件中分别输入：
Private Sub Command1_Click()
Dim lresult As Long
注释：在桌面创建记事本的快捷方式
lresult = OSfCreateShellLink(“....desktop”,
“记事本”, “c:Windows otepad.exe”, “”)
注释：在开始菜单创建记事本的快捷方式
lresult = OSfCreateShellLink(“....start menu”,
“记事本”, “c:Windows otepad.exe”, “”)
注释：在程序菜单的Test程序组下创建记事本的快捷方式
lresult = OSfCreateShellLink(“test”, “记事本”,
“c:Windows otepad.exe”, “”)
End Sub
Private Sub Command2_Click()
Dim lresult As Long
注释：在程序菜单中添加一个名为Test的程序组
lresult = OSfCreateShellGroup(“Test”)
End Sub
Private Sub Command3_Click()
Dim lresult As Long
注释：删除开始菜单上的快捷方式
lresult = OsfRemoveShellLink
(“....start menu”, “记事本”)
注释：删除桌面上的快捷方式
lresult = OsfRemoveShellLink
(“....desktop”, “记事本”)
注释：删除Test程序组下的快捷方式
lresult = OSfRemoveShellLink(“Test”, “记事本”)
End Sub
---- 按F5运行工程1，单击命令按钮就可以看到实际的效果了，
---- 最后还要说明一点，虽然上述代码是在VB5.0下调试的，但同样适用于VB4.0，只是需要将上述声明中的Vb5stkit.dll替换为stkit432.dll。上述代码在Windows98，vb5.0 SP3下通过。
原文转自：www.ltesting.net
篇3：在windows 7桌面建立休眠按钮
随着win7的普及，越来越多的用户都使用上了win7，微软从Windows XP开始，Windows默认不再提供休眠按钮，这使得我们不得不在关机的窗口中按下Shift键，使“待机”变为“休眠”，才能够使其进入休眠状态，
虽然在Windows Vista和Windows7之后，“休眠”功能进行了大幅增强，也变得更加人性化，但是还是略显繁琐，用户需要的仅仅是按两下就完成的休眠功能，网上有很多打补丁或是修改注册表的方法来实现“一键休眠”，但是对于很多菜鸟们还是太麻烦，一个不慎机器就会崩溃。
其实在Windows7中，我们可以通过设置快捷方式解决休眠问题。下面就和小编一起，通过简单的3步帮你建立windows 7的一键休眠按钮。
第一步：单击右键，建立快捷方式
第二步：在弹出的窗口中输入rundll32.exe powrprof.dll,SetSuspendState Hibernate
第三步：点击下一步，填写快捷方式名称，这里小编填写“一键休眠”方便辨认，
这样我们就在桌面上建好了休眠的快捷方式。
大家在点击这个图标时，就可以进入到休眠状态了。
真正意义上的一键休眠
为了让大家实现真正意义上的一键休眠，我们还可以对休眠图标进行设置。
点击休眠图标，右键-属性，在快捷键选项输入F12按钮，然后确定保存就完成了。以后任何时候按下F12键即可迅速使电脑进入休眠状态。
小知识：什么是休眠状态
在使用休眠模式时，你可以关掉计算机，并确信在回来时所有工作（包括没来得及保存或关闭的程序和文档）都会完全精确地还原到离开时的状态。比如说，你浏览的网页、你聊天中的QQ都是保持原来的状态。
篇4：在windows 7桌面建立休眠按钮 一键休眠
从windows xp开始，Windows默认不再提供休眠按钮，这使得我们不得不在关机的窗口中按下 Shift键，使“待机”变为“休眠”，才能够使其进入休眠状态，虽然在Windows Vista和Windows7 之后，“休眠”功能进行了大幅增强，也变得更加人性化，但是还是略显繁琐，用户需要的仅仅是按两下就完成的休眠功能，网上有很多打补丁或是修改注册表的方法来实现“一键休眠”，但是对于很多菜鸟们还是太麻烦，一个不慎机器就会崩溃。
第一步：单击右键，建立快捷方式
第二步：在弹出的窗口中输入rundll32.exe powrprof.dll,SetSuspendState Hibernate
图1第三步：点击下一步，填写快捷方式名称，这里小编填写“一键休眠”方便辨认，
图2这样我们就在桌面上建好了休眠的快捷方式。
图3大家在点击这个图标时，就可以进入到休眠状态了。
真正意义上的一键休眠
为了让大家实现真正意义上的一键休眠，我们还可以对休眠图标进行设置。
点击休眠图标，右键-属性，在快捷键选项输入F12按钮，然后确定保存就完成了。以后任何时候按下F12键即可迅速使电脑进入休眠状态。
小知识：什么是休眠状态
在使用休眠模式时，你可以关掉计算机，并确信在回来时所有工作（包括没来得及保存或关闭的程序和文档）都会完全精确地还原到离开时的状态。比如说，你浏览的网页、你聊天中的QQ都是保持原来的状态。
篇5：在VB 里 巧 用 集 合VB
在VB 里 巧 用 集 合 李 成 俊 赵 文 杰 ---- VB 提 供 一 种 很 有 用 的 数 据 类 型 集 合（Collection）， 她 的 工 作 原 理 类 似 与C 里 的 链 表， 可 以 很 方 便 的 实 现 插 入， 删 除。 并 且 在 使 用 了Key 之 后， 检 索 操 作 也 变 得 非
在VB 里 巧 用 集 合
李 成 俊 赵 文 杰
---- VB 提 供 一 种 很 有 用 的 数 据 类 型 集 合（Collection）。 她 的 工 作 原 理 类 似 与C 里 的 链 表， 可 以 很 方 便 的 实 现 插 入， 删 除。 并 且 在 使 用 了Key 之 后， 检 索 操 作 也 变 得 非 常 简 单。 但 其 编 程 上 的 方 便 却 带 来 了 效 率 上 的 急 剧 下 降（ 尤 其 在 大 数 据 量 时 会 让 你 无 法 忍 受）。 以 下 举 两 个 例 子 来 讨 论 一 下 怎 样 把 集 合 和 数 组 结 合 使 用， 使 程 序 在 方 便 和 效 率 之 间 达 到 一 种平衡。
---- 1 ． 要 求 建 立 一 数 据 结 构， 用 来 保 存 学 生 的 学 号， 姓 名 和 成 绩， 并 在 需 要 时 以 成 绩 的 高 低 按 顺 序 输 出 这 些 信 息。
---- 这 里 我 想 提 供 两 种 解 决 方 法（ 当 然 还 有 其 他 方 法）。
---- 第 一 种： 完 全 用 集 合 来 保 存 数 据。
---- 首 先 定 义 一 个 结 构 如 下（ 该 结 构 同 时 用 与 第 二 种 方 式）
Type tMyType
ID As Long
Name As String
Score As Integer
End Type
再定义类clsData如下
Public ID As Long
Public Name As String
Public Score As Integer
并定义插入函数用来接受数据并插入到数据结构中
Public Function InsertToCol(pData As tMyType)
注释：其中m_ColData保存记录
Dim myClass As New clsData
Set myClass = Nothing
For iLoopCtrl = 1 To m_ColData.Count
If m_ColData(iLoopCtrl).Score
< = pData.Score Then Exit For
Next
myClass.ID = pData.ID
myClass.Name = pData.Name
myClass.Score = pData.Score
If m_ColData.Count = 0 Or iLoopCtrl
= m_ColData.Count Then
m_ColData.Add Item:=myClass
Else
m_ColIndex.Add Item:=myClass,
before:=iLoopCtrl
End If
End Function
这时，对每个记录做处理如下
Public Function OutProcess
For iLoopCtrl = 1 To m_ColData.Count
CurrentID = m_ColData(iLoopCtrl).ID
CurrentName = m_ColData(iLoopCtrl).Name
CurrentScore = m_ColData(iLoopCtrl).Score
注释：对当前记录做相应处理
Next
End Function
---- 第 二 种： 将 数 组 与 集 合 结 合 起 来， 用 数 组 保 存 数 据 而 用 集 合 保 存 排 序 信 息。
---- 首 先 定 义 如 下 变 量
Public m_Array(99) As tMyType
注释：根据需要也可以定义成动态数组
Public m_ColIndex As New Collection
注释：用来保存索引信息
向数组中插入数据的函数如下
Public Function InsertToArray(pData As tMyType)
If iCurIndex > 99 Then Exit Function
For iLoopCtrl = 1 To m_ColIndex.Count
If m_Array(m_ColIndex(iLoopCtrl)).Score
< = pData.Score Then Exit For
Next
If m_ColIndex.Count = 0 Or iLoopCtrl
= m_ColIndex.Count Then
m_ColIndex.Add iLoopCtrl - 1
Else
m_ColIndex.Add iLoopCtrl - 1, before:=iLoopCtrl
End If
m_Array(iCurIndex).ID = pData.ID
m_Array(iCurIndex).Name = pData.Name
m_Array(iCurIndex).Score = pData.Score
iCurIndex = iCurIndex + 1
End Function
这时，对每个记录做处理如下
Public Function OutProcess()
For iLoopCtrl = 1 To m_ColData.Count
I = m_ColData(iLoopCtrl)
CurrentID = m_Array(I).ID
CurrentName = m_Array(I).Name
CurrentScore = m_Array(I).Score
注释：对当前记录做相应处理
Next
End Function
---- ＊ 性 能 分 析
---- 对 于 集 合 来 讲， 随 着 记 录 个 数 的 增 长， 对 集 合 的 操 作 效 率 飞 快 下 降，
因 为， 集 合 按 下 标 查 找 一 记 录 时 首 先 从 集 合 的 头 一 条 记 录 开 始， 顺 序 向 下， 直 到 指 定 的 下 标 位 置。 因 此， 访 问m_ColData(99) 要 比 访 问m_ColData(1) 慢 的 很 多。 而 大 家 都 知 道 数 组 在 内 存 中 是 顺 序 存 放， 因 此， 访 问 某 条 记 录 的 效 率 与 下 标 大 小 无 关。 当 记 录 数 或 每 个 记 录 的 项 目 数 越 大， 效 率 的 提 高 越 明 显。（ 大 家 可 以 自 己 写 一 些 测 试 程 序， 具 体 比 较 以 下 它 们 之 间 的 效 率 差 别， 会 感 到 非 常 惊 讶 的）
---- 2 ． 当 记 录 有 唯 一 关 键 字， 并 经 常 以 这 个 关 键 字 做 查 询 时 可 以 使 用 以 下 方 法。
---- 定 义 用 于 保 存 数 据 的 结 构 和 结 构 数 组
Type tMyType
Item_1 As String
注释：为关键字
Item_2 As String
Item_3 As String
End Type
Public m_Array() As tMyType
Public m_ColIndex As New Collection
注释：用于保存索引的集合
定义用于保存索引信息的类clsIndex如下
Public Item_Key As String
Public ID_OfArray As Integer
当接受到一条记录pData后插入过程如下
Public Function InsertData(pData As tMyType)
Dim myClass As New clsIndex
ID_OfArray = ID_OfArray + 1
m_Array(ID_OfArray).Item_1 = pData.Item_1
m_Array(ID_OfArray).Item_2 = pData.Item_2
m_Array(ID_OfArray).Item_3 = pData.Item_3
myClass.Item_Key = pData.Item_1
myClass.ID_OfArray = ID_OfArray
m_ColIndex.Add Item:=myClass, Key:=pData.Item_1
End Function
那么，当需要以给出的关键字(mKey)
取得数据时，用以下方法实现
Current_Item1 = m_Array(myClass(mKey)
.ID_OfArray).Item_1
Current_Item2 = m_Array(myClass(mKey)
.ID_OfArray).Item_2
Current_Item3 = m_Array(myClass(mKey)
.ID_OfArray).Item_3
原文转自：www.ltesting.net
篇6：在VB 应 用 程 序 中 控 制Win95 的 启 动VB
在VB 应 用 程 序 中 控 制Win95 的 启 动 新 疆 钢 铁 集 团 公 司 自 动 化 技 术 公 司 王 卫 ---- 在 用Visual Basic 编 写Win95 应 用 程 序 时， 有 时 可 能 希 望 由 程 序 来 控 制 计 算 机 的 启 动 功 能， 比 如 当 应 用 程 序 对 系 统 注 册
在VB 应 用 程 序 中 控 制Win95 的 启 动
新 疆 钢 铁 集 团 公 司 自 动 化 技 术 公 司
王 卫
---- 在 用Visual Basic 编 写Win95 应 用 程 序 时， 有 时 可 能 希 望 由 程 序 来 控 制 计 算 机 的 启 动 功 能， 比 如 当 应 用 程 序 对 系 统 注 册 表 作 了 修 改 后 需 要 重 新 启 动Win95，
---- 那 么， 如 何 在 应 用 程 序 中 控 制Win95 的 启 动 呢 ？ 由 于Visual Basic 自 身 没 有 提 供 相 关 的 命 令 和 函 数， 我 们 只 好 求 助 于Windows API 函 数ExitWindowsEx， 调 用 该 函 数， 我 们 可 以 完 成 重 新 启 动、 关 机、 强 制 关 闭 所 有 应 用 程 序 或 重 新 登 录 等 操 作， 下 面 是 该 函 数 的 函 数 声 明：
Declare Function ExitWindowsEx Lib
“user32” (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
---- ExitWindowsEx 函 数 有 两 个 参 数， 其 中 第 二 个 为 保 留 参 数， 第 一 个 参 数uFlags 用 来 决 定 调 用 函 数 时 的 具 体 动 作， 可 能 的 取 值 和 含 义 见 下 表：
U flags的值含义
0 重新登录
1 关闭计算机
2 重新启动
4 强制关闭所有应用程序
---- 下 面 以 一 个 小 程 序 为 例， 介 绍 如 何 在 程 序 中 控 制Win95 的 启 动：
---- 新 建 一 个 工 程， 添 加 一 个 普 通 窗 体Form1， 在 窗 体 上 放 置 一 个Frame. 控 件Frame1、 一 个 命 令 按 钮 控 件Command1 和 一 个 包 含4 个 元 素 的 选 项 按 钮 控 件 数 组Option1，
再 给 工 程 添 加 一 个 代 码 模 块Module1， 在 其
---- 中 写 上 如 下 的 声 明（ 注 意ExitWindowsEx 的 函 数 声 明 必 须 写 在 一 行 上）：
Public Const LOGOFF = 0
Public Const SHUTDOWN = 1
Public Const REBOOT = 2
Public Const CLOSEPROGRAMES = 4
Declare Function ExitWindowsEx Lib “user32”
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
在窗体Form1的代码模块中编写
Command1的Click事件过程如下：
Private Sub Command1_Click()
Dim How As Long
If Option1(0).Value = True Then
How = LOGOFF 注释：选择了重新登录
ElseIf Option1(1).Value = True Then
How = REBOOT 注释：选择了重新启动
ElseIf Option1(2).Value = True Then
How = SHUTDOWN 注释：选择了关闭计算机
Else
How = CLOSEPROGRAMES 注释：选择了关闭所有程序
End If
Call ExitWindowsEx(How, 0) 注释：执行操作
End Sub
---- 按 下F5， 运 行 本 程 序， 选 择 某 个 功 能， 然 后 按 下 确 认 按 钮， 嘿 ！ 不 错 吧。 本 程 序 用Visual Basic 5.0 编 写， 在Pwin95 和Pwin97 环 境 下 运 行 正 常。
原文转自：www.ltesting.net
右键发送到"桌面快捷方式"等没了的解决办法巧巧电脑网络 2006-05-16kgdiw 论坛 收藏此文大 中 小解决右键发送到问题在“C:＼WINDOWS＼SendTo”（2000及XP为C:\Documents and S......
右键发送到"桌面快捷方式"等没了的解决办法巧巧电脑网络 2006-05-16kgdiw 论坛 收藏此文大 中 小解决右键发送到问题在“C:＼WINDOWS＼SendTo”（2000及XP为C:\Documents and S......
计划是指为了实现特定目标而制定的一系列有条理的行动步骤。我们在制定计划时需要考虑到各种因素的影响，并保持灵活性和适应性。那么下面我就给大家讲一讲计划书怎么写才比较......
计划是人们为了实现特定目标而制定的一系列行动步骤和时间安排。计划怎么写才能发挥它最大的作用呢？下面我帮大家找寻并整理了一些优秀的计划书范文，我们一起来了解一下吧。桌......
用VB构建Internet的应用 Internet技术的发展为编程人员提供了更广泛的施展身手的空间。早先"Internet应用程序"这个词仅仅只是指一些用FTP协议下载文件或浏览HTML页面的工......
