vb 简单彩色进度条代码 |VB 网|VB 视频教程|VB编程入门网 html简单进度条

vb 简单彩色进度条代码



代码比较简单一看就看出来 他只用了 两种颜色 哈哈 !

保存为 frm 后缀 编译就可以了

VERSION 5.00

Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"

Begin VB.Form Form1

BorderStyle = 1 'Fixed Single

Caption = "彩色进度条"

ClientHeight = 3075

ClientLeft = 45

ClientTop = 435

ClientWidth = 6735

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3075

ScaleWidth = 6735

StartUpPosition = 2 'CenterScreen

Begin MSComctlLib.ProgressBar ProgressBar2

Height = 2055

Left = 240

TabIndex = 4

Top = 240

Width = 255

_ExtentX = 450

_ExtentY = 3625

_Version = 393216

Appearance = 0

Orientation = 1

End

Begin VB.CommandButton Command2

Caption = "开始"

Height = 375

Left = 240

TabIndex = 3

Top = 2400

Width = 1215

End

vb 简单彩色进度条代码 |VB 网|VB 视频教程|VB编程入门网 html简单进度条
Begin VB.Timer Timer1

Interval = 50

Left = 5280

Top = 240

End

Begin VB.CommandButton Command1

Caption = "开始"

Height = 375

Left = 3360

TabIndex = 1

Top = 1440

Width = 1215

End

Begin MSComctlLib.ProgressBar ProgressBar1

Height = 255

Left = 1320

TabIndex = 0

Top = 960

Width = 5175

_ExtentX = 9128

_ExtentY = 450

_Version = 393216

BorderStyle = 1

Appearance = 0

Scrolling = 1

End

Begin VB.Label Label1

Caption = "Label1"

Height = 375

Left = 720

TabIndex = 2

Top = 240

Width = 735

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

'-------------------------------

'彩色进度条

'大家都知道VB里的 进度条颜色只有一种,不免有些单调.

'本例可以实现彩色的进度条,酷!

'作者:徐剑文

'广西机电职业技术学院

'QQ:64445322

'--------------------------------

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

lParam As Any) As Long

Const CCM_FIRST = &H2000

Const CCM_SETBKCOLOR = (CCM_FIRST + 1)

Const PBM_SETBKCOLOR = CCM_SETBKCOLOR

Const WM_USER = &H400

Const PBM_SETBARCOLOR = (WM_USER + 9)

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

ProgressBar1.Value = 0

' Set the ProgressBar Barcolor with black color:

SendMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, ByVal QBColor(2) 'RGB(0, 255, 0)

SendMessage ProgressBar2.hwnd, PBM_SETBARCOLOR, 0, ByVal QBColor(2) 'RGB(0, 255, 100)

'Set the ProgressBar Backcolor with blue color:

SendMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0)

SendMessage ProgressBar2.hwnd, PBM_SETBKCOLOR, 0, ByVal RGB(255, 100, 0)

End Sub

Private Sub Command1_Click()

Dim i As Integer

With ProgressBar1

.Min = 0

.Max = 10000

.Visible = True

For i = 0 To 10000

.Value = i

Next i

If .Value = .Max Then

.Visible = False

MsgBox "安装完毕!", vbInformation, "完毕"

Beep

End If

End With

End Sub

Private Sub Timer1_Timer()

Static Num As Integer

If Num = 0 Then Num = 1

Num = Num + 10

If Num <= 100 Then

ProgressBar2.Value = Num

Label1.Caption = Num & "%"

Else

ProgressBar2.Visible = False

Label1.Visible = False

MsgBox "安装完毕!", vbInformation + vbOKOnly, "完成"

Timer1.Enabled = False

End If

End Sub

  

爱华网本文地址 » http://www.aihuau.com/a/25101011/100021.html

更多阅读

AutoCAD2010视频教程-我要自学网 autocad2010自学网

标 题 日 期 点击第一课:AutoCAD2010基本工具 07/10/2009 15:40:14 1593091.1 AutoCAD2010安装方法 07/10/2009 15:40:12 3632641.2 AutoCAD2010面板介绍 07/10/2009 15:40:10 1990781.3 AutoCAD2010保存与加密方法 07/10/2009 15:40

网易学院视频教程 长沙招聘信息网兼职

首 页系统问题系图像网站系办公应用系编程开发系数字艺术系学院图酷[ 视频中心看精美图片专题集锦学院周刊 ]微软正版软件增值计划 | 最新文章 | 目录树 | 追潮流学Vista | Photoshop制作图像 | 用网易博客建家园 | 提高办公效率操

声明:《vb 简单彩色进度条代码 |VB 网|VB 视频教程|VB编程入门网 html简单进度条》为网友江山赏玩笑分享!如侵犯到您的合法权益请联系我们删除