Como: Converter um tipo definido pelo usuário em uma estrutura Visual Basic
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