Interface

[leonardod]

Boa Tarde

alguém sabe se o VBA suporta a criação de interface ?

Tipo, estou dentro do Visual Basic For Applications , melhor dizendo dentro do Excel e quero criar uma interface.

Eu vi que tem como implementar uma interface mesmo porque ele possui a palavra reservada Implements , so não entendi

onde criar essa interface.

Se alguém tiver idéida, souber, quiser mandar um link com exemplo, ou mesmo um exemplo, fico grato.

[Reyam]

Exemplo da instrução Implements no VBA

O exemplo a seguir mostra como usar a instrução Implements para disponibilizar um conjunto de declarações às mútliplas classes. Ao compartilhar as declarações através da instrução Implements, nenhuma classe deve fazer qualquer declaração.

Assuma que há dois formulários. O formulário Seletor tem dois botões, Dados do cliente e Dados do fornecedor. Para inserir informações sobre nome e endereço de um cliente ou fornecedor, o usuário clica no botão Cliente ou Fornecedor e, em seguida, insere o nome e endereço usando o formulário Entrada de dados. Este tem dois campos de texto, Nome e Endereço.

O código a seguir, para as declarações compartilhadas, está em uma classe chamada DadosPessoais:

Public Name As String

Public Address As String

O código que dá suporte aos dados do cliente está em um módulo de classe chamado Cliente:

Implements PersonalData

Private Property Get PersonalData_Address() As String

PersonalData_Address = "EndereçoDoCliente"

End Property

Private Property Let PersonalData_Address(ByVal RHS As String)

'

End Property

Private Property Let PersonalData_Name(ByVal RHS As String)

'

End Property

Private Property Get PersonalData_Name() As String

PersonalData_Name = "NomeDoCliente"

End Property

O código que dá suporte aos dados do fornecedor está em um módulo de classe chamado Fornecedor:

Implements PersonalData

Private Property Get PersonalData_Address() As String

PersonalData_Address = "EndereçoDoFornecedor"

End Property

Private Property Let PersonalData_Address(ByVal RHS As String)

'

End Property

Private Property Let PersonalData_Name(ByVal RHS As String)

'

End Property

Private Property Get PersonalData_Name() As String

PersonalData_Name = "NomeDoFornecedor"

End Property

O código a seguir dá suporte ao formulário Seletor:

Private cust As New Customer

Private sup As New Suplier

Private Sub Command1_Click()

Dim frm2 As New Form2

Set frm2.PD = cust

frm2.Show 1

End Sub

Private Sub Command2_Click()

Dim frm2 As New Form2

Set frm2.PD = sup

frm2.Show 1

End Sub

O código a seguir dá suporte ao formulário Entrada de dados:

Private m_dp As PersonalData

Private Sub Form_Load()

With m_dp

Text1 = .Name

Text2 = .Address

End With

End Sub

Public Property Set DP(Data As PersonalData)

Set m_dp = Data

End Property