Spoiler (Click to View)
Do you always wanted to make something like this:





Well I wanted to do it aswell and after some research I found the solution and I am going to share it with you!

Spoiler (Click to View)
The JumpList is basically the ContextMenu of the TaskBar, but with less features. It is still available, when the application is not ran.

So in this sample we will create a Link to a new Application Instance.

Code

Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim jplst As JumpList = JumpList.CreateJumpList()
        jplst.ClearAllUserTasks()

        Dim TaskLink As JumpListLink = New JumpListLink(Assembly.GetEntryAssembly().Location, "Create new Instance")
        TaskLink.IconReference = New IconReference(Assembly.GetEntryAssembly().Location, 0)

        jplst.AddUserTasks(TaskLink)

How it will look:



You can create as many of this items as you want.



You can also add a Seperator for a better overview:

Code

Dim sep As JumpListTask = New JumpListSeparator()
        jplst.AddUserTasks(sep)

As you might notice all these items will be put under the "Aufgaben" or "Tasks", if you want to give that a costum name you need to create a new JumpListCustomCategory.

Code

Dim category As JumpListCustomCategory = New JumpListCustomCategory("System Utilities")

        Dim calculator As JumpListLink = New JumpListLink(Path.Combine(Environment.SystemDirectory, "calc.exe"), "Calculator")
        calculator.IconReference = New IconReference(Path.Combine(Environment.SystemDirectory, "calc.exe"), 0)

        category.AddJumpListItems(calculator)

        jplst.AddCustomCategories(category)
        jplst.Refresh()

Spoiler (Click to View)
With Thumbnail Buttons those little buttons at the bottom are meant.



You can only add 7 Buttons, but that should be enough though.

Code

Dim button As ThumbnailToolBarButton = New ThumbnailToolBarButton(New Icon("skype.ico", 16, 16), "Open Skype")
        TaskbarManager.Instance.ThumbnailToolBars.AddButtons(Me.Handle, button)
        AddHandler button.Click, AddressOf button_click

Code

Sub button_click()
        'Any Code Here
    End Sub

Spoiler (Click to View)
Well you can also make the litte rectangle in your Taskbar act like a progressbar. This is easy aswell:

Code

Dim tbm As TaskbarManager = TaskbarManager.Instance
        tbm.SetProgressValue(50, 100, Me.Handle)
        tbm.SetProgressState(TaskbarProgressBarState.Normal)

It has different states to either make the progressbar color green, red or yellow, depending on abortion, pause etc.

Spoiler (Click to View)
In my eyes this is completely useless, but check it out yourself.

What it does:

-->

Code for this:

Code

tbm.SetOverlayIcon(New Icon("C:\Users\Paul\Pictures\Germany.ico"), "")

(Jun 19, 2014 06:47 AM)sabre Wrote:  Your copying skills for the progress bar are remarkable https://hackforums.net/showthread.php?tid=4271143 but other than that the overlay icon part was very useful.

(Jun 19, 2014 07:25 AM)Only3 Wrote:  i try it b4 but with no luck i have win7 64
maybe http://originaldll.com/file/microsoft.windowsapicodepack.dll/29294.html
"If you use a 64-bit version of Windows, you should also copy microsoft.windowsapicodepack.dll to C:\Windows\SysWOW64"
if any1 try it pls post if its work