VB中怎样动态添加控件数组

Option Explicit

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

    Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

    NewTextBox.Move 200, 200

     NewTextBox.Width = Form1.Width - 450

      NewTextBox.Height = Form1.Height - 1400

      NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

    Exit Sub

Else

   Controls.Remove NewTextBox

   Set NewTextBox = Nothing

   End If

End Sub

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 = 0i<5i++) { /*示例，分别用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 = 0i<5i++) {/*分别关闭打开的文件*/

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

两个问题一起回答。你先按正常方法添加一个command1,也按平时的方式，设置你需要的所有属性，这时，再选定按钮，复制，粘贴，询问你是否添加控件数组，点是，于是，和你刚才的按钮属性完全一样的控件数组就产生了。不停的粘贴，就会有一大组控件数组了。

---