利用VB2005制作颜色渐变的进度条

………………　…………………………………………　实用第一　智慧密集　．．　，　…　…　利用ＶＢ２００５制作颜色渐变的进度条　杨龆　摘要：在Ｗｉｎｄｏｗｓ　ＸＰ环境下．使用ＶＢ２００５制作一个漂亮的颜色渐变的进度条组件。　关键词：ＶＢ２００５：数据库：颜色渐变　１　引言　颜色渐变进度条的显示相当于使用许多颜色相近的“画　笔”在窗体上绘制方框。这些“画笔”就相当于一个画笔数　组。首先要建立颜色数组，初始的时候放人一些颜色值，然后　根据平滑度的设置来重新设置颜色数组。依次取出颜色数组中　两个相邻的颜色值，计算这两个颜色经过混合后的颜色．再放　入到两个颜色的中间。例子中颜色数组中有８种颜色。平滑度　的值从０开始循环，最高是７。每经过一次循环，颜色数组中　就增加了一些过渡颜色。平滑度设置得越大，则颜色过渡得越　柔和。产生的效果越漂亮。颜色数组生成之后，画笔数组就确　定了，它得大小和颜色数组一致。有了画笔数组，下面的问题　就是在窗体上进行绘图操作了。　２原理　在绘图操作之前，要重载基类中的窗体的消息处理事件　ＷｎｄＰｒｏｅ，窗体大小变化事件ＯｎＲｅｓｉｚｅ和窗体重绘事件　ＯｎＰａｉｎｔ。加入以下属性设置：　Ｍｉｎｉｍｕｍ．表示进度条的最小值，默认是Ｏ。　Ｍａｘｉｍｕｍ，表示进度条的最大值，默认是１００。　Ｖａｌｕｅ．表示了进度条的当前值，默认是０。　Ｓｍｏｏｔｈｎｅｓｓ，表示了进度条颜色渐变的平滑度，默认是０。　在初始化的时候，设置了以上四个属性后，相应的画笔数　组产生了。当前值的每次改变都要触发ＯｎＰａｉｎｔ事件。触发事　件后，首先绘制进度条的外部边框，接着得到内部边框的总宽　度和高度。根据当前值、最小值和最大值计算完成百分比，由　完成百分比乘以总宽度得到当前值占用的宽度。总宽度除以画　笔数组的个数得到每个画笔所占用的宽度。然后就是从初始宽　度循环到当前值占用的宽度，从画笔数组巾依次使用画笔按照　每个画笔所占用的宽度和高度填充颜色。循环结束后，如果百　分比为１００％．则使用画笔数组中的最后一个画笔绘制颜色，　进度条显示完毕。　３步骤　打开ＶＳ２００５，点击“文件”一“新建项目”，在打开的窗　体中．　“项目类型”选择“Ｖｉｓｕａｌ　Ｂａｓｉｃ”，　“模板”选择　“Ｗｉｎｄｏｗｓ控件库”。在左下角，“名称”改为　“ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ”。按下“确定”按钮，新建工程。在“解　决方案资源管理器”窗口中，将文件名ＵｓｅｒＣｏｎｔｒｏｌ１．ｖｂ改为　ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ．ｖｂ。将下面完整的代码加入到　ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ．ｖｂ文件中：　Ｏｐｔｉｏｎ　Ｓｔｒｉｃｔ　Ｏｎ　Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　Ｏｎ　Ｉｍｐｏｒｔｓ　Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ　Ｉｍｐｏｒｔｓ　Ｓｙｓｔｅｍ．Ｗｉｎｄｏｗｓ．Ｆｏｒｍｓ　Ｐｕｂｌｉｃ　Ｃｌａｓｓ　ＧｒａｄｉｅｎｔＰｒ０ｃｅｓｓＢａｒ　Ｉｎｈｅｒｉｔｓ　ＵｓｅｒＣｏｎｔｒｏＩ　Ｐｕｂｌｉｃ　Ｃｏｎｓｔ　ＭｉｎＳｍｏｏｔｈｎｅｓｓ　Ａｓ　Ｉｎｔｅｇｅｒ＝０　最小平滑魔　Ｐｕｂｌｉｃ　Ｃｏｎｓｔ　ＭａｘＳｍｏｏｔｈｎｅｓｓ　Ａｓ　Ｉｎｔｅｇｅｒ＝７　最大平滑度　Ｐｒｉｖａｔｅ　Ｃｏｎｓｔ　ＢｏｒｄｅｒＷｉｄｔｈ　Ａｓ　Ｉｎｔｅｇｅｒ＝２　边界宽度｜　ｌＰｒｉｖａｔｅ　ＩｓｔＤｅｆａｕｌｔ　Ａｓ　Ｌｉｓｔ（Ｏｆ　Ｃｏｌｏｒ）　颜色数组｝　ｉ　Ｐｒｉｖａｔｅ　ＩｓｔＢｒｕｓｈｅｓ　Ａｓ　Ｌｉｓｔ（Ｏｆ　ＳｏｌｉｄＢｒｕｓｈ）　画笔数组　Ｐｒｉｖａｔｅ　ｍ＿Ｖａｌｕｅ　Ａｓ　Ｉｎｔｅｇｅｒ＝０　当前进度值　Ｐｒｉｖａｔｅ　ｍ—Ｍ　ｍｕｍ　Ａｓ　Ｉｎｔｅｇｅｒ：０　最小进度值　Ｐｒｉｖａｔｅ　ｍ—Ｍａｘｉｍｕｍ　Ａｓ　Ｉ　ｎｔｅｇｅｒ＝１　Ｏ０　最大进度值　Ｐｒｉｖａｔｅ　ｍ—Ｓｍｏｏｔｈｎｅｓｓ　Ａｓ　Ｉｎｔｅｇｅｒ＝０　平滑度　进度值设置　Ｐｕｂｌｉｃ　Ｐｒｏｐｅｒｔｙ　Ｖａｌｕｅ（）Ａｓ　Ｉｎｔｅｇｅｒ　Ｇｅｔ　Ｒｅｔｕｒｎ　ｍ—Ｖａｌｕｅ　Ｅｎｄ　Ｇｅｔ　Ｓｅｔ（ＢｙＶａｌ　ｖａｌｕｅ　Ａｓ　Ｉｎｔｅｇｅｒ）　ｍ＿Ｖａｔｕｅ＝ｖａｌｕｅ　Ｉｆ　ｍ—Ｖａｌｕｅ＜ｍ—Ｍ＿ｎｊｍｕｍ　Ｔｈｅｎ　ｍ＿Ｖａｌｕｅ＝　ｍＭｉｎｉｍｕｍ　Ｉｆ　ｍＶａｌｕｅ＞ｍ—Ｍａｘｉｍｕｍ　Ｔｈｅｎ　ｍ＿Ｖａｌｕｅ＝　ｍＭａｘｉｍｕｍ　Ｍｅ．Ｉｎｖａｌｉｄａｔｅ（ＦａＩｓｅ）　Ｅｎｄ　Ｓｅｔ　Ｅｎｄ　Ｐｒｏｐｅｒｔｙ　最小值设置　Ｐｕｂｌｉｃ　Ｐｒｏｐｅｒｔｙ　Ｍ　ｍｕｍ（）Ａｓ　Ｉｎｔｅｇｅｒ　Ｇｅｔ　Ｒｅｔｕｒｎ　ｍ—Ｍｉｎｉｍｕｍ　Ｅｎｄ　Ｇｅｔ　Ｓｅｔ（ＢｙＶａｌ　ｖａｌｕｅ　Ａｓ　Ｉｎｔｅｇｅｒ）　

