VB6.0 控件咋用代码自动生成

随便答一下,几种方法:方法1,利用现有控件数组:创建一个现成的控件(比如textbox,名字是Text1),给index设置成0,然后代码里Load Text1(1)就是加载一个新控件:Private Sub Command1_Click() Dim I As Integer For I = 1 To 10 Load Text1(I) Text1(I).Visible = True Text1(I).Top = Text1(I - 1).Top + 300 Next IEnd Sub注意,新load的控件的visible是不可见的,如果设置成可见,位置上会重叠。方法2,直接新增控件:利用Me.Controls.Add或者窗体名.Controls.Add Controls.Add需要三个参数,对象类名,对象名,父对象名:Private Sub Command2_Click() Dim TBox(1 To 10) As TextBox Dim I As Integer For I = 1 To 10 Set TBox(I) = Me.Controls.Add("VB.TextBox", "TB" \u0026amp; I, Me) TBox(I).Visible = True TBox(I).Top = I * 300 TBox(I).Left = 1000 Next IEnd Sub同样的,创建出来的东西是不可见的,需要设置visible可能还有别的方法。第二种看似方便(甚至可以创建二维数组),但因为不与现有控件关联,如何绑定事件是个大麻烦,可以考虑用WithEvents,但这个不能直接用数组定义,如果要实现自定义数组控件并绑定事件,需要定义类模块,实现方法比较复杂,建议自行百度。


    推荐阅读