'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