感谢您使用微软产品。关于如何在VB6中动态增加控件,您可以参考以下文章。该文章同时提供了动态增加ActiveX控件及Event的使用方法:HOWTO: Dynamically Add Controls to a Form with Visual Basic 6.0[vbwin] http://support.microsoft.com/support/kb/articles/q190/6/70.asp -微软全球技术中心 桌面产品技术支持 本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
代码可以这样写:Dim txtNew as Text
set txtNew=new Text
Load txtNew
txtNew.move(10,10,40,20)
'声明对象变量为 CommandButton 。
Private WithEvents cmdObject As TextBoxPrivate Sub Form_Load()
'动态添加按钮
Set cmdObject = Form1.Controls.Add("VB.textbox", "cmdOne")
With cmdObject
.Visible = True
.Text = "动态按钮"
.Width = 1000
.Height = 500
.Top = Form1.Height / 2 - 500
.Left = Form1.Width / 2 - 500
End With
End Sub
Load sa(1)'sa是Textbox数组
sa(1).Top = 0
sa(1).Left = 0
sa(1).Width = 100
sa(1).Height = 50
sa(1).Visible = True
http://support.microsoft.com/support/kb/articles/q190/6/70.asp
-微软全球技术中心 桌面产品技术支持
本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
pandalittle(熊猫儿) 的方法需要在设计时创建一个控件数组!