vb进度条代码下载（vb6进度条）

本篇文章给大家谈谈vb进度条代码下载，以及vb6进度条对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB下载百分比和进度条问题
• 2、VB中time控件和进度条的代码
• 3、VB如何实现进度条
• 4、VB：关于进度条代码的疑问
• 5、VB怎么制作进度条？
• 6、VB写一个显示进度条的下载器

VB下载百分比和进度条问题

例子：打开这个程序时！运行这个进度条！！这个进度条要显示％之几的数字！显示完后form2.show ! !

代码如下：

Private Sub Form_Load()

ProgressBar1.Value = 0 ‘进度为0

End Sub

Private Sub Timer1_Timer()

If ProgressBar1.Value 100 Then ’如果值小于100

ProgressBar1.Value = ProgressBar1.Value + 1 ‘加1

Else: form2.show ’否则显示窗体2

unload me ‘关闭当前窗体

End If

End Sub

放一个 TIME控件 一个 进度控件（部件 -- microsoft windows common controls 6.0）

VB中time控件和进度条的代码

Private Sub Form_Load() ‘窗体加载时执行此段代码

ProgressBar1.Min = 0‘进度条最小值为0

ProgressBar1.Max = 10 '进 度条最大值为10

ProgressBar1.Value = 0 ‘定义进度条的当前值 为0

Timer1.Interval = 250 ’定义每250毫秒执行一次timer事件

Timer1.Enabled = False ‘定义时钟不响应

ProgressBar1.Visible = False ’进度条不可见

End Sub

Private Sub Command1_Click() '按钮单击是执行此段代码

Timer1.Enabled = True 计时器打开

ProgressBar1.Visible = True 进度条可见

End Sub

Private Sub timer1_timer() '计时器打开时 每250毫秒执行一次此段代码

If ProgressBar1.Value ProgressBar1.Max Then '判断 如果进度条的当前值 10 则

ProgressBar1.Value = ProgressBar1.Value + 1 '进度条的当前值=当前值+1

Else 否则

ProgressBar1.Visible = False '进度条不可见

End If 判断结束

If ProgressBar1.Value = ProgressBar1.Max Then ' 判断 如果进度条的值=10 则

Form2.Show ' 窗体form2打开

End If ' 判断结束

End Sub

分太少了点！

VB如何实现进度条

VB实现进度条的方法只需要5个步骤就可以。

1．首先，编写一个程序框架，如下所示。

2．然后您可以在这里输入各种语句，如下所示。

3．然后找到两个语句块的中间部分，如下图所示。

4．输入语句［Exitsub］，如下所示。

5．最后，您可以运行测试并解决实现进度条的问题，如下所示。

注意事项：

VB背后的思想是让程序员（新手和专家）都能轻松使用它。VB使用的GUI系统可以很容易地构建应用程序，但是可以开发相当复杂的程序。

VB的程序是基于表单的可视化组件安排的联合，并添加代码来指定组件的属性和方法。因为组件中已经定义了一些默认属性和方法，所以程序员不需要编写太多代码就可以完成一个简单的程序。

VB程序可以包含一个或多个表单，或者一个主表单和多个子表单，类似于操作系统。功能很少的对话框窗口（例如没有最大化和最小化按钮的表单）可以用来提供弹出功能。

VB使用参数计算方法进行垃圾回收，它包含大量的对象，提供了基本的面向对象支持。随着越来越多的组件可用，程序员可以选择需要哪些扩展库。

VB使大量的外部控件有了自己的生存空间。VB中有许多第三方控件。VB还提供了创建、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另一个控件并不容易。

VB：关于进度条代码的疑问

楼上说的比较明确，这些都是WINDOWS API，用于其他程序调用的 。CreateRoundRectRgn

The CreateRoundRectRgn function creates a rectangular region with rounded corners.

定义

HRGN CreateRoundRectRgn(int nLeftRect, int nTopRect, int nRightRect, int nBottomRect, int nWidthEllipse, int nHeightEllipse);

参数

nLeftRect

[in] Specifies the x-coordinate of the upper-left corner of the region in logical units.

nTopRect

[in] Specifies the y-coordinate of the upper-left corner of the region in logical units.

nRightRect

[in] Specifies the x-coordinate of the lower-right corner of the region in logical units.

