Prima ricerca con tutti campi vuoti

TopCommandBar/TopCommandBarVM.vb

@@ -7,6 +7,8 @@ Imports EgtPHOTOLib
 Public Class TopCommandBarVM
    Inherits VMBase
 
+   Private m_bFirstResearch As Boolean = True
+
 #Region "FIELDS & PROPERTIES"
 
    Friend m_MruFiles As New MruList
@@ -23,7 +25,16 @@ Public Class TopCommandBarVM
       End Get
       Set(value As Boolean)
          If value Then
+            If m_bFirstResearch Then
+               ' Resetto la data corrente per la prima ricerca 
+               PhotoMap.refSearchPanelVM.StartAddedDate = Nothing
+               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("StartAddedDate")
+               PhotoMap.refSearchPanelVM.EndAddedDate = Nothing
+               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("EndAddedDate")
+               m_bFirstResearch = False
+            End If
             PhotoMap.refSearchPanelVM.InitSearchPanel()
+
          Else
             PhotoMap.refListPageVM.InitListPage()
          End If