在面板中加载多个表单

时间:2013-11-24 10:59:55

标签: forms

我有一个主要形式,有2个面板,上面有一个分割条。 右侧面板包含图形区域(Panel2)

左侧面板(Panel1)是我想使用表单变量加载不同表单的地方。 根据菜单选择,我有40种不同的形式。

我认为我可以使用ByRef在表单中传递以下内容,但是我在这行fMyForm上出现错误,表示"类型fMyForm未定义"

frm = New fMyForm() With {.TopLevel = False, _
               .Parent = Me.splitContainerControl.Panel1} 

任何人都可以帮我看看我出错的地方

Public Sub FormMgrOpen(fMyForm As Form)

    Dim the_hwnd As Long
    Dim form_is_open As Boolean
    Dim frm As Form

    Me.splitContainerControl.Panel1.Controls.Clear()

    frm = New fMyForm() With {.TopLevel = False, _
           .Parent = Me.splitContainerControl.Panel1}

    splitContainerControl.PanelVisibility = SplitPanelVisibility.Both

    frm.Show()    

    splitContainerControl.SplitterPosition = frm.Width 

    Me.splitContainerControl.Panel1.Refresh() 

    frm.Size = Me.splitContainerControl.Panel1.Size 


End Sub

1 个答案:

答案 0 :(得分:0)

fMyForm是一个局部变量,所以我认为它不应该有括号! 试试这个:

 frm = fMyForm With {.TopLevel = False, _
            .Parent = Me.splitContainerControl.Panel1}

我不懂VB,所以请原谅我语法错误! :)