nBottomRect

[in] Specifies the y-coordinate of the lower-right corner of the region in logical units.

nWidthEllipse

[in] Specifies the width of the ellipse used to create the rounded corners in logical units.

nHeightEllipse

[in] Specifies the height of the ellipse used to create the rounded corners in logical units.

返回值

If the function succeeds, the return value is the handle to the region.

If the function fails, the return value is NULL.

Windows NT/2000/XP: To get extended error information, call GetLastError.

说明

Region coordinates are represented as 27-bit signed integers.

系统要求

Windows NT/2000/XP: Included in Windows NT 3.1 and later.

Windows 95/98/Me: Included in Windows 95 and later.

Header: Declared in Wingdi.h; include Windows.h.

Library: Use Gdi32.lib.

以上为MSDN解释!~

VB声明:

Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

说明:

创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，并由X3，Y3确定的椭圆描述圆角弧度 返回值 Long，执行成功则为区域句柄，失败则为0

参数表 参数 类型及说明:

X1,Y1 Long，矩形左上角的X，Y坐标

X2,Y2 Long，矩形右下角的X，Y坐标

X3 Long，圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆）

Y3 Long，圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆）

注解

不用时一定要用DeleteObject函数删除该区域

用该函数创建的区域与用RoundRect API函数画的圆角矩形不完全相同，因为本矩形的右边和下边不包括在区域之内

以下资料来自网上,希望对你有帮助!!

关于API函数的书!市场上太少了!就算是有,也介绍得很粗浅!你到书店好好找找!我没有API函数的好书介绍给你!

谈一下我的心得吧:

首先，有必要向大家讲一讲，什么是API。API是包含在一个附加名为DLL的动态连接库文件中的。用标准的定义来讲，API就是Windows的32位应用程序编程接口，是一系列很复杂的函数，消息和结构，可以说，如果你曾经学过VC，那么API对你来说不是什么问题。但是如果你没有学过VC，或者你对Windows95的结构体系不熟悉，那么可以说，学习API将是一件很辛苦的事情。

如果你打开WINDOWS的SYSTEM文件夹，你可以发现其中有很多附加名为DLL的文件。一个DLL中包含的API函数并不只是一个，数十个，API函数总共大约有110多个。如果要全部掌握!那你非下苦功不可,但实际上，我们真的没必要都掌握，只要重点掌握Windos系统本身自带的API函数就可以了。我可以敢跟你说，只要你熟悉地掌握100个，那么你的编程水平比现在高出至少要两倍。API函数和WINDOWS具有密切的关系，如果你学会了API，首要的收获便是对WINDOWS体系结构的认识。这个收获是来自不易的。

如果你不依靠API会怎么样?我可以跟你说，绝大多是高级编程书本(当然这不是书的名程叫高级而高级的，而是在一开始的《本书内容》中指明《本书的阅读对象是具有一定VB基础的读者》的那些书)，首先提的问题一般大都是从API开始。因此可以说，你不学API，你大概将停留在初级水平，无法往上攀登。

很多API函数都是很长很长的。想看什么样子吗?如下就是作为例子的API DdeClientTransaction函数∶

Declare Function DdeClientTransaction Lib "user32" (pData As Byte, ByVal cbData As Long, ByVal hConv As Long, ByVal hszItem As Long, ByVal wFmt As Long, ByVal wType As Long, ByVal dwTimeout As Long, pdwResult As Long) As Long

哇！这么长?如果你从来没有接触过API，我想你肯定被吓住了。你也许考虑，该不该继续学下去。不过不要担心，幸运的是Microsoft的设计家们为我们提供了有用的工具，这便是API

文本查看器。

通过API文本查看器，我们可以方便地查找程序所需要的函数声明、结构类型和常数，然后将它复制到剪贴板，最后再粘贴到VB程序的代码段中。在大多数情况下，只要我们确定了程序所需要的函数、结构和常数这三个方面后，就可以通过对API文本游览器的以上操作将他们加入到程序段中，从而程序中可以使用这些函数了。这些是学习API最基本的常识问题，它远远占不到API的庞大的体系内容。今后我们把精力浪费(这绝不是浪费)在哪里呢?那就是∶

