Como: Converter um tipo definido pelo usuário em uma estrutura Visual Basic

Artigo
08/25/2010

The Type demonstrativo do Visual Basic 6.0 é atualizada para o Structure demonstrativo da Visual Basic 2008. Duas outras opções para atualizar o tipo também são discutidas neste tópico: a conversão para uma classe e convertendo para uma interface.

O seguinte tipo do Visual Basic 6.0 é discutido nos procedimentos a seguir:

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

The Assistente de atualização atualiza automaticamente um tipo Visual Basic 6.0 para um Visual Basic 2008 estrutura. The Structure é um tipo que oferece suporte a membros, sistema autônomo métodos e propriedades.

Para Atualizar um Tipo para uma Estrutura

Executar o Upgrade Wizard.

Observação:
O Assistente de atualização é uma ferramenta usada para atualizar um aplicativo Visual Basic 6.0 para Visual Basic 2008. É iniciado automaticamente quando você abre um projeto Visual Basic 6.0 em Visual Basic 2008. Para obter mais informações, consulte Como: Atualizar um projeto com o Assistente de atualização do Visual Basic.

Se você estiver interessado em tirar proveito de outros recursos do Structure Digite, procure métodos que mais corretamente cabem na estrutura. Neste exemplo, a FormatFullName método poderá ser convertido em um FormatFullName método na estrutura:
```
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
```

The Assistente de atualização irá atualizar automaticamente um tipo Visual Basic 6.0 para um Visual Basic 2008 estrutura. The Class tipo suporta sistema autônomo mesmos membros sistema autônomo um Structure, mas é um tipo de referência. Uma classe pode servir como uma classe base, enquanto uma estrutura não pode.

Para atualizar para uma classe

Executar o Upgrade Wizard.
Substitua Structure por Class.

Se você estiver interessado em tirar proveito de outros recursos do Class Digite, procure métodos que mais corretamente cabem na estrutura. O código a seguir mostra a incorporação de FormatFullName na classe e o Id propriedade.

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

Uma terceira opção é converter uma estrutura em uma interface.

Para atualizar para uma interface

Executar o Upgrade Wizard.
Substitua Structure por Interface.
Substituir variáveis por declarações de propriedade.Não inclua a implementação.
Adicionar métodos, mas remover a implementação.

O código pode parecer isso:

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

    Function FormatFullName() As String
End Interface

A interface pode depois ser implementado por outra classe.A definição é mostrado abaixo.

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

Consulte também

Tarefas

Como: Atualizar um projeto com o Assistente de atualização do Visual Basic

Referência

Instrução Structure

Declaração Class (Visual Basic)

Declaração Interface (Visual Basic)

Compartilhar via