Public Class ElementLayerTreeViewV

   Dim nPrevPartId As Integer = 0

   Private Sub ElementLayerTreeView_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      ' se ci troviamo nella pagina LayersWall e un Layer è già selezionato
      If Map.refMainMenuVM.SelPage = EgtBEAMWALL.Core.ConstGen.Pages.LAYERSWALL AndAlso
         Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLLayer) AndAlso
         Map.refProjectVM.BTLStructureVM.SelBTLLayer.IsSelected Then
         ' salvo il PartId dell'elemento che era già selezionato
         nPrevPartId = Map.refProjectVM.BTLStructureVM.SelBTLLayer.nPartId
      End If
   End Sub

   Private Sub ElementLayerTreeView_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs)
      ' se ci troviamo nella pagina LayersWall e un Layer è già selezionato
      If Map.refMainMenuVM.SelPage = EgtBEAMWALL.Core.ConstGen.Pages.LAYERSWALL AndAlso
         Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLLayer) AndAlso
         Map.refProjectVM.BTLStructureVM.SelBTLLayer.IsSelected Then
         ' se l'elemento su cui ho clickato è lo stesso che era selezionato
         If Map.refProjectVM.BTLStructureVM.SelBTLLayer.nPartId = nPrevPartId Then
            ' riassegno SelBTLLayer a se stesso per eseguire la riselezione di se stesso
            Map.refProjectVM.BTLStructureVM.SelBTLLayer = Map.refProjectVM.BTLStructureVM.SelBTLLayer
         End If

         'Map.refProjectVM.BTLStructureVM.ShowBuilding(True, False)

      End If
   End Sub

End Class