我知道一个笨方法.如果你已经有一个Textbox控件,选中它"复制"_"粘贴",会有提示你是否要创建控件数组.
然后你要用到其中一个时,用Load语句就可以。
Load X(6)
For i = 1 To 6
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i
然后你要用到其中一个时,用Load语句就可以。
Load X(6)
For i = 1 To 6
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i
解决方案 »
- 复制Picture里的内容包插控件保存为图片
- spy++得不到的控件句柄
- 希望去掉text控件的“拷贝”,“粘贴”弹出菜单,如何实现?
- 高分求一简单问题!解决立刻给分!
- 使用vb做dde连接,如果发生通讯中断,请问如何重新连接上?
- 如何用手的方法而不通过Setup的安装程序来注册所需要的控件?
- 问键盘拦截函数中nCode,wParam,lParam三个参数含义
- so easy, 送分...............
- 如何编写打印呢?我学了一段时间还不会,有谁教我啊!
- 请问VB 的DataGrid 或者 VsflexGrid 等等表格怎么删除多行选中的记录!
- 为什么从access 2000 中调不出数据
- html与VB的集成问题。
load x(i)
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i这样即可。
改进为:
Dim x(6) As new TextBox
在你的控件的窗口中设置INDEX为0
这样它就成了一个控件数组!!
例如生成一个cmdA(0)控件,
接着在form_load()或别的要调用的事件中这么做:
for i=1 to n'n是你想要的数量
load cmdA(i)
cmdA(i).Left=cmdA(i-1).Left+cmdA(i).Width
cmdA(i).Top=cmdA(0).Top+(i mod 6)*cmdA(i).Height
next i