VB中打造个性进度条.docVIP

简介Ups　　Ups　　VB的第三方控件ccrpProgressBar是一个进度条的控件，可以有多种形态供选择。比起VB 中自带的进度条控件ProgressBar更有个性。 UpsUps　　使用实例:UpsUps　　用ccrpProgressBar制作各式各样的进度条UpsUps　　在VB中自带了一个进度条控件ProgressBar，但功能简单。我向大家推荐一个VB的第三方进度条控件ccrpProgressBar。该控件功能强大，有多种形态供选择，而且只需要简单的设置控件的属性就能实现,非常的好用。下面通过一个例子向大家介绍该控件的用法。UpsUps　　（1） 加载控件UpsUps　　启动Visual Basic 6.0，创建一个工程并保存为工程1.vbp，同时产生一个名为Form1的窗口。在工具箱的空白处单击鼠标右键，从弹出的快捷菜单中启动部件窗口，如图1所示。UpsUps Ups图1 Ups　　点击浏览按钮，从存放ccrpProgressBar控件的文件夹中找到ccrpprg.ocx文件。UpsUps　　点击应用后ccrpProgressBar控件就添加到工具箱中。如图2。UpsUps Ups图2 Ups　　（2） 设计窗体和控件UpsUps　　向窗体中添加9个ccrpProgressBar控件和一个Timer控件。如图3。UpsUps Ups图3 Ups　　Timer控件属性页的设置如图4所示。Interval的值设置为100，与ccrpProgressBar控件的默认值一致。Enabled设置为False。UpsUps Ups图4 Ups　　（3） ccrpProgressBar控件的主要属性UpsUps　　·Max:最大值。默认100。Ups　　·Min:最小值。默认0。Ups　　·Value:进度条的当前值。Ups　　·Alignment：显示表示进度的文字的位置。分别为vbCenter（中间），vbLeftJustify（左边），vbRightJustify（右边）。Ups　　·Appearance：进度条的3种外观。分别为prgFlat（平面），prg3D（立体） prg3Draised（立体凸起）。Ups　　·BackColor：进度条的背景色。Ups　　·FillColor：进度条的颜色。Ups　　·ForeColor：表示进度文字的字体颜色。Ups　　·Picture：进度条可用图片表示进度，从这里选择需要的图片。Ups　　·Shape：进度条的形状。有prgRectangle(默认)，prgEllipse和prgRoundedRect三种。Ups　　·Smooth： 是否平滑显示进度。True为平滑显示进度。Ups　　·Vertical：是否垂直显示进度条。True为垂直显示。Ups　　·Style：进度条的风格。当选ChkGraphical时为用图片表示进度。Ups　　·AutoCaption：表示进度的文字提示所采用的表现形式。CcrpPercentage为百分比的形式，ccrpValueOfMax为类似 1 of 100 的表现形式。Value为数字的表现形式。UpsUps　　（4）本例中ccrpProgressBar控件属性的具体设置UpsUps　　本例中共使用了9个ccrpProgressBar控件，每个ccrpProgressBar控件的具体设置如下：UpsUps　　1. CcrpProgressBar1：保持属性各项不变。UpsUps　　2. CcrpProgressBar2：Appearance的值设置为prg3D（表示用立体外观）。UpsUps　　3. CcrpProgressBar3：Appearance的值设置为prg3Draised（立体凸起），AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设为vbLeftJustify（表示进度的文字靠左）。UpsUps　　4. CcrpProgressBar4：BorderStyle设置为ccrpFixedSingle，AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设置为vbCenter（表示进度的文字在中间）UpsUps　　5. CcrpProgressBar5：Style设置为chkGraphical（用图片来表示进度）。单击Picture属性，选择你准备好的图片。同样，AutoCaption也设为百分比的形式表示进度，不过这次Alignment的值设置为vbRightJustify（进度文字靠右）。UpsUps