VB6.0如何用代码添加控件？

使用数组方式，前提是已经初始化一个控件\x0d\x0a示例：\x0d\x0a存在一个text1(0)控件\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aLoad Text1(1)\x0d\x0aText1(1).Top = Text1(0).Top + 500\x0d\x0aText1(1).Visible = True\x0d\x0aLoad Text1(2)\x0d\x0aText1(2).Top = Text1(1).Top + 500\x0d\x0aText1(2).Visible = True\x0d\x0aEnd Sub

用代码向窗体添加控件步骤如下

（1）实例化一个控件；

（2）设置控件实例属性；

（3）将控件实例添加到窗体的Controls集合中

【示例】用代码向窗体添加一个命令按钮，单击这个按钮关闭窗口并退出

（1）在Visual Studio中新建一个“Windos 窗体应用程序”

（2）窗体代码Form1.cs如下：

using System

using System.Collections.Generic

using System.Windows.Forms

using System.Drawing

namespace WindowsFormsApplication1

{

    public partial class Form1 : Form

    {

        public Form1()

        {

            InitializeComponent()

            

            //实例化一个命令按钮

            Button btn = new Button()

            

            //设置命令按钮的属性 

            btn.Location = new Point(50, 50)

            btn.Size = new Size(80, 25)

            btn.Text = "退出"

            btn.Click += btn_Click

            

            //添加到窗口的Controls集合中

            this.Controls.Add(btn)

        }

        void btn_Click(object sender, EventArgs e)

        {

            this.Close()

        }

    }

}

（3）运行效果

窗体启动后

点击“退出”按钮后，窗口关闭。

先定义一个控件(Option1)，然后修改index值为0 ,就创建了控件数组，设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0aLoad Option1(i) 这句是关键,,,,,\x0d\x0aOption1(i).Top = Option1(0).Top\x0d\x0aOption1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200\x0d\x0aOption1(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

---