vb进度条，vb进度条控件

窗体在加载时是没办法判断加载了多少vb进度条的如果希望显示加载进度一般应这样做设一个全局变量假定是Nload 之后在加载需要长时间加载vb进度条的窗体的load事件里自己找一些地方vb进度条，写上Nload=10 Nload=20 Nload=另外Nload后面要写上doevents 之后就可以通过变量 NLoad来判断这个窗体大概装载到什么位置了添加；bkDLControl 这个控件网上很多人用的，它就可以显示一个进度条， 并且还能得到速度 之类的信息 不过这个不是真正的；用picturebox或shape控件代替，用更改宽度来控制 使用。

给你举个例子，是改进度条颜色滴，自己延伸下吧~Option Explicit Private Declare Function SendMessage Lib quotuser32quot Alias quotSendMessageAquot _ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， _lParam As Any As Long Private Const WM_USER = H400 Private Const PBM_SET；Picture1Line X， 0－ScaleWidth， ScaleHeight， vbWhite， BF End With End Sub 以上是实现第一类进度条的全部代码，它有相当的独立性，不管你准备的进度条有多长，此代码都可无须改变而应用于你的系统中其中，MAXVALUEMINVALUE为此进度条所表示的最大最小值，可由实际应用而定PRO；在循环里要增加一条闲置语句不然，程序一直忙着循环，而来不及向显卡发送数据回答补充1在fornext之间任何位置都可以，当然，你的也可以2原因就是在每次执行循环到这里留出空闲响应其vb进度条他任务，在这里就表现为刷新显示3速度应该略有影响，但不会太大因为刷新占用cpu很少，使用完立刻。

你问的是vbnet读取数据库时假死不显示进度条怎么办吧，在循环代码中加一句DoEvents语句根据微软公司的资料得知，这是一种bug，只要在循环代码中加一句DoEvents语句即可VBNet是一种简单，现代，面向对象的计算机编程语言，由微软开发；利用线程，和计时器，Function GetFolderSize从网上借鉴的，不知道为什么IO类不支持不同分区移动，所以移动目录只能在相同分区，设计界面如图，代码如下 Imports SystemThreading Imports SystemIO Imports SystemText Public Class Form1 Dim SourceDir， DestDir As String Dim SourceLen As Integer #39返回；Private Sub Command1_ClickFor i = 1 To 100 s = s + i ProgressBar1Value = ProgressBar1Value+1 #39这里的进度是显示的是i进度，即每执行一次进度条前进一个 next i END FOR END SUB Private Sub Form_LoadDim i As Integer， s As Integer ProgressBar1Min = 0 ProgressBar1。

在事件过程中用滚动条的Value属性获得滑块在滚动条中的位置，根据这个位置决定其他控件中显示的内容应该滚动到什么位置进度条progressbarprogressbar重要属性如下min进度条的起始值也就是取小值，如1 max进度条的终止值也就是最大值，如100value任务进展到哪个数，即进度条的填充值visib；假如那个进度条名字为ppp 那么要让进度条的进度在50% 设置 pppmax=100，pppmin=0 进度条最大值100 最小值0 pppvalue = 50 进度条的当前值为50%这样就让进度条的进度在50%了 当然Max，Min值可以在属性里面直接初始设置 就不用在程序运行过程中用语句设置了 比如我要上进度；在VB60中，如果你需要自定义进度条的进度颜色，可以考虑使用picturebox或shape控件来实现这两个控件相比内置的progressbar控件，具有更大的灵活性通过调整picturebox或shape控件的宽度，可以模拟出进度条的效果首先，你需要在窗体上放置一个picturebox或shape控件接着，编写一个事件处理程序，用于动；注意你的定位路径 ‘把comdlg32ocx这个文件复制到 c\windows\system32\下面然后重新注册一下那；这是VB调用Windows API的特定写法，其中gdi32就是一个专门处理图像的API函数库，CreateRoundRectRgn则是这个库中的一个函数API函数不是VB特有的，而是操作系统自带的，不仅可供VB调用，也可以供其它开发语言调用以扩展其开发能力Function CreateRoundRectRgn Lib quotgdi32quot函数的参数含义具体用法返回值等需参考Windows；如果你要写分数的话，就这样HScroll1Value = Text1textprint HScroll1Value quot%quot假设进度条控件名称 ProgressBar1， 属性 MAX 为100， MIN为0假设得分为 intScore在获取得分的过程之后加入ProgressBar1Value = intScore进度条名value＝当前分数，设=进度条名max＝100Private Sub Form_。

TextBox1Text = TextBox1Text RandArrayi vbCrLf ProgressBar1Value = i ‘随着for循环的进行，进度条随之变化，显示进度 Next i End Sub 这是VB2010内的一段练习，进度条工具箱中给的是上面的 ProgressBar 控件726，请注明进度条；网上找一下VBXP风格进度条 能找到好多，下载下来，如果是成品的OCX，那么注册一下后，就可以在VB中引用了，很方便的如果是源程序，可以研究一下是怎么做的，自己也可以做一个自己的进度条，就不会与别人的一样了 额。

6输入你的序列号，序列号一般在程序文件夹中的sn这个文本文件有记录，点击下一步7选择安装vb60，点击下一步8出现以下几个画面，点击继续，然后点击确定 9到这个界面，等候时间稍长，大概4045秒，不用着急 10进入安装条件界面，选择安装路径，点击典型安装11等待进度条走到100%，此过程。

上一篇： bulkinsert，bulk insert打不开csv文件

下一篇： wordpress代码，wordpress代码高亮