100分:如何用代码添加新的窗体？

Question

比如:单击按钮cmd时添加一个名为frm的窗体。
添加控件可以用form.controls.add ,可是这个方法不能添加窗体。
谢谢！

Answer 1

在某个过程里写：Dim NewForm As FormSet NewForm = New FormWith NewForm
    .Top = 15 * 50
    .Left = 15 * 10
    .Width = 15 * 200
    .Height = 15 * 150
    .Caption = "用代码新加的窗口"
    .Visible = True
    .Show
End With说明一下，这段代码我没有试运行过，但是应该是可以的。

Answer 2

还是不行“编译错误，无效使用NEW关键词”

Answer 3

Set NewForm = New Form
                  ^^^^这里应是一个已存在的窗体对象

Answer 4

在button的click事件里：
dim newForm as new myExistForm
 newForm.show
就行了。
这里的myexistform是你当前button控件所在的窗体的名字。

Answer 5

看来得用 API，不过我建议你一个方法，你可以先建好一个窗体，比如叫 frmModal，然后要用时就：Dim NewForm As New frmModal来创建一个新的 Form。
这个是可以的。

Answer 6

可以試試以下的方法
假如當前己存在一個窗體窗體名稱為frm1
dim frm as form'定議一個form
set frm=new frm1
with frm
.caption="窗口名稱"
在這裡面還可以加一些窗體屬性,根據自己需要添加
end with
frm.visible=true