VB编程：(钉)创建程序图标到win7的超级任务栏

很多朋友都知道如何为一个程序在桌面上建立一个图标，但想在WIN7的超级任务栏里也建立一个程序图标。其实钉一个程序图标到WIN7任务栏里，只要一行代码就行了，同样，解除一个WIN7任务栏上的图标也只要一行代码。

这个功能是依靠ShellExecute来做的。

所以，先在窗体的模块输入代码：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                          (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

然后，在窗体建两个按钮控件，在两个按钮点击事件，加入一行代码：
（先假定你的电脑桌面地址是 C:\Users\Administrator\Desktop 并且你的桌面有腾讯QQ这个快捷方式）

Private Sub Command1_Click()
Call ShellExecute(0, "taskbarpin", "C:\Users\Administrator\Desktop\腾讯QQ.lnk", 0, 0, 0) '钉图标到win7任务栏
End Sub

Private Sub Command2_Click()
Call ShellExecute(0, "taskbarunpin", "C:\Users\Administrator\Desktop\腾讯QQ.lnk", 0, 0, 0)’从win7任务栏解除图标
End Sub

-------------------------------
其实也可以用ShellExecute把程序图标钉在开始菜单以及取消固定在开始菜单，也只要一行代码。
你先在窗体画两个按钮，即Command3,Command4,输入以下代码：

Private Sub Command3_Click()
Call ShellExecute(0, "startpin", "C:\Users\Administrator\Desktop\腾讯QQ.lnk", 0, 0, 0) '钉图标到win7开始菜单
End Sub

Private Sub Command4_Click()
Call ShellExecute(0, "startunpin", "C:\Users\Administrator\Desktop\腾讯QQ.lnk", 0, 0, 0)’从win7开始菜单解除图标
End Sub

也先假定你的电脑桌面地址是 C:\Users\Administrator\Desktop 并且你的桌面有腾讯QQ这个快捷方式，如果不是，上述代码的参数按实际情况稍改一下就行了。
以上代码要注意，第三个参数，是程序的快捷方式的地址，不是程序EXE的地址。
以上代码在win7测试通过。
以上代码startpin/startunpin在windows8下无效。
以上代码在Win10无效。

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb98.com/post/17.html