有耐心的高手们进来 指导一下vb如何点击按钮增加组件
就是一点击按钮 就生成一个textbox的控件
两个command的控件
然后textbox在离窗口顶部的地方 两个command并排在textbox的右面
如果再点击次按钮 就再生成和上面一样的三个控件
只不过这三个控件在第一次的那三个控件的下方
最好给出实例 旁边有注释
我毕竟是还是个初学的菜鸟
第二次添加由你自己完成,道理一样.
路过.....
希望对你有所帮助
Private Sub cmdAddTxt_Click()
Dim n As Integer '定义一个变量
n = Text1.UBound + 1 '使用控件数组，将上界增加1个
Load Text1(n) '装载控件
Text1(n).Left = Text1(n - 1).Left '设置控件的位置
Text1(n).Top = Text1(n - 1).Top + Text1(n - 1).Height * 1.1
Text1(n).Visible = True '设置控件可见
Text1(n).Text = n '设置内容为第几个，此行用于区别其它控件而写，无其它含义
End Sub
不知道为什么上一个帖子没有代码？！不好意思了！
必需要先判断此控件是否不存在才能添加.
#2正解
学习中
路过。。。
路过！
VB交流群159016553，欢迎大家加入~~~~~~
真是太感谢了
竟然有这样有耐性的人
感动ing
Set NewText = Controls.Add("VB.TextBox", "txtNew", Me)
NewText.Move 1000, 600, 2500, 1000
aButton.Move NewText.Left, NewText.Top + NewText.Height + 100,
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
