重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb如何定义控件数组? 但是也得先画第一个控件啊。画一个Option1,把他的Index设置为0.再建一个Command1用于添加其他的.
专注于为中小企业提供成都网站建设、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业辽阳免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千余家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
代码如下。
==========
Private Sub Command1_Click()
Load Option1(Option1.UBound + 1)
Option1(Option1.UBound).Visible = True
Option1(Option1.UBound).Move Option1(0).Left, Option1(Option1.UBound - 1).Top + Option1(0).Height
End Sub
VB中如何定义一组控件?
我举个例子:
先添加一个按钮Command1,选中它,复制 -- 粘贴,回答“是”,再粘贴一个,一共3个。
它们的名称应该是:
Command1(0)
Command1(1)
Command1(2)
双击任意一个按钮,进入代码窗口,编写代码如下:
Private Sub Command1_Click(Index As Integer)
MsgBox "你单击了按钮 " Index
End Sub
你会发现,与以往不同,单击事件里多了个参数Index,这个参数用来传递,你是单击了哪一个按钮的,分别用0,1,2,对应
Command1(0)
Command1(1)
Command1(2)
vb:如何删除控件数组
对于删除控件,主要有三种方法:
一,使用controls.add创建的,使用controls.remove删除;
二,使用控件数组的load方法加载的,则使用unload解决;
三,手动画到“窗体”上的“手动”删除。
C 中如何定义文件数组
如下:
---------------------------------------------------------------------------
#include stdio.h
int main(void)
{
FILE *fn[5]; /*文件指针数组,有5个元素,可以分别指向5个文件*/
int i;
char fname[255];
for (i = 0; i5; i++) { /*示例,分别用fn数组和5个文件指针指向c:\txt中的5个文件*/
sprintf(fname,"c:\\txt\\%d.txt",i); /*分别生成每个文件路径*/
fn[i]=fopen(fname,"r"); /*打开对应的文件*/
}
/*
文件处理过程,例如:
fscanf(fn[2],"%d",i); 从fn[2]指向的文件中读取一个整数并保存到i变量
.....
.....
*/
for (i = 0; i5; i++) {/*分别关闭打开的文件*/
fclose(fn[i]);
}
return 0;
}
---------------------------------------------------------------------------
C#怎么定义控件数组
Point[] pt = new Point[8];
pt[0] = new Point(10, 10);
怎样在 BCB 中定义控件数组
所谓自定义控件,就是自己编写的控件了。假设你需要一个web控件,实现用户登陆+验证码等等功能。就自己先在项目里新建一个userconsole那个,然后在里面添加子控件,代码要在用户控件里写。功能实现后,在调用的使用,直接把这个userconsole拖出...
VB 控件数组
每个控件都有Index属性吧?
你在设计时把这个属性赋值(一般为“0”)就相当于你创建了一个控件数组
给你个应用控件数组的例子:
首先,建一个Command控件(Name为Command1)
再建一个Label控件(Name为Label1,Index为0)
注意:label1的Index属性一定要给值
代码部分:
Private Sub Command1_Click()
i = Label1.UBound + 1
Load Label1(i)
Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height
Label1(i).Caption = "新Label" i
Label1(i).Visible = True
End Sub
VB中控件数组如何使用
数组分为动态数组和静态数组;静态数组维数不能变,静态数组声明时要写明维数和元素上下界,上界可省略。
pivate|public|dim 数组名([上界] to 下界[,[上界] to 下界]……) as 类型说明词
方括号里的是可省略。 例:
Dim a(1 to 5) as string这个是声明一个有5个元素的1维数组,类型为字符串型。其元素有:a(1),a(2)a(3),a(4),a(5)这五个元素。
二维数组:
dim a(1 to 3 , 1 to 2) as string这个是声明一个有6个元素的2维数组,类型为字符串型。其元素有:a(1,1),a(1,2),a(2,1),a(2,2),a(3,1),a(3,2)这6个元素。
vb 控件数组的数组
可以这样理解吗? 将控件数组储存在数组里,就是控件数组组成了一个数组.
首先在窗体上画两个控件数组名为Option1和Option2各包括两个控件.代码如下
Dim arr(3)'申明用来储存控件数组的数组
Set arr(0) = Option1(0)'给各元素赋值
Set arr(1) = Option1(1)
Set arr(2) = Option2(0)
Set arr(3) = Option2(1)
Print arr(0).Caption'显示存储对象的属性
VBA如何定义textbox控件数组,然后遍历数组中的每一个控件并对满足条件的textbox赋值。
VBA显然是不支持数组控件的,但可以这样的,假如金额的textbox名称依次被命名为sum1,sum2,sum3........
private sub cmdOk_click()dim a as controlfor each a in me.controlsif left(a.name,3)="sum" and a.value ="" then a.value=0nextend sub
先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) ' 这句是关键,,,,,\x0d\x0a Option1(i).Top = Option1(0).Top\x0d\x0a Option1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200\x0d\x0a Option1(i).Visible = True\x0d\x0a Next\x0d\x0a Option1(0).Caption = "10"\x0d\x0a Option1(1).Caption = "15"\x0d\x0a Option1(2).Caption = "20"\x0d\x0a Option1(3).Caption = "30"\x0d\x0a End Sub\x0d\x0a\x0d\x0aPrivate Sub Option1_Click(Index As Integer)\x0d\x0a Text1.FontSize = Val(Option1(Index).Caption)\x0d\x0aEnd Sub
你这是控件数组?你这明明就是9个不同的 TextBox 控件啊,只不过名字长得像而已。