📄 11317.htm
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>看实例学VFP：进度条控件 - 编程入门网</title>
<meta name="keywords" content="看实例学VFP：进度条控件">
<meta name="description" content="看实例学VFP：进度条控件">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/images/style.css" rel="stylesheet" type="text/css" />
<script src="/js1/head.js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#efefef" oncopy=nocopy()>
<TABLE width="760" cellPadding="0" cellSpacing="0" bgcolor="#eff7fe" align="center">
<TR>
<TD><a href="/index.htm"><img src="/images/logo1.gif" width="150" height="60" border="0"></a></TD>
<TD width="470" align="right"><script src="/js1/top.js"></script></TD>
<TD width="125" align="center"><script src="/js1/topsy.js"></script></TD>
</TR>
</TABLE>
<table width="760" border="0" cellpadding="1" cellspacing="0" class="bklan" align="center">
<tr>
<td align="center" bgcolor="#eff7fe" height="24"> | <a href='/Programming/index.htm'>编程语言</a> | <a href='/webkf/index.htm'>web开发</a> | <a href='/data/index.htm'>数据库</a> | <a href='/Network/index.htm'>网络技术</a> | <a href='/OS/index.htm'>操作系统</a> | <a href='/Servers/index.htm'>服务器</a> | <a href='/web/index.htm'>网页设计</a> | <a href='/Design/index.htm'>图形设计</a> | <a href='/Office/index.htm'>办公软件</a> | <a href='/soft/index.htm'>常用软件</a> | <a href='/shadu/index.htm'>杀毒频道</a> | <a href='/PC/index.htm'>学电脑</a> |</td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content1.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td height="25" background="/templets/img/31bg3.gif" align="left" class="guidet"> → 当前位置:<a href='http://www.bianceng.cn/'>首页</a>→<a href='/Programming/index.htm'>编程语言</a>→<a href='/Programming/vfp/index.htm'>vfp</a>→正文</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top" class="guidet" width="595"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ct">
<tr>
<td align="center" valign="middle" class="til"><h3> 看实例学VFP：进度条控件 </h3>
发布时间：2009-04-05 来源：编程入门网 作者：老马<br />
<script src="/js1/468.js"></script>
</td>
</tr>
<tr>
<td style="font-size:14px" align="left" class="til"><table border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><script src="/js1/300.js"></script></td>
</tr>
</table><p> 我们在使用Windows系统的时候，如果复制一个较大的文件或者是从网上下载东西，在复制或下载的过程中都会出现一个对话框，并且在该对话框中会有一个进度条来显示复制或下载的进度。在vfp可以使用进度条控件（ProcessBar）来实现类似的功能，有的场合下可以用到它，比如软件包含了数据备份的功能，可以用它来显示备份的进度。但是这个控件的使用不是必须的，使用它无非是可以让你编的东西看起来更专业些。</p>
<p> 进度条控件有几个比较重要的属性，如下：</p>
<p> min：进度条的最小值，默认为0。</p>
<p> max：进度条的最大值，默认为100。</p>
<p> value：进度条的当前值，只写。这个属性很重要，进度条的动态变化就是通过给这个属性动态赋值来实现的。</p>
<p> visible：指定进度条是可见还是隐藏。</p>
<p> 一般情况下对进度条控件的编程都需要使用循环，并且需要把循环的终值赋给进度条的max属性，把循环变量的当前值在循环体中赋给进度条的value属性，这样进度条才能动起来。</p>
<p> 本文来做一个关于进度条的小例子，运行界面如下图：</p>
<p><img alt="" width="465" border="0" src="/upimg/userup/0904/0511592212O.jpg" /></p>
<p> 在上图中单击了“创建表”按钮后，会首先使用sql语句创建出一个表结构，然后使用循环语句向这个表中添加10000条记录，从开始到完成的整个过程会用进度条体现出来，大概需要20秒左右的时间。</p>
<p> 制作过程如下：</p>
<p> 一、新建表单，将其caption属性值设置为“编程入门网-ProcessBar控件的使用”，AutoCenter属性值设置为.t.，保存为“表单1.scx”。</p>
<p> 二、向表单上添加一个命令按钮控件command1，将其caption属性值设置为“创建表”。</p>
<p> 三、向表单上添加进度条控件：</p>
<p> 进度条控件（ProcessBar）也是一个ActiveX控件，使用时需要注册一下，方法请参考：<a href="/Programming/vfp/200903/11297.htm">看实例学VFP：commondialog控件</a>（进度条控件的ActiveX控件名为“Microsoft ProcessBar Control”）。完成注册后向表单上添加一个进度条控件，为了书写代码的方便，我们把它的name属性值由默认的“Olecontrol1”修改为“processbar1”。</p>
<p> 四、参照上图适当调整各控件的位置及表单的大小。</p>
<p> 五、添加事件代码：</p>
<p> 1、表单的init事件代码：</p>
<p>set safety off<br />thisform.processbar1.visible=.f.</p>
<p> 2、表单的unload事件代码：</p>
<p>set safety on<br />close all<br />delete file 表1.DBF</p>
<p> 3、命令按钮“创建表”（command1）的click事件代码：</p>
<pre>thisform.processbar1.visible=.t.&&使Processbar可见
thisform.processbar1.max=10000 &&确定进度条（ProcessBar）最大值为表的记录数
create table 表1 (字段1 N(10),字段2 N(10),字段3 N(10))
for i=1 to 10000
appen blank
replace 表1.字段1 with i,表1.字段2 with i*2,表1.字段3 with i*3
thisform.processbar1.value=i
endfor
thisform.processbar1.value=0
thisform.processbar1.visible=.f.
WAIT WIND "文件创建完毕！" AT 20,60 &&提示信息</pre>
<p> 六、运行“表单1.scx”。</p>
<p> 本例代码在Win2003+VFP6.0环境下调试通过。</p>
<p> <a href="/Programming/vfp/200902/11245.htm">查看全套“菜鸟也学VFP”教程</a></p><center><br /><script src="/js1/4682.js"></script></center>
<p>上一篇：<a href='/Programming/vfp/200904/11299.htm'>看实例学VFP：模拟VB控件数组操作标签控件</a> 下一篇：<a href='/Programming/vfp/200904/11318.htm'>看实例学VFP：文本框控件</a> </p></td>
</tr>
<tr>
<td align="left" style="font-size:14px;" height="25"><IMG src="/images/t0.gif" width="12" height="12" align=absMiddle><strong>相关文章</strong><br /><table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200904/11318.htm">看实例学VFP：文本框控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200904/11299.htm">看实例学VFP：模拟VB控件数组操作标签控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11298.htm">看实例学VFP：选项按钮组控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11297.htm">看实例学VFP：commondialog控件</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11296.htm">看实例学VFP：复选框控件</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11295.htm">看实例学VFP：超级链接控件的使用</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11294.htm">看实例学VFP：用编辑框控件做个“摸奖机”</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11293.htm">看实例学VFP：用列表框控件做个“开始菜单</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实例-动画</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修改表结构</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11290.htm">看实例学VFP：用sql命令创建表</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连编综合示例</a><br/>
</td>
</tr>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登录表单</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200903/11287.htm">看实例学VFP：用顶层表单制作软件主界面</a><br/>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="165" valign="top" class="guideb"><script src="/js1/1601.js"></script><table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>阅读排行</strong></td>
</tr>
<tr>
<td>·<a href="/Programming/vfp/200902/11252.htm">看实例学VFP：用SELECT语</a><br/>
·<a href="/Programming/vfp/200902/11245.htm">菜鸟也学VFP</a><br/>
·<a href="/Programming/vfp/200902/11256.htm">看实例学VFP：模糊查询</a><br/>
·<a href="/Programming/vfp/200902/11246.htm">看实例学VFP：示例数据库</a><br/>
·<a href="/Programming/vfp/200902/11254.htm">看实例学VFP：用sql语句修</a><br/>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登</a><br/>
·<a href="/Programming/vfp/200902/11253.htm">看实例学VFP：用sql语句向</a><br/>
·<a href="/Programming/vfp/200903/11291.htm">看实例学VFP：用sql命令修</a><br/>
·<a href="/Programming/vfp/200903/11289.htm">看实例学VFP：主程序及连</a><br/>
·<a href="/Programming/vfp/200902/11250.htm">看实例学VFP：删除数据表</a><br/>
·<a href="/Programming/vfp/200705/977.htm">vfp远程视图与spt应用详解</a><br/>
·<a href="/Programming/vfp/200902/11247.htm">看实例学VFP：对表中记录</a><br/>
·<a href="/Programming/vfp/200903/11292.htm">看实例学VFP：Timer控件实</a><br/>
·<a href="/Programming/vfp/200902/11282.htm">看实例学VFP：表单集的例</a><br/>
·<a href="/Programming/vfp/200903/11287.htm">看实例学VFP：用顶层表单</a><br/>
</td>
</tr>
<tr>
<td><script src="/js1/1602.js"></script></td>
</tr>
<tr>
<td height="25" align="center" background="/templets/img/31bg3.gif"><strong>最新文章</strong></td>
</tr>
<tr>
<td><script src="/plus/js/0.js" language="javascript"></script></td>
</tr>
</table></td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="760" align="center" bgcolor="#ffffff" border="0">
<tr>
<td align="center"><script src="/js1/content2.js"></script></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="26">
<td bgcolor="#e1f0fd" width="48"></td>
<td bgcolor="#6ab3f4" width="35"></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#c0c0c0" width="530" align="center"><a title="将本站设为你的首页" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://www.bianceng.cn');return false;" href="http://www.bianceng.cn/">设为首页</a> | <a class="navmenu"
title="将本站加入到你的收藏夹"
href="javascript:window.external.AddFavorite(location.href,document.title)">加入收藏</a> | <a href="/about/about.htm">关于本站</a> | <a href="/plus/flink.php">友情链接</a> | <a href="/about/banquan.htm">版权声明</a> | <a href="/plus/sitemap.html">网站地图</a> | <a href="/plus/rssmap.html">RSS订阅</a></td>
<td bgcolor="#0a518f" colspan="2" width="4"></td>
<td bgcolor="#6ab3f4" width="32"></td>
<td bgcolor="#e1f0fd" width="47"></td>
</tr>
<tr height="26">
<td colspan="9" bgcolor="#FFFFFF" align="center">编程入门网 版权所有,bianceng.cn,All Rights Reserved. <script src="/js/tongji.js"></script> 阅读次数：<script src="/plus/count.php?aid=11317&mid=0" language="javascript"></script></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -