-
Notifications
You must be signed in to change notification settings - Fork 1
/
MainWindow.xaml.vb
30 lines (25 loc) · 1.2 KB
/
MainWindow.xaml.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports DevExpress.Xpf.Core
Imports DevExpress.Xpf.Scheduling
Imports System.Windows
Namespace DXSchedulerSelection
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Public Partial Class MainWindow
Inherits DXWindow
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub schedulerControl_DependencyPropertyChanged(ByVal sender As Object, ByVal e As DependencyPropertyChangedEventArgs)
Dim scheduler As SchedulerControl = TryCast(sender, SchedulerControl)
If e.Property Is SchedulerControl.SelectedIntervalProperty Then
Me.OutputBox.AppendText(String.Format("SelectedInterval is changed. New value is {0} " & Microsoft.VisualBasic.Constants.vbCrLf, e.NewValue))
Me.OutputBox.ScrollToEnd()
End If
If e.Property Is SchedulerControl.SelectedResourceProperty Then
Me.OutputBox.AppendText(String.Format("SelectedResource is changed. New value is {0} " & Microsoft.VisualBasic.Constants.vbCrLf, CType(e.NewValue, ResourceItem).Caption))
Me.OutputBox.ScrollToEnd()
End If
End Sub
End Class
End Namespace