VB.NET如何实现Win7任务栏进度条新特性

下载并引用 WindowsAPICodePack
Imports Microsoft.WindowsAPICodePack.Taskbar
先定义
Public windowsTaskbar As TaskbarManager = TaskbarManager.Instance ' 滚动条
下面是TIMER 下的自动走进度的效果，自己测试下
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim state As TaskbarProgressBarState = CType(System.Enum.Parse(GetType(TaskbarProgressBarState), CStr(TaskbarProgressBarState.Paused)), TaskbarProgressBarState)
windowsTaskbar.SetProgressState(state)
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = ProgressBar1.Value + 1
windowsTaskbar.SetProgressState(state)
windowsTaskbar.SetProgressValue(ProgressBar1.Value, 100) '任务栏图标显示滚动条
End Sub