，　ＣＯＭＰＵＴＥＲ　ＰＲＯＧＲＡＭＭＩＮＧ　ＭＡＩＮＴＥＮＡＮＣＥ一・　ｍ　Ｍ　ｍｕｍ＝ｖａｌｕｅ　ｌｆ　ｍＭ　ｎ　ｍｕｍ＞ｍ—Ｍａｘｉｍｕｍ　Ｔｈｅｎ　Ｓｗａｐ　（ｍ—Ｍ　ｍｕｍ，ｍ—Ｍａｘｉｍｕｍ）　Ｉｆ　ｍ＿Ｖａｌｕｅ＜ｍ—Ｍ　ｍｕｍ　Ｔｈｅｎ　ｍ—＿Ｖａｌｕｅ＝　ｍ　Ｍ　ｍｕｍ　Ｍｅ．１ｎｖａＩｉｄａｔｅ（ＦａＩｓｅ）　Ｅｎｄ　Ｓｅｔ　Ｅｎｄ　Ｐｒｏｐｅｒｔｙ　最大值设置　Ｐｕｂｌｉｃ　Ｐｒｏｐｅ￣ｙ　Ｍａｘｉｍｕｍ（）Ａｓ　ｌｎｔｅｇｅｒ　Ｇｅｔ　Ｒｅｔｕｒｎ　ｍ　Ｍａｘｉｍｕｍ　Ｅｎｄ　Ｇｅｔ　Ｓｅｔ（ＢｙＶａｌ　ｖａｌｕｅ　Ａｓ　Ｉｎｔｅｇｅｒ）　ｍ　Ｍａｘｉｍｕｍ＝ｖａｌｕｅ　ｌｆ　ｍ　Ｍｉｎｉｍｕｍ＞ｍ　Ｍａｘｉｍｕｍ　Ｔｈｅｎ　Ｓｗａｐ　（ｍ—Ｍ　ｍｕｍ，ｍ—Ｍａｘｉｍｕｍ）　ｌｆ　ｍＶａｌｕｅ＞ｍＭａｘｉｍｕｍ　Ｔｈｅｎ　ｍＶａｌｕｅ＝　ｍ　Ｍａｘｉｍｕｍ　Ｍｅ　ｌｎｖａＩｉｄａｔｅ（ＦａＩｓｅ）　Ｅｎｄ　Ｓｅｔ　Ｅｎｄ　Ｐｒｏｐｅｒｔｙ　平滑度设置　Ｐｕｂｌｉｃ　ＰｒｏｐｅＥｙ　Ｓｍｏｏｔｈｎｅｓｓ（）Ａｓ　Ｉｎｔｅｇｅｒ　Ｇｅｔ　Ｒｅｔｕｒｎ　ｍ　Ｓｍｏｏｔｈｎｅｓｓ　Ｅｎｄ　Ｇｅｔ　Ｓｅｔ（ＢｙＶａｌ　ｖａｌｕｅ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｉｆ　ｖａｌｕｅ＜ＧｒａｄｉｅｎｔＰｒＯｃｅｓｓＢａｒ．ＭｉｎＳｍｏｏｔｈｎｅｓｓ　Ｔｈｅｎ　ｖａｌｕｅ＝ＭｉｎＳｍｏｏｔｈｎｅｓｓ　Ｉｆ　ｖａｌｕｅ＞ＧｒａｄｉｅｎｔＰｒＯｃｅｓｓＢａｒ．ＭａｘＳｍｏｏｔｈｎｅｓｓ　Ｔｈｅｎ　ｖａｌｕｅ＝ＭａｘＳｍｏｏｔｈｎｅｓｓ　ｍ　Ｓｍｏｏｔｈｎｅｓｓ：ｖａｌｕｅ　ＢｕｉｌｄＣｏｌｏｒＬｉｓｔ（ＩｓｔＤｅｆａｕｌｔ）　Ｍｅ．ｔｎｖａｌｉｄａｔｅ（Ｆａｌｓｅ）　Ｅｎｄ　Ｓｅｔ　Ｅｎｄ　Ｐｒｏｐｅｒｔｙ　交换值　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｓｗａｐ（ＢｙＲｅｆ　ｖａｌ１　Ａｓ　Ｉｎｔｅｇｅｒ，ＢｙＲｅｆ　ｖａｌ２　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｄｉｍ　ｔｅｍｐ　Ａｓ　Ｉｎｔｅｇｅｒ　ｔｅｍｐ＝ｖａｉｌ　ｖａＩ１＝ｖａｌ２　ｖａｌ２＝ｔｅｍｐ　Ｅｎｄ　Ｓｕｂ　Ｐｕｂｌｉｃ　Ｓｕｂ　Ｎｅｗ（）　ＩｎｉｔｉａｌｉｚｅＣｏｍｐｏｎｅｎｔ（）　Ｍｅ．ＢｏｒｄｅｒＳｔｙｌｅ　＝　Ｗｉｎｄｏｗｓ　Ｆｏｒｍｓ．ＢｏｒｄｅｒＳｔｙｌｅ　Ｆｉｘｅｄ３Ｄ　设置窗体为凹陷的效果　最简单的实现双缓冲绘图　ＡＩＩＰａｉｎｔｉｎｇｌｎＷｍＰａｉｎｔ忽略系统消息，防止图像闪烁　ＤｏｕｂｌｅＢｕｆｆｅｒ设置双缓冲，防止图像抖动　ＵｓｅｒＰａｉｎｔ自己为控件做昕有的绘图操作　Ｏｐａｑｕｅ使窗体绘制时，不绘制背景　Ｍｅ　ＳｅｔＳｔｙｌｅ（ＣｏｎｔｒｏｌＳｔｙｌｅｓ．ＡｌｌＰａｉｎｔｉｎｇｌｎＷｍＰａｉｎｔ　Ｏｒ　ＣｏｎｔｒｏＩＳｔｙｌｅｓ．ＵｓｅｒＰａｉｎｔ　Ｏｒ　ＣｏｎｔｒｏｌＳｔｙｌｅｓ．ＤｏｕｂｌｅＢｕｆｆｅｒ　Ｏｒ　ＣｏｎｔｒｏｌＳｔｙｌｅｓ．Ｏｐａｑｕｅ，Ｔｒｕｅ）　更新风格　Ｍｅ．ＵｐｄａｔｅＳｔｙｌｅｓ（）　新建颜色列表，加入红色，桔黄色，黄色，绿色，蓝绿色，蓝　色，深蓝色，紫色　ＩｓｔＤｅｆａｕｌｔ＝Ｎｅｗ　Ｌｉｓｔ（Ｏｆ　Ｃｏｌｏｒ）　ＩｓｔＤｅｆａｕｌｔ．Ａｄｄ（Ｃｏｌｏｒ．Ｒｅｄ）　ＩｓｔＤｅｆａｕｌｔ　Ａｄｄ（Ｃｏｌｏｒ．Ｏｒａｎｇｅ）　ＩｓｔＤｅｆａｕｌｔ　Ａｄｄ（Ｃｏｌｏｒ．Ｙｅｌｌｏｗ）　ＩｓｔＤｅｆａｕｌｔ．Ａｄｄ（Ｃｏｌｏｒ　Ｇｒｅｅｎ）　ＩｓｔＤｅｆａｕｌｔ．Ａｄｄ（Ｃｏｌｏｒ　Ｃｙａｎ）　ＩｓｔＤｅｆａｕｌｔ　Ａｄｄ（Ｃｏｌｏｒ．Ｂｌｕｅ）　ＩｓｔＤｅｆａｕｌｔ　Ａｄｄ（Ｃｏｌｏｒ　Ｉｎｄｉｇｏ）　ＩｓｔＤｅｆａｕｌｔ。Ａｄｄ（Ｃｏｌｏｒ　Ｖｉｏｌｅｔ）　Ｖａｌｕｅ＝Ｍ　ｎｉｍｕｍ　Ｅｎｄ　Ｓｕｂ　将两个颜色值混合成一个新的颜色。　Ｐｒｉｖａｔｅ　Ｆｕｎｃｔｉｏｎ　ＭｉｘＣｏｌｏｒｓ（ＢｙＶａｌ　ｃｏｌｏｒ１　Ａｓ　Ｃｏｌｏｒ，ＢｙＶａｌ　ｃｏｌｏｒ２　Ａｓ　Ｃｏｌｏｒ）Ａｓ　Ｃｏｌｏｒ　Ｒｅｔｕｒｎ　Ｃｏｌｏｒ．ＦｒｏｍＡｒｇｂ（Ｃｌｎｔ《（Ｃｌｎｔ（ｃｏｌｏｒ１．Ｒ）－Ｉ－Ｃｌｎｔ　（ｃｏｌｏｒ２　Ｒ））／２），ＣＩ　ｎｔ（《Ｃｌ　ｎｔ（ｃｏｌｏ门．Ｇ）＋Ｃｌｎｔ（ｃｏｌｏｒ２．Ｇ））／２），Ｃｌｎｔ　（（Ｃｌｎｔ（ｃｏｌｏｒｌ　Ｂ）＋Ｃｌｎｔ（ｃｏｌｏｒ２　Ｂ））／２））　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　建立颜色数组和画笔数组　Ｐｒｉｖａｔｅ　Ｓｕｂ　ＢｕｉｌｄＣｏｌｏｒＬｉｓｔ（ＢｙＲｅｆ　ＩｓｔＡｄｄ　Ａｓ　Ｌｉｓｔ（Ｏｆ　Ｃｏｌｏｒ））　Ｄｉｍ　Ｃ　Ａｓ　Ｃｏｌｏｒ　Ｄｉｍ　ＩｓｔＣｏｌｏｒｓ　Ａｓ　Ｎｅｗ　Ｌｉｓｔ（Ｏｆ　Ｃｏｌｏｒ）　ＩｓｔＢｒｕｓｈｅｓ＝Ｎｅｗ　Ｌｉｓｔ（Ｏｆ　ＳｏｌｉｄＢｒｕｓｈ）　Ｆｏｒ　Ｅａｃｈ　Ｃ　Ｉｎ　ＩｓｔＡｄｄ　ＩｓｔＣｏｌｏｒｓ　Ａｄｄ（ｃ）　Ｎｅｘｔ　Ｄｉｍ　ｉｄｘ　Ａｓ　Ｉｎｔｅｇｅｒ　颜色数组索引　Ｄｉｍ　ｃｎｔ　Ａｓ　Ｉｎｔｅｇｅｒ　颜色数组长度　Ｄｉｍ　ｓｄｃ　Ａｓ　Ｉｎｔｅｇｅｒ　平滑度索引　根据平衡度的不同创建颜色数组　Ｆｏｒ　ｓｄｃ＝０　Ｔｏ　ｍＳｍｏｏｔｈｎｅｓｓ　Ｓｔｅｐ　１　ｉｄｘ＝０　ｃｎｔ：ＩｓｔＣｏｌｏｒｓ．Ｃｏｕｎｔ一１　Ｗｈｉｌｅ　ｉｄｘ＜ｃｎｔ　ＩｓｔＣｏｌｏｒｓ．ＩｎｓｅＥ（ｉｄｘ＋１．ＭｉｘＣｏｌｏｒｓ《ＩｓｔＣｏｔｏｒｓ《ｉｄｘ）　ＩｓｔＣｏｌｏｒｓ（ｉｄｘ＋１））｝　ｉｄｘ＋＝２　ｃｎｔ＋＝１　Ｅｎｄ　Ｗｈｉｌｅ　Ｎｅｘｔ　ｓｄｃ　根据颜色数组创建画笔数组　Ｆｏｒ　Ｅａｃｈ　Ｃ　Ｉｎ　ＩｓｔＣｏｌｏｒｓ　ＩｓｔＢｒｕｓｈｅｓ．Ａｄｄ（Ｎｅｗ　ＳｏＩｌｄＢｒｕｓｈ（ｃ））　瞬　ｉ　奠鳙藉２渡０１０圬，与３囊　８３

