3a8edf022a
- Implementata nuova gestione quotature. - Correzione crash passaggio da hardware a door.
21 lines
904 B
VB.net
21 lines
904 B
VB.net
Public Class AssemblyManagerV
|
|
|
|
Private Sub Door_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs)
|
|
Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
|
|
' Gestisco porta corrente modificata
|
|
Dim IsModified As Boolean = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified
|
|
If Not Map.refAssemblyManagerVM.ManageModified() Then
|
|
Return
|
|
End If
|
|
' verifico se il progetto cliccato è quello già selezionato
|
|
If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName Is DirectCast(Item.DataContext, AssemblyName) Then
|
|
' ricarico la porta
|
|
Map.refAssemblyManagerVM.Open(DirectCast(Item.DataContext, AssemblyName))
|
|
End If
|
|
If IsModified Then
|
|
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName = DirectCast(Item.DataContext, AssemblyName)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|