六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB创建程序图标到任务拦

    日期:2019/11/28 15:40:44来源分类:编程开发

    很多朋友都知道如何为一个程序在桌面上建立一个图标,但想在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://www.liuzi.net/bc/html/3944.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员