[VB.NET] Restituire una collection da una function

[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

[eggpap]

A me ha funzionato togliendo Shared e definendo Private la funzione.

L'idea originale, però, era quella di includere la funzione LoadFromFile all'interno della Classe Pair e da un esempio che avevo trovato la funzione doveva essere definita Public Shared, ma l'avevo abbandonata per via di quel Rec = Nothing. Ma ora ho riscritto il codice e funziona.

Public Class Form1


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




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
    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
End Class

[eggpap]

Hai perfettamente ragione!
Grazie