ExtJS选项卡面板

时间:2010-08-17 22:04:39

标签: vb.net extjs

所以我将一个选项卡面板添加到子窗口。我们的许多控件都是用户定义的,但这看起来像是一个ExtJS问题。当我添加一个选项卡面板,然后尝试向该面板添加控件和内容时,该面板上的所有内容都会被切断。

以下是我正在使用的代码:

Using ViewDetailsWin As New Pages.ChildWindow
        With ViewDetailsWin
            .IconCls = Model.WorkflowStepDefinition.SmallIcon
            .Ref = "viewDetailsWin"
            .RenderTo = "workspacePanel.getEl()"
            .DestroyerRef = "mainPanel"
            .MethodName = "getViewDetailsWin"
            .Title = "View Details/Amortization Schedule"
            .Layout = Pages.Panel.LayoutType.Form
            .Closable = True
            .CloseAction = Pages.Window.CloseActionType.Hide
            .Maximizable = False
            .Modal = False
            .Height = 700
            .Width = 1000
            .BodyStyle = "padding:10px"

            .Toolbar.AddButton("Close", "function(){getViewDetailsWin().hide();}", "icon-button-cancel", , "Close")
            .Toolbar.AddButton("Select This Loan Terms Scenario", "function(){getViewDetailsWin().hide();}", "icon-button-save", , "Save")
            With .AddPanel()
                Dim Tabs As String() = {"Details", "Amortization Schedule"}
                Dim tabCollection As TabCollection = .AddTabs(Tabs)
                With tabCollection
                    With .Item(1)
                        With .AddFieldSet("Loan Calculation Results")
                            Dim ddlCalculateFor As New Controls.ComboBox("CalculateFor", "../../calculateFor", "Calculate For")
                            With ddlCalculateFor
                                .DisplayField = "LookupDesc"
                                .ValueField = "LookupID"
                                .ForceSelection = False
                                If Model.CalculateForId > 0 Then
                                    .Value = Model.CalculateForId
                                End If
                                .ReadOnly = True
                                .BindData(Model.CalculateForMethods)
                            End With
                            .AddControl(ddlCalculateFor)
                        End With
                    End With
                End With
            End With
            ViewResponse.AddScript(.ToJSObject("viewDetailsWin"))
        End With
    End Using

除非我滚动它创建的小小滚动条,否则我根本看不到下拉列表。它在屏幕上显示四分之一英寸,以便在标签面板内看到任何内容。我可以看到,选项卡面板上没有尺寸属性。

这整天都在吃东西。有什么想法吗?

1 个答案:

答案 0 :(得分:0)

窗口和子面板都必须使用布局类型“FIT”。