or



Shared Sub dockMDIForm(ByVal mydockableform As Form) 'Check if form already in Dock Dim hw As HostWindow = frmMain.radDockMain.GetHostWindow(mydockableform) If Not hw 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) frmMain.radDockMain.ActiveWindow = hw End If End SubShared Sub dockForm(ByVal myForm As Form) myForm.FormBorderStyle = FormBorderStyle.None myForm.TopLevel = False myForm.WindowState = FormWindowState.Maximized 'Check if form already in Dock Dim hw As HostWindow = frmMain.radDockMain.GetHostWindow(myForm) If Not hw Is Nothing Then 'Just show the window frmMain.radDockMain.ActiveWindow = hw Else 'Create a new document Dim docWindow As DocumentWindow = New DocumentWindow() docWindow.Controls.Add(myForm) 'add to Dock With frmMain.radDockMain .AddDocument(docWindow, DockPosition.Fill) .ActiveWindow = docWindow End With docWindow.DockTabStrip.PerformLayout() End If End SubUserControlPlugInDemo ucpid = new UserControlPlugInDemo(); DockPosition dockTo = DockPosition.Fill; this.radDock1.DockControl(ucpid, dockTo, DockType.Document);
//HTML ImportHtmlFormatProvider msgHTML = new HtmlFormatProvider();RadDocument tempDoc = msgHTML.Import(this.scMsg.messageText.ToString());this.msgContent.Document = tempDoc; // msgContent is the instance of RadRichTextBox
