INIT OK 20.1.4

This commit is contained in:
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
@@ -139,10 +139,10 @@ Public Class ListViewModelManagerVC
Private Sub aListViewModelManager_FileBrowser_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aListViewModelManager_FileBrowser.Execute
Dim _ListViewCustomization As ListViewCustomization = TryCast(View.SelectedObjects(0), ListViewCustomization)
If _ListViewCustomization IsNot Nothing Then
Dim _OpenFileDialog As New Windows.Forms.OpenFileDialog
Dim _OpenFileDialog As New System.Windows.Forms.OpenFileDialog
_OpenFileDialog.Filter = "XAFML file (.xafml)|*.xafml|All Files (*.*)|*.*"
If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
_ListViewCustomization.XMLFileName = _OpenFileDialog.FileName
End If
End If