[VB.NET] Restituire una collection da una function

[eggpap]

Ciao,
mi scuso ma non ho trovato niente a proposito di questo mio problema.

Questa sub richiama la Function LoadFromFile che dovrebbe restituire l'oggetto Pair alla variabile Rec. La Function funziona correttamente, perché passo-passo leggo i valori delle proprietà, ma rec non contiene nulla ovvero Is Nothing.
Qualcuno sa dirmi perché?

 Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim rec As Pair
        rec = LoadFromFile("g:\tabpairs.dat")
    End Sub 

Public Shared Function LoadFromFile(ByVal Filename As String) As Pair
        Dim fs As New FileStream(Filename, FileMode.Open)
        Dim r As New BinaryReader(fs)
        Dim NewTab As New Pair()
        NewTab.NG = r.ReadInt16()
        NewTab.T = r.ReadInt16()
        r.Close()
        Return NewTab
    End Function

Grazie, Emiliano

[URANIO]

Come hai definito Pair?

[eggpap]

Grazie, ecco il codice

Public Class PairingTab

    Private m_NG As Long
    Public Property NG() As Int16
        Get
            Return m_NG
        End Get
        Set(ByVal value As Int16)
            m_NG = value
        End Set
    End Property
 
    Private m_T As Long
    Public Property T() As Int16
        Get
            Return m_T
        End Get
        Set(ByVal value As Int16)
            m_T = value
        End Set
    End Property
End Class

[oregon]

Pair o PairingTab ? Decidi ...

[eggpap]

Scusa è Pair, correggo

Public Class Pair

    Private m_NG As Long
    Public Property NG() As Int16
        Get
            Return m_NG
        End Get
        Set(ByVal value As Int16)
            m_NG = value
        End Set
    End Property
 
    Private m_T As Long
    Public Property T() As Int16
        Get
            Return m_T
        End Get
        Set(ByVal value As Int16)
            m_T = value
        End Set
    End Property
End Class

[renygade]

Ehm.. a me pare che il problema sia qua

Public Shared FunctionLoadFromFile

[URANIO]

Ehm.. a me pare che il problema sia qua

Public Shared FunctionLoadFromFile

Quello è corretto, è semplicemente una funzione shared.

Ma rec ti viene restituito nothing o a nothing sono le property?

[pietro09]

ho appena provato e mi funziona.

Nel senso che, ho creato prima un file binario con due short, 4D00 e 6300

Poi lo leggo con quel codice e la variabile rec ha proprio quei due valori

[oregon]

Anche io ho provato e funziona (a parte l'incoerenza sul fatto che i dati sono Int16 ma i membri sono Long).

Probabilmente hai un problema da un'altra parte oppure il codice che hai mostrato era un esempio e non quello che effettivamente utilizzi.

[eggpap]

Hai perfettamente ragione!
Grazie