。　…　。　‘　‘‘‘‘　。‘‘‘‘’’‘‘　ｔ’　实用第一／智慧密集　Ｎｅ×ｔ　Ｉｆ　ｉｄｘＣｏｌｏｒ＜ｔｓｔＢｒｕｓｈｅｓ．Ｃｏｕｎｔ　Ｔｈｅｎ　ｉｄｘＣｏｌｏｒ＋＝１　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｅｎｄ　Ｓｕｂ　重载消息处理事件。　Ｐｒｏｔｅｃｔｅｄ　Ｏｖｅｒｒｉｄｅｓ　Ｓｕｂ　ＷｎｄＰｒｏｃ（ＢｙＲｅｆ　ｍ　Ａｓ　Ｓｙｓｔｅｍ　Ｗｉｎｄｏｗｓ．Ｆｏｒｍｓ．Ｍｅｓｓａｇｅ）　Ｉｆ　ｍ．Ｍｓｇ＝＆Ｈ１４Ｔｈｅｎ　Ｒｅｔｕｒｎ　Ｅｎｄ　Ｉｆ　ＭｙＢａｓｅ．ＷｎｄＰｒｏｃ（ｍ）　Ｅｎｄ　Ｓｕｂ　重载窗口寸改变事件　Ｐｒｏｔｅｃｔｅｄ　Ｏｖｅｒｒｉｄｅｓ　Ｓｕｂ　ＯｎＲｅｓｉｚｅ（ＢｙＶａｌ　ｅ　Ａｓ　Ｓｙｓｔｅｍ　ＥｖｅｎｔＡｒｇｓ）　ＭｙＢａｓｅ．ＯｎＲｅｓｉｚｅ（ｅ）　Ｍｅ．１ｎｖａｌｉｄａｔｅ（ＦａＩｓｅ）　Ｅｎｄ　Ｓｕｂ　重载窗口绘制事件　Ｐｒｏｔｅｃｔｅｄ　Ｏｖｅｒｒｉｄｅｓ　Ｓｕｂ　０ｎＰａｉｎｔ《ＢｙＶａｌ　ｅ　Ａｓ　Ｓｙｓｔｅｍ　Ｗｉｎｄｏｗｓ．ＦＯｒｍｓ．ＰａｉｎｔＥｖｅｎｔＡｒｇｓ）　ＭｙＢａｓｅ．ＯｎＰａｉｎｔ（ｅ）　绘制外框　ｅ．Ｇｒａｐｈｉｃｓ．ＦｉｌｌＲｅｃｔａｎｇｌｅ　（Ｎｅｗ　ＳｏｌｉｄＢｒｕｓｈ（Ｍｅ　ＢａｃｋＣｏｌｏ￣，Ｍｅ．ＣｌｉｅｎｔＲｅｃｔａｎｇｔｅ）　完成百分比　Ｄｉｍ　ｐｅｒｃｅｎｔＣｏｍｐｌｅｔｅ　Ａｓ　Ｓｉｎｇｌｅ＝ＣＳｎｇ　ｆ（ｍ＿Ｖａｌｕｅ—　ｍ—Ｍｊｎｉｍｕｍ）／（ｍ＿Ｍａｘｉｍｕｍ—ｍ—Ｍ　ｎｉｍｕｍ））　ｌｆ　ｐｅｒｃｅｎｔＣｏｍｐｌｅｔｅ＜：０，ＯＦ　Ｔｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　Ｉｆ　ｐｅｒｃｅｎｔＣｏｍｐｌｅｔｅ＞１．ＯＦ　Ｔｈｅｎ　ｐｅｒｃｅｎｔＣｏｍｐｌｅｔｅ＝　１．ＯＦ　Ｄｉｍ　ｆｕｌｌＷｉｄｔｈ　Ａｓ　Ｓｉｎｇｌｅ　总宽度　ｆｕｌｌＷｉｄｔｈ＝ＣＳｎｇ（Ｍｅ．ＣｆｉｅｎｔＲｅｃｔａｎｇｆｅ．Ｗｉｄｔｈ～　ＢｏｒｄｅｒＷｉｄｔｈ）　当前百分比所占用的宽度　Ｄｉｍ　ｔｏｔａｌＷｉｄｔｈ　Ａｓ　Ｓｉｎｇｌｅ＝ｆｕｌｌＷｉｄｔｈ　ｐｅｒｃｅｎｔＣｏｍｐｌｅｔｅ　每个画笔填充颜色占用的宽度　Ｄｉｍ　ｂａ　ｒ＼＾，　ｈ　Ａｓ　Ｓｉｎｇｌｅ　ｂａｒＷｉｄｔｈ＝ｆｕｌｌＷｉｄｔｈ　ｂａｒＷｉｄｔｈ／＝ＣＳｎｇ（ＩｓｔＢｒｕｓｈｅｓ．Ｃｏｕｎｔ）　Ｄｉｍ　ｈｅｉｇｈｔ　Ａｓ　Ｓｉｎｇｌｅ　起始宽度　Ｄｉｍ　ｈａｌｆＢｏｒｄｅｒ　Ａｓ　Ｓｉｎｇｌｅ＝ＣＳｎｇ（ＢｏｒｄｅｒＷｉｄｔｈ／２）　Ｄｉｍ　ｉｄｘＣｏｌｏｒ　Ａｓ　Ｉｎｔｅｇｅｒ：０　Ｄｉｍ　ＸＡｓ　Ｓｉｎｇｌｅ　每个画笔填充颜色占用的宽度　ｈｅｉｇｈｔ＝ＣＳｎｇ（Ｍｅ．ＣｌｉｅｎｔＲｅｃｔａｎｇＩｅ．Ｈｅｉｇｈｔ—　ＢｏｒｄｅｒＷｉｄｔｈ）　根据当前百分比所占用的宽度使用画笔填充颜色　Ｆｏｒ　Ｘ＝ｈａｌｆＢｏｒｄｅｒ　Ｔｏ　ｔｏｔａｌＷｉｄｔｈ　Ｓｔｅｐ　ｂａｒＷｉｄｔｈ　ｅ．Ｇｒａｐｈｉｃｓ．ＦｉｌｌＲｅｃｔａｎｇｌｅ（ＩｓｔＢｒｕｓｈｅｓ　ｆｉｄｘＣｏｌｏｒ）　×，　ｈａｌｆＢｏｒｄｅｒ，ｂａｒＷｉｄｔｈ，ｈｅｉｇｈｔ）　，０１０藿．　３　＼：　．／／鼍ｌ－ｌ－技巧与　当进度为１００％￣，使用最后一个画笔填充颜色一　：ｉ≯　Ｉｆ《×＜（Ｍｅ．ＣｌｉｅｎｔＲｅｃｔａｎｇｌｅ．Ｗｉｄｔｈ—ｈａｌｆＢｏｒｄｅｒ））　ｐｅｒｃｅｎｔＣｏｍｐｔｅｔｅ＝１．０　Ｔｈｅｎ　Ｉｆ　ｉｄｘＣｏｌｏｒ＜ＩｓｔＢｒｕｓｈｅｓ．Ｃｏｕｎｔ　Ｔｈｅｎ　０　ｅ．Ｇｒａｐｈｉｃｓ．ＦｉｌｌＲｅｃｔａｎｇｌｅ（ＩｓｔＢｒｕｓｈｅｓ（ｉｄｘＣｏＩｏ　ｈａｌｆＢｏｒｄｅｒ，（（Ｍｅ．ＣｔｉｅｎｔＲｅｃｔａｎｇｌｅ．Ｗｉｄｔｈ—ｈａｌｆＢｏｒｄｅ￣｝一　ｈｅｉｇｈｔ）　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｓｕｂ　Ｅｎｄ　Ｃｌａｓｓ　保存项目后，按下“生成”菜单中的“生成　ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ”选项，生成了组件ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ．ｄＩＩ。　４测试　点击“文件”一“新建项目”，在打开的窗体中，　“项目　类型”选择“Ｖｉｓｕａｌ　Ｂａｓｉｃ”。　“模板”选择“Ｗｉｎｄｏｗｓ应用程　序”。在左下角，“名称”改为“Ｔｅｓｔ”。按下“确定”按钮，新　建工程。在打开的窗体Ｆｏｒｍ１．ｖｂ中，加入一个Ｂｕｔｔｏｎ控件，　设置属性Ｔｅｘｔ＝启动。在Ｌａｂｅｌ控件，设置属性Ｔｅｘｔ－－当前进　度。在Ｔｉｍｅｒ控件。点击“工具”菜单下的“选择工具箱项”。　点击“．ＮＥＴ　Ｆｒａｍｅｗｏｒｋ组件”页，点击“浏览”按钮，选择　刚才生成的组件ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ．ｄｌｌ加入到窗体中，如图ｌ　所示　ｒｔＥＹ　Ｆｒ￣ｅ＊ｏｒｋ　件ｌⅫ　…一～　一一　｛唧一一一…　回Ｆｏｔ￣ｔＢｉａｌｏｇ　Ｓｙｓｔｅｍ￣ｉ＝ｄｏｗｓ　Ｆｏｒｍｓ　Ｓｙｓｔ￣ｆＩｎｄ…ｒｏｎ　全腮｝　口Ｙｏｚ￣ｔＤＪ　。ｇ＾ｒｒ　一】ｃｒ竹ｏｆｔ　ｙｌ￥ｔｌｌ１ＢｊｓＩ　ｃ　Ｃｏ　Ｍ】ａ￣ｒｏｓｏｆｔ　ｙｊ　ｓ－Ｉ１Ｂ　全Ｊ陋ｊ　团Ｆｏｒｍ　Ｓｙｓｔｅｍ　Ｗ　ＶＩ　ｍｏｂｌ１．Ｃｏｎｔ　ｓｙｓｔ＿Ｉｆｅｂ｜ｏｂｉｌ＊（垒脾ｆ　口Ｆ…１１ｌ　…ｌｄｅｒ　Ｆ　Ｐｏｉｎｔ　Ｌｎ　ＳｐｒｅＩｄ　Ｆ￣ｘＰｏｉｎｔ　ｎ卸ｒ・－ｄ　垒腿ｆ　口ＦｏｒｍｕｌａＴｅ￣ｔＢｏｘ　Ｆａ计ｏ１ｎｔ　Ｔｉｎ　Ｓｐｒｅ“　Ｐ＊ｘＰｏｉｎＬ　ｎ　ｓＩｒ・‘ａ全脆Ｅ　回Ｆｏｒｍ￣ｉｅｗ　Ｓｙｓｔ钿　ｅｂⅡ　ｅｂｃｏ＝ｔｒｏｌ　Ｓｙｓｔ￣ｌＹ＊ｂ口０　０　０）垒腿￡　口ＦｐＳｐｒｅａｄ　Ｆ　Ｐｏｌｎｔ　ｆｉｎ　ＳｐｒｔＩｄ　Ｆ￣Ｐｏｉｎｔ　Ｗｉａ　Ｓｐｒ．Ｉｄ垒肥　■　融器　）　擘　：　纂　’　图１加载组件　点击　“确定”按钮，则在工具箱中有了　ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ控件。在窗体上加入一个ＧｒａｄｉｅｎｔＰｒｏｃｅｓｓＢａｒ　控件。设置属性Ｎａｍｅ：Ｐｂｌ。在Ｆｏｒｍ１．ｖｂ中添加如下代码：　Ｐｕｂｌｉｃ　Ｃｌａｓｓ　Ｆｏｒｍ１　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｂｕ￣ｏｎｌ～Ｃｌｉｃｋ（ＢｙＶａｌ　ｓｅｎｄｅｒ　Ａｓ　

