当前位置:首页 » 程序代码 » 正文

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

VB代码  API  
    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号