/
FolderBrowserDialogViewModel.vb
54 lines (43 loc) · 1.4 KB
/
FolderBrowserDialogViewModel.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
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.DataAnnotations
Namespace FolderBrowserDialogServiceSample.ViewModel
Public Class FolderBrowserDialogViewModel
Inherits ViewModelBase
Public Property Description As String
Get
Return GetValue(Of String)()
End Get
Set(ByVal value As String)
SetValue(value)
End Set
End Property
Public Property ShowNewFolderButton As Boolean
Get
Return GetValue(Of Boolean)()
End Get
Set(ByVal value As Boolean)
SetValue(value)
End Set
End Property
Public Property ResultPath As String
Get
Return GetValue(Of String)()
End Get
Set(ByVal value As String)
SetValue(value)
End Set
End Property
Public ReadOnly Property FolderBrowserDialogService As IFolderBrowserDialogService
Get
Return GetService(Of IFolderBrowserDialogService)()
End Get
End Property
Public Sub New()
ShowNewFolderButton = True
End Sub
<Command>
Public Sub ShowDialog()
If FolderBrowserDialogService.ShowDialog() Then ResultPath = FolderBrowserDialogService.ResultPath
End Sub
End Class
End Namespace