Posted 24 Sep 2012 Link to this post
Shared
Sub
dockMDIForm(
ByVal
mydockableform
As
Form)
'Check if form already in Dock
Dim
hw
HostWindow = frmMain.radDockMain.GetHostWindow(mydockableform)
If
Not
Is
Nothing
Then
'Just show the window
frmMain.radDockMain.ActiveWindow = hw
Else
'Create a new instance of the Form & add to dock
mydockableform.MdiParent = frmMain
mydockableform.Show()
'frmMain.radDockMain.DockControl(mydockableform, DockPosition.Fill, DockType.Document)
hw = frmMain.radDockMain.GetHostWindow(mydockableform)
End
dockForm(
myForm
myForm.FormBorderStyle = FormBorderStyle.None
myForm.TopLevel =
False
myForm.WindowState = FormWindowState.Maximized
HostWindow = frmMain.radDockMain.GetHostWindow(myForm)
'Create a new document
docWindow
DocumentWindow =
New
DocumentWindow()
docWindow.Controls.Add(myForm)
'add to Dock
With
frmMain.radDockMain
.AddDocument(docWindow, DockPosition.Fill)
.ActiveWindow = docWindow
docWindow.DockTabStrip.PerformLayout()
FrmPlain =
FrmPlain()
myForm.Dock = DockStyle.Fill
I am glad to hear that the misunderstanding is resolved. Let us if you have additional questions on the case.