Files
egtbeamwall/EgtBEAMWALL.ViewerOptimizer/Utility/PartsObservableCollection.vb
T
DarioS 25d7516c7a EgtBEAMWALL 2.4g4 :
- ricompilazione con cambio versione
- modifiche per eliminare alcuni crash
- modifiche per eliminare i warning.
2022-08-01 17:08:40 +02:00

17 lines
381 B
VB.net

Imports System.Collections.ObjectModel
Public Class PartsObservableCollection(Of T)
Inherits ObservableCollection(Of T)
Public Sub AddToList(item As T)
If IsNothing(item) OrElse Contains(item) Then Return
Add(item)
End Sub
Public Overloads Sub RemoveFromList(item As T)
If Not Contains(item) Then Return
Remove(item)
End Sub
End Class