VFP：模拟VB控件数组操作标签控件-盘古文库

VFP：模拟VB控件数组操作标签控件

来源：火烈鸟

作者：开心麻花

2025-09-19

VFP：模拟VB控件数组操作标签控件（精选3篇）

VFP：模拟VB控件数组操作标签控件第1篇

VB中有控件数组，使用它可以批量设置控件的属性，这个东西最直接的作用就是可以简化代码，今天我们在vfp中模拟VB控件数组，操作vfp中最基本的控件之一：标签控件(label)。在vfp基础教程-标签控件(label)一文中对该控件的属性及用途等已经有比较详尽地描述，关于它实在是没有什么好说的了。

本文设计的这个例子是这样的：在表单激活时(Activate事件)，采用类似vb控件数组的处理方式在循环语句中为各个标签设置属性，如下图1;在命令按钮的click事件中，通过单击将5个标签的caption属性值依次显示出来，如下图2;

图1

图2

制作步骤如下：

一、新建表单，将其AutoCenter属性值设置为.t.，保存为“表单1.scx”。

二、向表单上添加5个标签控件label1～label5，将它们的caption属性值依次设置为“编”、“程”、“入”、“门”、“网”。

三、向表单上添加一个命令按钮command1，将其caption属性值设置为“显示字符”。

四、适当调整各控件的位置，如下图：

五、添加事件代码：

1、表单的Activate事件代码：

public top,nlocal fs,fb,fcn=1top=thisform.label1.topfor 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

2、命令按钮command1的click事件代码：

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 endifendif

六、运行“表单1.scx”，

本例代码在Win+VFP6.0环境下调试通过。

VFP：模拟VB控件数组操作标签控件第2篇

控件数组是由一组相同类型的控件组成的，它们共用一个控件名，具有相同的数组。控件数组适用于若干个控件执行的操作相似的场合，控件组共享同样的事件过程。控件数组通过索引号(属性中的Index)来标识各控件，第一个下标是0 。如：Text1(0)、Text1(1)、Text1(2)、Text1(3)

2.控件数组的建立

(1)在设计时建立

步骤：1)在窗体上画出某控件，并进行属性设置。

2)选中该控件进行“复制”和“粘贴”操作，系统提示“是否建立控件数组”，选择是即可。多次粘贴就可以创建多个控件元素。

3)进行事件过程的编程。

(2)运行时添加控件数组

方法：1)在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组。

2)在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。

3)每个添加的控件数组通过Left 和Top属性，确定其在窗体上的位置，并将Visible设置为True。

使用示例：建立一个类似国际象棋的棋盘，要求黑白交替，运行时单击某个棋格，会改变颜色并显示其序号。

1.计算机等级考试二级VB考点：排列显示和分层显示控件

2.计算机等级考试二级VB考点：动态数组及声明

3.计算机等级考试二级VB考点：VB的过程设计

4.计算机等级考试二级VB考点：进程条和滑块

5.计算机等级考试二级VB考点：自定义数据类型

6.计算机等级考试二级VB考点：常用文件操作语句和函数

7.计算机二级考试VB考点：多媒体控件

8.计算机等级考试二级VB程序设计题

9.计算机二级考试VB考点：通用对话框控件

VFP：模拟VB控件数组操作标签控件第3篇

1 设计实现原理

例如图1中,将所有放置乘法算式的结果按钮控件按顺序放到一个模拟控件数组的类(比如“clresultarray.vb”类)中,这个类继承自System.Collections.CollectionBase这个集合基类,按钮控件按顺序放置到“clresultarray.vb”类的List属性中,以List.Item(index)的方式读取出来。图1中的乘数与被乘数按钮也采用同样的方式,分别放到不同的模拟控件数组的类对象中。

2 利用这种方法设计乘法口诀表

(1)启动VS2005,新建一个项目,名称为“乘法口诀表”。在网站项目中添加一个名为“clresultarray.vb”的类,此类对象按顺序存放乘法的积对应的按钮。在类“clresultarray.vb”中,添加以下代码:

'本程序段是向本类的对象的list属性中添加按钮控件,同时将此控件添加到窗体中,同时确定在窗体中的位置和显示的值,再绑定事件处理程序。

'当按下按钮时结果可以显示或隐藏。

再分别添加存放乘数按钮控的类claugendarray.vb,存放乘号按钮控的类clplusarray.vb,存放被乘数按钮控的类claddendarray.vb,存放等号按钮控的类clequalarray.vb。其代码的内容基本相同,可以参照上面的代码进行编写。

(2)在项目中添加一个frmMain主窗体,在窗体中只添加如图1所示最上面一排按钮(即“退出”所在行),所有乘法口诀命令按钮是在程序运行过程中动态产生的。在此窗体中添加如下代码:

运行frmMain主窗体,选择3以内的乘法后,按“确定”按钮,自动产生3以内的乘法口诀表,如图1所示。

3 结束语

通过上面的设计可以看出设计类的好处是可以在类中定义好控件数组的行为,在程序中直接调用即可,如果程序中需要此功能将此类加入到项目中即可方便调用,这种方法也解决了VB.NET中数组控件顺序存放和读取的问题。这里定义了五个类,其实如果类的功能基本相同,可以合并,使用类还可以定义更复杂的属性和行为,为软件复用带来了很大方便。

摘要：为了解决VB.NET中控件不能象VB6.0使用数组的问题,提出了基于类的控件数组解决方案,并就类控件数组的设计原理和实现方法进行了介绍。

关键词：控件数组,数组类,实现方法

参考文献

[1]孙强,王萍萍,赵俊丽,编著.Visual Basic.NET 2005中文版基础与实践教程.北京:电子工业出版社,2007.