Alert icon
We're changing our privacy policy. This stuff matters.  Learn more  Dismiss

[VB2008] Windows 7 Jump list

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
1,169
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on May 4, 2010

[TUTORIAL]
Hi, today I show you how to make the Windows 7 Jump list in Visual Basic 2008.

[DOWNLOAD]
DLLs Download Link:
http://www.2shared.com/file/qKCc6lK-/DLLs.html

[CODE]
Imports Microsoft.WindowsAPICodePack.Taskbar
Imports Microsoft.WindowsAPICodePack.Shell
Public Class Form1 Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Dim MyJumpList As JumpList MyJumpList = JumpList.CreateJumpList() MyJumpList.ClearAllUserTasks() Dim Link0 As New JumpListLink("cmd.exe", "Cmd") With {.IconReference = New IconReference("cmd.exe", 0)} Dim Link1 As New JumpListLink("Calc.exe", "Calculator") With {.IconReference = New IconReference("Calc.exe", 0)} MyJumpList.AddUserTasks(Link0) MyJumpList.AddUserTasks(New JumpListSeparator()) MyJumpList.AddUserTasks(Link1) Dim Link2 As New JumpListLink("Notepad.exe", "Notepad") With {.IconReference = New IconReference("Notepad.exe", 0)} Dim Category As New JumpListCustomCategory("New Category 1") Category.AddJumpListItems(Link2) MyJumpList.AddCustomCategories(Category) Dim Link3 As New JumpListLink("mspaint.exe", "Paint") With {.IconReference = New IconReference("mspaint.exe", 0)} Category.AddJumpListItems(Link3) MyJumpList.KnownCategoryToDisplay = JumpListKnownCategoryType.Frequent MyJumpList.Refresh() End Sub
End Class


[END]
Hope you enjoy it; Thanks for watching.

  • likes, 1 dislikes

Link to this comment:

Share to:
see all

All Comments (2)

Sign In or Sign Up now to post a comment!
Loading...

Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more