……　Ｃ０啊ＰＵＴＥＲＰＲＯＧ胁Ｍ啊ｌＨＧＭＡＩＮＴＥＮＡＮＣＥ．…………　－．…一－”…－－…　．…　．．．…一　．．．　．．　，．…，……………　Ｏｂｊｅｃｔ，ＢｙＶａｌ　ｅ　Ａｓ　Ｓｙｓｔｅｍ．ＥｖｅｎｔＡｒｇｓ）Ｈａｎｄｌｅｓ　Ｂｕｔｔｏｎ１　Ｃｌｉｃｋ　设置进度条初始值　Ｐｂｌ，Ｍｊｎｊｍｕｍ＝０　Ｐｂ１．Ｍａｘｉｍｕｍ＝１ＯＯ　Ｐｂ１．Ｖａｌｕｅ＝０　Ｐｂ１．Ｓｍｏｏｔｈｎｅｓｓ：４　启动进度条　Ｔｉｍｅｒ１．１ｎｔｅｒｖａｌ＝１０　Ｔｉｍｅｒ１　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　Ｅｎｄ　Ｓｕｂ　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ１　Ｔｉｃｋ（ＢｙＶａｌ　ｓｅｎｄｅｒ　Ａｓ　Ｓｙｓｔｅｍ．Ｏｂｊｅｃｔ　ＢｙＶａｌ　ｅ　Ａｓ　Ｓｙｓｔｅｍ．ＥｖｅｎｔＡｒｇｓ）Ｈａｎｄｌｅｓ　Ｔｉｍｅｒ１．Ｔｉｃｋ　显示当前进度。　Ｐｂ１．Ｖａｌｕｅ＋＝１　Ｌａｂｅｌ１．Ｔｅｘｔ＝”当前进度：“＋ＣＳｔｒ（Ｃｌｎｔ（Ｐｂ１．Ｖａｌｕｅ／Ｐｂｌ　Ｍａｘｉｍｕｍ　１００））＋“％”　Ｅｎｄ　Ｓｕｂ　Ｅｎｄ　Ｃｌａｓｓ　按“Ｆ５”键运行程序，显示如图２所示窗体。　按下“启动”按钮，显示当前进度，如图３所示。　图２程序演示　进度条显示完后，如图４所示。　５　结语　图４程序执行结束　对基于ＶＢ２００５实现颜色渐变进度条作了详细分析，并对　组件编程技术作了初步的介绍，关于这方面的技术．有兴趣的　读者可以参考相关的资料，为以后能开发出更多更好的组件打　下一定的基础。　ｆ收稿日期：２００９—１１—２５）　枷她　是　地　枷蛐　■　用友推ＡＩｌ＿ｉｎ—Ｏｎｅ是跳跃式发展的前奏Ｐ￥７　§　乏　借助经济危机，抄底收购，实现跳跃式发展是很多企业亳　遇到的产业机遇。２００９年腾中重工收购悍马，吉利洽谈收购　沃尔沃，一大批中国企业开始走出国门抄底收购，实现跳跃　式发展。而还有－－￣ｔＬ企业根据自身需要，在国内同行范围展　开收购。例如用友软件，在２００８、２００９等相继大手笔收购　下大批国内软件企业和区域型软件分销服务商。用友收购成　批软件企业意欲何为？　１月１６日，用友终于揭开了其系列收购的首个成果一　ｕ８　Ａｌｌ—ｉｎ—Ｏｎｅ产品。这款号称能满足中小企业全面信息化嚣　需求的产品，整合了２００８　ｆｉ－收购的特博深ＣＲＭ（客户关系簪　管理软件）、整合了前不久收购的重庆迈特的ＰＬＭ（产品生命　亏周期管理软件），以及用友内部自主研发的致远协同办公、用亳　友Ｕ８一ＨＲ、用友ＢＩ、用友分销零售等多套软件系统。并通冬　至过用友ＵＡＰ平台实现整合。毒　　ＥＢｕ总经理向奇汉被提升为高级副总裁将主管Ｕ８　Ａｌｌ一　ｉｎ—Ｏｎｅ和Ｕ９业务发展　向奇汉表示：　“Ｕ８　Ａｌｌ—ｉｎ—Ｏｎｅ为用　户提供全面信息化应用同时不妨碍用户继续选择用友Ｕ８或　用友ＰＬＭ等产品局部信息化应用。Ｕ８　Ａｌｌ～ｉｎ—Ｏｎｅ是一个松　耦合产品组合。其最大的优势是能给用户更大的选择空间。　用户选择用友后，既可以满足当前局部应用需求，同时也不　用担心今后拓展应用中．会遇到某些新应用不能和老系统对　萋接的问题。”　谈起竞争对手，向奇汉说：　“目前国内Ｕ８的竞争对手，　都还没有能够提供Ｕ８　Ａｌｌ—ｉｎ—Ｏｎｅ相似的产品组合．剑指这　些企业将无法再与Ｕ８实现市场竞争。”没有资本整合实力，　萎　　单独依靠内部创新已经不能满足当前管理软件市场竞争的需　求。　此外，本次发布的ｕ８　Ａｌｌ—ｉｎ—Ｏｎｅ，在名称ｊ二，与ＳＡＰ　宴在国内，面向巾小企业市场推广的Ａ１，全称ＳＡＰ　Ａｌｌ　ｉｎ　Ｏｎｅ　乏一致，用友方面未对名称闯车给出解释。但可以看出用友在　市场定位上，全面竞争国际巨头，与国内企业甩开距离的意　图。　萤　计世资讯副总经理曹开彬在会上指出：２００９年整个中国　通用管理软件市场规模已经达到１４６．６亿，它的增长率达到　１６．５％。可以细分为：ＥＲＰ、ＢＩ、ＨＲ、ＣＲＭ、ＳＣＭ、财务软　件等等，ＥＲＰ在０９年是８９个亿．占了６０％的比例。其次是　，４２财务软件、供应链、ＨＲ、ＢＩ。从增长情况来看，我们看到一　个比较有意思的现象，现在ＨＲ、ＢＩ这样的软件增长率增加，　从去年来看增长最快的是ＢＩ，其次是ＨＲ。　奠一　耋