📄 11299.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：模拟VB控件数组操作标签控件 - 编程入门网</title>
<meta name="keywords" content="看实例学VFP：模拟VB控件数组操作标签控件">
<meta name="description" content="看实例学VFP：模拟VB控件数组操作标签控件">
<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：模拟VB控件数组操作标签控件 </h3>
发布时间：2009-04-02 来源：编程入门网 作者：老马<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> VB中有控件数组，使用它可以批量设置控件的属性，这个东西最直接的作用就是可以简化代码。今天我们在vfp中模拟VB控件数组，操作vfp中最基本的控件之一：标签控件(label)。在<a href="/vfpjc/chapter5/5-3.htm">vfp基础教程-标签控件(label)</a>一文中对该控件的属性及用途等已经有比较详尽地描述，关于它实在是没有什么好说的了。</p>
<p> 本文设计的这个例子是这样的：在表单激活时（Activate事件），采用类似vb控件数组的处理方式在循环语句中为各个标签设置属性，如下图1；在命令按钮的click事件中，通过单击将5个标签的caption属性值依次显示出来，如下图2；</p>
<p><img alt="" border="0" src="/upimg/userup/0904/02151F61531.jpg" /></p>
<p>图1</p>
<p><img alt="" border="0" src="/upimg/userup/0904/02151ICU6.jpg" /></p>
<p>图2</p>
<p> 制作步骤如下：</p>
<p> 一、新建表单，将其AutoCenter属性值设置为.t.，保存为“表单1.scx”。</p>
<p> 二、向表单上添加5个标签控件label1～label5，将它们的caption属性值依次设置为“编”、“程”、“入”、“门”、“网”。</p>
<p> 三、向表单上添加一个命令按钮command1，将其caption属性值设置为“显示字符”。</p>
<p> 四、适当调整各控件的位置，如下图：</p>
<p><img alt="" border="0" src="/upimg/userup/0904/02151P44425.jpg" /></p>
<p> 五、添加事件代码：</p>
<p> 1、表单的Activate事件代码：</p>
<pre>public top,n
local fs,fb,fc
n=1
top=thisform.label1.top
for i=1 to 5
t="label"+str(i,1)+".top"
fs="label"+str(i,1)+".fontsize"
fb="label"+str(i,1)+".fontbold"
fc="label"+str(i,1)+".forecolor"
thisform.&t=-50 &&依次把5个标签的top属性值设为-50，实际是把它们隐藏起来
thisform.&fs=12 &&依次把5个标签的fontsize属性值设为12
thisform.&fb=.t. &&依次把5个标签的fontbold属性值设为.t.
thisform.&fc=rgb(255,0,0) &&依次把5个标签的forecolor属性值设为rgb(255,0,0)
endfor</pre>
<p> 2、命令按钮command1的click事件代码：</p>
<pre>t="label"+str(n,1)+".top"
if thisform.&t<=top-50
thisform.&t=top
n=n+1
if n=6
n=1
this.enabled=.f.
messagebox("字符已经全部显示完毕!")
return
endif
endif</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/200903/11298.htm'>看实例学VFP：选项按钮组控件</a> 下一篇：<a href='/Programming/vfp/200904/11317.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/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>
<tr>
<td width='50%'>
·<a href="/Programming/vfp/200903/11285.htm">看实例学VFP：制作只能从顶层表单调用的系</a><br/>
</td>
<td width='50%'>
·<a href="/Programming/vfp/200902/11284.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/200902/11253.htm">看实例学VFP：用sql语句向</a><br/>
·<a href="/Programming/vfp/200903/11288.htm">看实例学VFP：制作系统登</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/11247.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/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=11299&mid=0" language="javascript"></script></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -