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
posted @ venerdì 11 marzo 2005 18:51