or


Sub GetResource() 'Get the Resource Dim point As Point = frmMain.rsdDiaryMain.PointToClient(Cursor.Position) Dim groupedDayViewElement As SchedulerDayViewGroupedByResourceElement = TryCast(frmMain.rsdDiaryMain.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement) Dim cellElement As SchedulerCellElement = SchedulerUIHelper.GetCellAtPoint(point,groupedDayViewElement.GetDayViewElements()) Dim dayViewElement As SchedulerDayViewElement = TryCast(cellElement.Parent.Parent.Parent.Parent.Parent.Parent, SchedulerDayViewElement) Dim resource As EventId = dayViewElement.View.GetResources(0).Id 'Set the ATP dropdown for this resource Me.ddlResources.SelectedIndex = CType(resource.KeyValue, Integer)End Sub

Private Sub RadMenuItem1_Click(sender As Object, e As EventArgs) Handles RadMenuItem1.Click 'Small 'RadPanorama1.SuspendUpdate() tileBig.ColSpan = 1 tileBig.RowSpan = 1 tileBig.Size = New Size(200, 200) 'RadPanorama1.ResumeUpdate() RadPanorama1.Refresh() 'ReArrange() End SubPrivate Sub RadMenuItem3_Click(sender As Object, e As EventArgs) Handles RadMenuItem3.Click 'Large tileBig.ColSpan = 2 tileBig.RowSpan = 2 ' tileBig.Size = New Size(400, 400) RadPanorama1.Refresh() 'ReArrange() End Sub
ToolWindow tool = new ToolWindow(); tool.Text = form.Text; this.radDock1.FloatWindow(tool, new Rectangle(new Point(this.DesktopBounds.X + this.DesktopBounds.Width / 2 - formWidth / 2, this.DesktopBounds.Y + this.DesktopBounds.Height / 2 - formHeight / 2), new Size(formWidth, formHeight))); form.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None; form.TopLevel = false; form.Dock = DockStyle.Fill; form.Show(); foreach(DockWindow dock in this.radDock1.DockWindows) { if(GesHelper.Equals(dock.Name, tool.Name)) { dock.Controls.Add(form); dock.CloseAction = DockWindowCloseAction.CloseAndDispose; break; } }