/
ReportViewModel.vb
66 lines (60 loc) · 1.76 KB
/
ReportViewModel.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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports DevExpress.Mvvm
Imports DevExpress.XtraReports.UI
Namespace WpfApplication1
Public Class ReportViewModel
Inherits BindableBase
Private privateReport As XtraReport
Public Property Report() As XtraReport
Get
Return privateReport
End Get
Private Set(ByVal value As XtraReport)
privateReport = value
End Set
End Property
Public Sub New(ByVal report As XtraReport)
Me.Report = report
End Sub
End Class
Public Class PreviewViewModel
Inherits ReportViewModel
Public Sub New(ByVal report As XtraReport)
MyBase.New(report)
' Fill the itemsSource of a ComboBox editor.
ComboBoxItemsSource = Enumerable.Range(1, 20).Select(Function(x) String.Format("Item {0}", x))
' Set the minimum and maximum values for a DateTime editor.
DateTimeMin = DateTime.Now.AddMonths(-2)
DateTimeMax = DateTime.Now.AddMonths(2)
End Sub
Private privateComboBoxItemsSource As IEnumerable(Of String)
Public Property ComboBoxItemsSource() As IEnumerable(Of String)
Get
Return privateComboBoxItemsSource
End Get
Private Set(ByVal value As IEnumerable(Of String))
privateComboBoxItemsSource = value
End Set
End Property
Private privateDateTimeMin As DateTime
Public Property DateTimeMin() As DateTime
Get
Return privateDateTimeMin
End Get
Private Set(ByVal value As DateTime)
privateDateTimeMin = value
End Set
End Property
Private privateDateTimeMax As DateTime
Public Property DateTimeMax() As DateTime
Get
Return privateDateTimeMax
End Get
Private Set(ByVal value As DateTime)
privateDateTimeMax = value
End Set
End Property
End Class
End Namespace