学习VB编程第36天，如何动态添加控件数组

今天学习了刘金玉老师零基础VB教程的第44期，学习的主要内容是如何动态添加控件数组。

一、控件数组

控件数组：同一个类型的一组控件，这组控件的名称相同，但index索引不同。

动态控件数组：可以随着数据的变化，动态增加或者减少控件数量，使软件使用的扩展性得到提升。

二、动态控件数组的使用

使用关键字load来动态添加控件数组。比如：Load Label1(i)，表示的是动态添加i个label控件，注意动态添加控件数组后，需要将控件的visible属性设置为true。

（一）补充知识:使用取余数和取整数来控制控件的数量，以及行和列的分布。

（二）案例分享：建立40个label控件数组，每行10个，共四行。

1.输入代码：

Private Sub Form_Load()

Dim i%

For i = 1 To 39 Step 1

Load Label1(i)

Next i

For i = 0 To 39 Step 1

Label1(i).Left = (i Mod 10) * 1300 控制列宽

Label1(i).Top = (i \ 10) * 1300 控制换行和行高

Label1(i).Caption = i + 1

Label1(i).Visible = True

Randomize

Label1(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 随机产生label控件颜色

Next i

End Sub

2.运行得到结果如图