【发布时间】:2010-08-17 22:04:38
【问题描述】:
所以我在子窗口中添加了一个标签面板。我们这里的很多控件都是用户定义的,但这看起来像是一个 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
除非我在它创建的微小滚动条上滚动,否则我什至根本看不到下拉菜单。它可以在屏幕上显示四分之一英寸,以查看选项卡面板内的任何内容。据我所知,标签面板上没有 size 属性。
这已经占用了我一整天。有什么想法吗?
【问题讨论】: