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