Procedura: convertire un tipo definito dall'utente in una struttura di Visual Basic

Articolo
09/12/2008

Aggiornamento: novembre 2007

L'istruzione Type di Visual Basic 6.0 viene convertita nell'istruzione Structure di Visual Basic 2008. In questo argomento vengono descritte altre due opzioni per aggiornare il tipo, ovvero la conversione in una classe e la conversione in un'interfaccia.

Nelle routine seguenti è descritto il tipo di Visual Basic 6.0 riportato di seguito:

Type Customer
    Dim FirstName As String
    Dim LastName As String
    Dim Id As Long
End Type

Private Function FormatFullName(aCustomer As Customer) As String
    FormatFullName = aCustomer.FirstName & " " & aCustomer.LastName
End Function

L'Aggiornamento guidato effettua l'aggiornamento automatico di un tipo di Visual Basic 6.0 a una struttura di Visual Basic 2008. Il tipo Structure è un tipo che supporta membri, quali metodi e proprietà.

Per aggiornare un tipo a una struttura

Eseguire l'Aggiornamento guidato.

Nota:
L'Aggiornamento guidato è uno strumento utilizzato per l'aggiornamento di un'applicazione Visual Basic 6.0 a Visual Basic 2008. Viene avviato automaticamente all'apertura di un progetto di Visual Basic 6.0 in Visual Basic 2008. Per ulteriori informazioni, vedere Procedura: aggiornare un progetto utilizzando l'Aggiornamento guidato Visual Basic.

Se si è interessati a sfruttare i vantaggi delle altre funzionalità del tipo Structure, individuare i metodi che appartengono alla struttura nel modo più appropriato. Nel seguente esempio il metodo FormatFullName potrebbe essere convertito in un metodo FormatFullName della struttura:
```
Structure Customer
    Dim FirstName As String
    Dim LastName As String
    Dim Id As Integer

    Public Function FormatFullName() As String
        Return FirstName & " " & LastName
    End Function
End Structure
```

L'Aggiornamento guidato effettua l'aggiornamento automatico di un tipo di Visual Basic 6.0 a una struttura di Visual Basic 2008. Il tipo Class supporta gli stessi membri di un tipo Structure ma costituisce un tipo di riferimento. A differenza di una struttura, una classe può fungere da classe base.

Per eseguire l'aggiornamento a una classe

Eseguire l'Aggiornamento guidato.
Sostituire Structure con Class.

Se si è interessati a sfruttare i vantaggi delle altre funzionalità del tipo Class, individuare i metodi che appartengono alla struttura nel modo più appropriato. Nell'esempio di codice riportato di seguito viene illustrato l'inserimento del metodo FormatFullName nella classe, oltre all'utilizzo della proprietà Id .

Class Customer
    Dim FirstName As String
    Dim LastName As String
    Private idValue As Integer

    Public Property Id() As Integer
        Get
            Return idValue
        End Get
        Set(ByVal Value As Integer)
            idValue = Value
        End Set
    End Property

    Public Function FormatFullName() As String
        Return FirstName & " " & LastName
    End Function
End Class

Una terza possibilità è convertire la struttura in un'interfaccia.

Per effettuare l'aggiornamento a un'interfaccia

Eseguire l'Aggiornamento guidato.
Sostituire Structure con Interface.
Sostituire le variabili con dichiarazioni di proprietà. Non includere l'implementazione.
Aggiungere metodi, ma rimuovere l'implementazione.

Il codice dovrebbe risultare simile al seguente:

Interface Customer
    Property FirstName() As String
    Property LastName() As String
    Property Id() As String

    Function FormatFullName() As String
End Interface

L'interfaccia potrà quindi essere implementata da un'altra classe. La definizione è illustrata di seguito.

Class NewCustomer
    Implements Customer

    Public Property FirstName() As String Implements Customer.FirstName
        Get
            ' Add code here.
        End Get
        Set(ByVal Value As String)
            ' Add code here.
        End Set
    End Property

    Public Property Id() As String Implements Customer.Id
        Get
            ' Add code here.
        End Get
        Set(ByVal Value As String)
            ' Add code here.
        End Set
    End Property

    Public Property LastName() As String Implements Customer.LastName
        Get
            ' Add code here.
        End Get
        Set(ByVal Value As String)
            ' Add code here.
        End Set
    End Property

    Public Function FormatFullName() As String _
        Implements Customer.FormatFullName
        ' Add code here.
    End Function
End Class

Vedere anche

Attività

Procedura: aggiornare un progetto utilizzando l'Aggiornamento guidato Visual Basic

Riferimenti

Istruzione Structure

Istruzione Class (Visual Basic)

Istruzione Interface (Visual Basic)

Condividi tramite