请教如何用代码生成一个窗体,谢谢!!!

[yqy888]

请教如何用代码生成一个窗体,谢谢!!!
如有一个窗体a,在窗体上有一个command1,一个label1
我想点击command1,生成一个新窗体b,并在新窗体上在添加一个textbox1,显示新窗体,并textbox1.txt=a.label1,谢谢!!!!

[道素]

纯粹的代码创建窗体等
http://www.csdn.net/develop/read_article.asp?id=19319

不过我赞成你用 didishu0807的方法，我写的这篇文件主要用来学习而不适合实际使用。否则就失去VB RAD工具 的意义了

[lxcc]

纯API实现，只需要一个模块即可，F5运行可看结果

http://www.21code.com/codebase/?pos=down&id=1159

[hc_z]

我怎么没调通？

[yqy888]

谢谢didishu0807():
set frm2=new form出错,提示"无效使用new 关键字",还请您帮助,谢谢!!!

谢谢cuizm(射天狼):
frm.Text1.Text = Label1.Caption出错,提示未找到方法或数据成员"还请您帮助,谢谢!!!

[射天狼]

Option Explicit

Dim frm As New Form1

Private Sub Command1_Click()
frm.Show
frm.Text1.Text = Label1.Caption
End Sub

Private Sub Form_Load()
Set frm = Nothing
End Sub

[didishu0807]

private sub command1_click()
dim frm2 as form
dim text1 as vb.textbox
set frm2=new form
frm2.show
set text1=controls.add(vb.textbox,"text1",frm2)
frm2.text1.top=1500
frm2.text1.left=1500
frm2.text1.visible=true
frm2.text1.text=label1.caption
end sub

[pcwak]

引用对象

[hxy2003]

dim a as form
set a =new form
a.show