什么时候使用什么函数，什么时候使用什么结构类型，什么时候使用什么常数。

API函数声明 [返回]

让我们回想一下。在VB中，如何声明函数呢?我想，如果你正在看此文，那么你绝对能够回答得出这个问题。以下便是你应该很熟悉的函数声明∶

Function SetWindowRgn Lib "user32"Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

即，这行代码定义了名为SetWindowRgn的函数,此函数具有一个Long型数据类型的参数，并按值传递(ByVal),函数执行后将返回一个Long型数据。

API函数的声明也很类似，如，API中的SetWindowRgn 函数是这样写的∶

Public Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Declare 语句用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。对此，你只要记住任何API函数声明都必须写这个语句就可以了。

Iib 指明包含所声明过程或函数的动态链接库或代码资源。也就是说，它说明的是，函数或过程从何而来的问题。

如在上例中，SetWindowRgn Lib "user32"说明 函数 SetWindowRgn 来自 user32.dll文件。主要的dll动态连接库文件有∶

user32.dll Windows管理。生成和管理应用程序的用户接口。

GDI32.dll 图形设备接口。产生Windows设备的图形输出

Kernel32.dll 系统服务。访问操作系统的计算机资源。

注意，当DLL文件不在Windows或System文件夹中的时候，必须在函数中说明其出处(

路径)。如，SetFocus Lib "c:\Mydll\user32"

函数声明中的Alias 是可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称(别名)。如，Alias "SetWindowRgn" ，说明SetWindowRgn函数在User32.dll中的另外一个名称是，

SetWindowRgn。怎么两个名都一样呢?当然，也可以是不同的。在很多情况下，Alias说明的函数名，即别名最后一个字符经常是字符A，如SetWindowsText函数的另一个名称是

SetWindowsTextA,表示为Alias "SetWindowsTextA"。这个A只不过是设计家们的习惯的命名约定，表示函数属于ANSI版本。

需要注意的是，不是所有的API函数都有别名.选用Alias的时候，应注意别名的大小写；如果不选用Alias 时的时候，函数名必须注意大小写，而且不能改动。当然，在很多情况下，由于函数声明是直接从API

文本游览器中拷贝过来的，所以这种错误的发生机会是很少的，但您有必要知道这一点。

最后提醒你一句，API声明(包括结构、常数)必须放在窗体或模块的"通用(General Declarations)段。

数据类型与"类型安全" [返回]

API函数中使用的数据类型基本上和VB中的一样。但作为WIN32的API函数中，不存在Integer

数据类型。另外一点是在API函数中看不到Boolean数据类型。 Variant数据类型在API函数中是以Any的形式出现，如Data As Any。尽管其含义是允许任意参数类型作为一个该API函数的参数传递，但这样做存在一定的缺点。其原因是，这将会使得对目标参数的所有类型检查都会被关闭。这自然会给各种类型的参数调用带来了产生错误的机会。

要学好API函数,还得靠自己去慢慢琢磨,勤钻勤练,领会各个API函数的功能和用法!在实际应用中自然会得心应手,游刃有余!

API函数大全:

;SID=26ID=1102

API函数系统编程教程:

API函数经典教程合集:

VB怎么制作进度条？

进度条控件的位置：

1.在控件工具箱中右键=部件。

2.在“部件”窗口中勾选Microsoft

windows

common

controls

5.0或6.0。单击确定。

3.然后控件工具箱中就有进度条了。

改变样式方法：（我暂时只知道这种）

下载一个SkinH，下载的文件夹里面有使用方法哦~（并且会优化所有控件及窗体）

注意事项：

1.使用时避免使用End语句，会出错。（虽说生成EXE文件不会出错，但影响调试）

2.使用时若出现实时错误点击工具栏的停止也会出错……

3.所以最好程序完工后再加上换肤代码=

=

我可能不是你说的“把文件删除了它的进度条又变成普通的那种了”，但是是最贴合的方法了！

VB写一个显示进度条的下载器

bkDLControl 这个控件网上很多人用的,它就可以显示一个进度条, 并且还能得到速度 之类的信息 不过这个不是真正的HTTP 下载,只是利用了UserControl 的一个小功能.

vb进度条代码下载的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb6进度条、vb进度条代码下载的信息别忘了在本站进行查找喔。