vb6.0 如何做任务栏进度条?望大神指教,谢谢。
发布网友
发布时间：2024-10-06 12:24
共3个回答
热心网友
时间：2024-10-12 19:34
在Form上添加两个Label控件（Label1和Label2）和一个Timer控件（Timer1）。
在Form的Load事件中，初始化进度条并启动Timer控件。例如：
Private Sub Form_Load()
ProgressBarWidth = 0
Timer1.Enabled = True
End Sub
在Timer1的Timer事件中，每秒更新进度条。例如：
Private Sub Timer1_Timer()
ProgressBarWidth = ProgressBarWidth + 10
If ProgressBarWidth > Label1.Width Then
ProgressBarWidth = Label1.Width
Timer1.Enabled = False
End If
Label1.Width = ProgressBarWidth
End Sub
创建一个变量（如ProgressBarWidth）来存储进度条的宽度，并在每次Timer事件触发时增加其值，直到达到Label1的宽度为止。当进度条完成时，禁用Timer控件。
请注意，这只是一个简单的示例，你可以根据需要调整进度条的速度、宽度和样式。另外，为了更好地模拟进度条效果，你可能还需要在Label1的背景色或前景色上做一些调整1。
热心网友
时间：2024-10-12 19:29
' 引用 Windows API 函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
' 定义任务栏图标相关的结构体
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
dwState As Long
dwStateMask As Long
szInfo As String * 256
uVersion As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
' 常量定义
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_INFO = &H10
' 全局变量
Private NotifyIconData As NOTIFYICONDATA
Private Sub Form_Load()
'始化任务栏图标数据
With NotifyIconData
.cbSize = Len(NotifyIconData)
.hwnd = Me.hWnd
.uID = 1
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = "任务栏进度条示例"
End With
'加任务栏图标
Shell_NotifyIcon NIM_ADD, NotifyIconData
End Sub
Private Sub Form_Unload(Cancel As Integer)
'除任务栏图标
Shell_NotifyIcon NIM_DELETE, NotifyIconData
End Sub
Private Sub Timer1_Timer()
Dim progress As Integer
progress = progress + 10 '拟进度增加
If progress > 100 Then progress = 0 '度满后重置
'新任务栏图标提示信息显示进度
With NotifyIconData
.szInfo = "进度: " & progress & "%"
.dwInfoFlags = 0
.szInfoTitle = "任务进度"
Shell_NotifyIcon NIM_MODIFY, NotifyIconData
End With
End Sub
' 处理鼠标移动消息
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN '标左键单击
MsgBox "您单击了任务栏图标"
Case WM_RBUTTONDOWN '标右键单击
PopupMenu mnuPopup '出右键菜单
End Select
End Sub
' 定义菜单
Private Sub mnuExit_Click()
Unload Me
End Sub
热心网友
时间：2024-10-12 19:34
• Shell32.dll：用于Shell_NotifyIcon函数。
• Oleacc.dll：用于COM接口。
2. 声明ITaskbarList3接口： 你需要使用CreateObject来创建TaskbarList对象并将其转换为ITaskbarList3接口。
3. 调用HrInit方法： 初始化ITaskbarList3接口。
4. 调用SetProgressValue和SetProgressState方法： 更新进度条的值和状态。
下面是VB6中实现这一功能的代码片段示例：
' 导入必要的库
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
' 定义NOTIFYICONDATA结构体
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
guidItem As GUID
End Type
' GUID结构体定义
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4 As Byte * 8
End Type
' 创建TaskbarList对象
Dim m_oTaskBarList As Object
Set m_oTaskBarList = CreateObject("Shell.TaskbarList")
' 初始化TaskbarList对象
m_oTaskBarList.HrInit
' 更新任务栏进度条
Sub UpdateTaskbarProgress(value As Long, max As Long)
m_oTaskBarList.SetProgressValue Me.hWnd, value, max
m_oTaskBarList.SetProgressState Me.hWnd, TBPF_NORMAL
End Sub
