Question

嗨我想在运行时复制现有表单，以便可以多次使用。有单一的方式，如

Sub loadForm()
    Dim childForm As New myForm '<--- 
    With childForm
        .TopLevel = False
        .StartPosition = FormStartPosition.CenterScreen
        .Top = 199
        .BringToFront()
        Panel1.Controls.Add(childForm)
        .Show()
    End With
End Sub

但是我希望那个表格应该重复参考我试过

Sub LoadForm(ByVal childForm As Form)       
    'where childForm can be any myform1/mysale/mypurchase etc.
    With childForm
        .TopLevel = False
        .StartPosition = FormStartPosition.CenterScreen
        .Top = 199
        .BringToFront()
        Panel1.Controls.Add(childForm)
        .Show()
    End With
End Sub

我打电话

LoadForm(myform1)
LoadForm(mysale)

这不重复我也尝试创建

Dim newChildForm as new childForm ' its give error 1 Type 'childForm' not defined

Answer 1

感谢GSerg提示

问题解决我需要做的就是替换

loadForm(myform)

与

loadForm(New myform)

VB2008在运行时创建重复的现有表单

1 个答案: