Per rimanere in tema con il mio precedente post , dovevo
fare il sort degli array che avevo creato per la mia applicazione.Ho provato un
pò con il metodo sort nativo degli array del framework ma non sono riuscito a
farlo funzionare.Credo che debba approfondire in merito ; nell'array avevo
salvato una collection di oggetti da me creati che avevano comunque un identità
sortabile(si dirà così?).Bah...non ho trovato niente di meglio che ripescare nei
miei ricordi di studio e fare un bel bubble sort ( gli oggetti non sono molti ,
al massimo 30).
Public Sub Sort()'Metodo di ordinamento degli oggetti SSD Dim MyVCounter As Integer Dim Swapped As Boolean = True Dim tmp As SSDAmbiti While Swapped Swapped = False For MyVCounter = 1 To _SizeSSd - 1 If _ArraySSD(MyVCounter).NomeSSD < _ArraySSD(MyVCounter - 1).NomeSSD Then tmp = _ArraySSD(MyVCounter) _ArraySSD(MyVCounter) = _ArraySSD(MyVCounter - 1) _ArraySSD(MyVCounter - 1) = tmp Swapped = True End If Next End While End Sub
powered by IMHO 1.2