vb6.0里如何在代码窗口添加控件数组?

如题所述

开始创建一个控件,index属性设为0,以后添加的话可以这样。以textbox为例:
Load Text1(1)
with text1(1)
.top=100
.left=100
...
.visible=true
end with
温馨提示:内容为网友见解,仅供参考
无其他回答

VB6.0如何用代码添加控件?
使用数组方式,前提是已经初始化一个控件\\x0d\\x0a示例:\\x0d\\x0a存在一个text1(0)控件\\x0d\\x0aPrivate Sub Command1_Click()\\x0d\\x0a Load Text1(1)\\x0d\\x0a Text1(1).Top = Text1(0).Top + 500\\x0d\\x0a Text1(1).Visible = True\\x0d\\x0a Load Text...

VB6.0中 怎样在窗体中添加一个复选框数组(含N个复选框)
先在窗体中插入一个复选框对象,紧接着CTRL+C复制,然后CTRL+V粘贴,“已有一个控件为'Check1',创建一个控件数组吗?“,要回答“是”。如果需要多个,就继续CTRL+V,直到够数为止。

VB6.0如何用代码添加控件
第三个例子添加一个非引用控件到 Controls 集合。然而要编程这样一个控件的事件,必须声明一个 VBControlExtender 类型的对象变量,并把由这个方法返回的引用设置到该对象。然后使用 ObjectEvent 事件编程该控件的事件。Option Explicit Dim ctlExtender As VBControlExtender Private Sub Form_Load()Set ctl...

vb6.0如何手动建立控件数组
不如你要做的控件数组是Text,那么你先在窗体上放置一个Text1,名字可以改,随便,但你需要修改它的Index属性为0(当然其他数字也行,但建议用0),这个就是你Text数组的第一个控件了。下来在程序里面,使用load方法,直接调用第二个,第三个,...如:Load Text1(1)Text1(1).Left=10 Text1(1...

VB6.0控件数组使用
在窗体中添加一个命令按钮,将名称改为Cmd,添加一个文本框,将Text属性清空,将界面设置成下图:选中刚刚新建的命令按钮,单击鼠标右键选择“复制”命令。在窗体空白位置,单击鼠标右键选择“粘贴命令”。弹出“Microsoft Visual Basic”对话框,此时询问你是否创建一个控件数组,选择“是”进行创建,并将...

VB6.0中,如何动态添加控件至指定的PictureBox控件中?
开始的一个元素的调用方法为 Cmd1(0).属性 其中()内的为操作元素的下标。只要Load对应的数组元素。即可完成元素的载入,载入成功后可以当做一个普通控件来操作。此时如果需要添加多个,请使用For循环+Load语句实现 For i=1 to 20 Load Cmd(i)Cmd(i).visible=ture ...next i ...

VB6.0 如何编写事件达到控件数组文本框可自动回退字符的功能?
如果控件是数组更简单:代码如下 Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 8 And Text1.Item(Index).Text = "" Then SendKeys "+{TAB}" End IfEnd Sub这个挺有意思的,代码少,可循环,从第一个删完会跳到最后一个再向前...

vb6.0 怎么向控件数组里添加控件 还有怎么在load事件中 更改数组中控件...
'添加控件Picture1,Label1,Text1,把它们的Index属性都设为0 Sub LoadControls(obj As Object, num, n, x, y)'obj是控件数组名,num是控件数组下标的上界,n是每行控件数 'x是控件横向间距,y是控件纵向间距 For i = 1 To num Load obj(i)obj(i).Visible = True obj(i).Move (i Mod ...

vb6.0怎么用for函数新建很多个按钮?
在窗体上新建一个commandbutton,caption为0,index为0,form中load事件中的代码:for i = 1 to 3 '再创建3个按钮.load command1(i)command1(i).visible = True command1(i).move command1(i-1).left + command1(i-1).width,command1(0).top command1(i).Caption = i next 按钮的...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答:留个Q我传你个代码

相似回答