[VB2010] Spiegazione funzionamento DirectCast

[[_Kilckk_]]

Su internet ho trovato questo codice:

Private Class cMyItem
        Public Sub New(ByVal sMyVisibleTag As String, ByVal iMyIDTag As Integer)
            MyVisibleTag = sMyVisibleTag
            MyIDTag = iMyIDTag
        End Sub


        Public MyVisibleTag As String           'il tag visibile 
        Public MyIDTag As Integer               'il tag nascosto

        'Ovveride della funzione ToString
        Public Overrides Function Tostring() As String
            Return MyVisibleTag
        End Function

    
    End Class

per aggiungere un valore lo si usa in questo modo

ListBox1.Items.Add(New cMyItem("tag visibile", "tag invisibile"))

per richiamare un dato

With DirectCast(ListBox1.SelectedItem, cMyItem)
            Me.TextBox1.Text = .MyIDTag
End With

come mai succede questo??? io pensavo che ci volesse un array per fare questo, come fa esattamente a sapere quale dato recuperare???

Grazie.

[ShaleN]

Ciao. Leggi qui

[[_Kilckk_]]

ok ho capito a cosa serve il DirectCast ma quì sembra che venga usato per fare tutto un altro tipo di operazione, quì cerca una string per sostituirne con un altra ... ma come funziona visto che non vedo un array che salva i dati?

[[_Kilckk_]]

anche se uso lo stesso codice su più listbox riesce sempre a sapere cosa richiamare... nessuno mi sa spiegare il funzionamento di questo codice?

Grazie.

[ShaleN]

Con quel codice, tu aggiungi alla ListBox elementi di tipo cMyItem.

ListBox1.SelectedItem restituisce un oggetto di tipo Object, che tu converti (tramite DirectCast) in un oggetto di tipo cMyItem. Dopo di che, chiedi il valore di MyIDTag dell'istanza di cMyItem, che è il "campo nascosto", e lo setti come testo della TextBox.
Spero di esserti stato utile

[[_Kilckk_]]

ok ora ho capito meglio come avviene al sostituzione ma continuo a non capire come avviene la memorizzazione dei dati visto che manca un array, dopo quello che mi hai detto io penso che dipenda da:

Public Sub New(ByVal sMyVisibleTag As String, ByVal iMyIDTag As String)

visto che c'è New crea ogni volta una nuova class con l'Object di chi la invoca, così che poi DirectCast andrà a richiamare la class con l'Object che gli passo come se fosse il nome della classe e poi richiama i valori come se fosse una normale class.

Giusto?

Quindi su listbox troppo grandi e che cambiano sempre a lungo a dare vado a saturare tutta la ram... o sbaglio?

[tas]

Provo a fare un po' di chiarezza.

Non c'è un array ma c'è una collection, che gestisci attraverso la proprietà Items della ListBox.

Il metodo Add si aspetta un testo oppure un qualsiasi oggetto che abbia definito il metodo ToString. Appena aggiungi l'oggetto cMyItem la ListBox invoca il metodo ToString e lo fa apparire a video, mentre in memoria mantiene l'oggetto cMyItem vero e proprio, dentro la collection.

Il metodo New così come lo hai riportato non è necessario, ma è utile perché riesci ad assegnare le due proprietà contestualmente alla creazione dell'oggetto. Senza quel metodo New avresti dovuto scrivere:

Dim obj As cMyItem

obj = New cMyItem
obj.MyVisibleTag = "tag visibile"
obj.MyIDTag = 1

ListBox1.Items.Add(obj)

Essendo che la proprietà SelectedItem non è tipizzata (restituisce cioè un object generico), per estrarre una qualsiasi proprietà dell'oggetto originale (nel tuo esempio cMyItem) devi fare un cast.

Se tu avessi scritto:

Me.TextBox1.Text = ListBox1.SelectedItem.MyIDTag

avresti ricevuto un errore da parte del compilatore, in quanto la classe Object non ha nessuna proprietà o metodo chiamati MyIDTag.

[[_Kilckk_]]

ora si che ho capito tutto, grazie per la spiegazione ora mi è tutto più chiaro ecco perchè fa l'overrides sul Tostring(). Ci stavo uscendo pazzo per questa cosa!

Grazie 1000