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,但这个不能直接用数组定义,如果要实现自定义数组控件并绑定事件,需要定义类模块,实现方法比较复杂,建议自行百度。
推荐阅读
- 微信公共账号到底咋用
- 咋用c语言或java打点出函数图
- 咋用源代码修改网站代码
- 为啥产品经理喜欢在Android上用iOS的控件
- 怎样学习mayavi2作图刚上研究生的小白,师兄布置任务学习这个,软件下下来,可是表示完全不晓得咋用。
- 咋用寒假一个月时间来完成java的面相对象思想的理解和入门
- 王者荣耀里露娜咋用
- 两个房间咋用两个路由器
- Axure 里文本段落控件里缺省的内容是啥意思
- UI设计中啥情况下使用提示框