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

Question

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

Answer 1

Option ExplicitDim frm As New Form1Private Sub Command1_Click()
    frm.Show
    frm.Text1.Text = Label1.Caption
End SubPrivate Sub Form_Load()
    Set frm = Nothing
End Sub

Answer 2

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

Answer 3

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

Answer 4

纯粹的代码创建窗体等
http://www.csdn.net/develop/read_article.asp?id=19319不过我赞成你用 didishu0807的方法，我写的这篇文件主要用来学习而不适合实际使用。否则就失去VB RAD工具 的意义了

Answer 5

纯API实现，只需要一个模块即可，F5运行可看结果http://www.21code.com/codebase/?pos=down&id=1159

Answer 6

谢谢didishu0807():
set frm2=new form出错,提示"无效使用new 关键字",还请您帮助,谢谢!!!谢谢cuizm(射天狼):
frm.Text1.Text = Label1.Caption出错,提示未找到方法或数据成员"还请您帮助,谢谢!!!