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