or
Dim
p1
As
Integer
= GetSetting(
"splWidth1"
, 100)
Dim
pnl
As
SplitPanel = SPL.SplitPanels(0)
pnl.SetBounds(pnl.Left, pnl.Top, p1, pnl.Height)
SplitPanel1.Size =
New
Point(p1, SplitPanel1.Height)
SplitPanel2.Width = GetSetting(
"splWidth2"
, 100)
Public
Class
RadRibbonForm1
Private
Sub
RadButtonElement1_Click(sender
As
Object
, e
As
System.EventArgs)
Handles
RadButtonElement1.Click
Dim
childForm
As
New
Form()
childForm.Text =
"MDI Child "
& DateTime.Now.ToShortTimeString()
childForm.MdiParent =
Me
childForm.Show()
End
Sub
Private
Sub
RadButtonElement2_Click(sender
As
Object
, e
As
System.EventArgs)
Handles
RadButtonElement2.Click
Dim
frmChild
As
Form
For
Each
frmChild
In
Me
.MdiChildren
frmChild.Close()
Next
End
Sub
Public
Sub
New
()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me
.IsMdiContainer =
True
With
Me
.RadDock1
.AutoDetectMdiChildren =
True
.ShowDocumentCloseButton =
True
.ToolWindowInsertOrder = Telerik.WinControls.UI.Docking.DockWindowInsertOrder.ToBack
End
With
End
Sub
End
Class