Question

请问在vb中如何在程序运行当中生成一个窗体？

就是点击一个按钮就出现一个窗体，这个窗体以前没有，是运行时候生成的。不是在设计时添加的窗体，这个意思。

Answer 1

原来没有,就要用API咯....
如果你是复制一个已有的,就用
dim a as new form1
a.show
如果是要没有的，就CreateWindowEx
第一个参数是WindowStyleEx,可以由WS_EX_*组合，也可以是0
lpclassname
窗体就是#32770（切记，不能是VB的ThunderRT6FormDC）
按钮Button
文本框Edit
标签（label,可以当picture用）static
ComboBox:ComboBox
ListView：ListView32
status:msctl_statusbar32
progress:msctl_progress32
RichTxt:RichEdit20
Toolbar:ToolBar32
不过控制这些控件都要用API（sendmessage）
事件触发用wndproc
相对麻烦
lpwindowname
窗体标题,相当于caption
dwstyle

窗口样式 WS_*，用or连接
有所有按钮的窗口。。WS_OVERLAPPEDWINDOW
x,y就是窗口坐标，可以用cw_userdefault，到默认为之
width,height不多说。。窗体的宽度高度。。
hwndparent..这个 如果是控件的话，就要设置成所在窗体的hwnd,还有，控件的话，dwstyle要有WS_CHILD要不会有问题
hmenu 菜单
hinstance 设置成app.instance就行
lpparam:byval 0&暂时不知道是干什么的

Answer 2

不行.
还是用存在的窗体.
Private Sub Command1_Click()
Dim a As New Form1
a.Show
End Sub

Answer 3

Private Sub Form_Click()
Dim x As New Form1
Load x
x.Visible = True
End Sub

Answer 4

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Answer 5

dim f1 as new form
f1.show