vb.net 快捷启动栏添加图标【锁定到任务栏】

最新推荐文章于 2024-11-25 10:39:32 发布

原创最新推荐文章于 2024-11-25 10:39:32 发布 · 632 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vim #html5 #物联网

VB.Net 专栏收录该内容

56 篇文章

订阅专栏

该代码示例展示了如何在VB.NET中使用Shell32库来实现程序快捷图标在任务栏的锁定和解锁功能。用户可以通过点击按钮来执行锁定或解锁操作，系统会给出相应的成功或失败提示。

'vb.net 快捷启动栏添加本程序快捷图标【锁定到任务栏】

Imports Shell32 '首先引用Microsoft Shell Controls And Automation
Imports System.IO
Public Class Form1

    Public Shared Function LockApp(ByVal isLock As Boolean, ByVal appPath As String) As Boolean
        Dim shell As New Shell32.Shell
        Dim folder As Folder = shell.NameSpace(Path.GetDirectoryName(appPath))
        Dim app As FolderItem = folder.ParseName(Path.GetFileName(appPath))
        Dim sVerb As String = If(isLock, "锁定到任务栏(&K)", "从任务栏脱离(&K)")

        For Each Fib As FolderItemVerb In app.Verbs()
            If Fib.Name = sVerb Then
                Fib.DoIt()
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim appPath As String = Application.ExecutablePath
        If LockApp(True, appPath) Then
            MsgBox("锁定程序成功")
        Else
            MsgBox("锁定程序失败")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim appPath As String = Application.ExecutablePath
        If LockApp(False, appPath) Then
            MsgBox("解锁程序成功")
        Else
            MsgBox("解锁程序失败")
        End If
    End Sub
End Class