Como usar uma dll .Net no VB6
Nesse artigo, o Agnaldo mostra como criar uma DLL usando .Net 2005 e usá-la no Visual Basic 6
Uma dll escrita em VB.Net pode ser usada no Visual Basic 6.
Para isso configure o projeto conforme os passos a seguir.
Crie um projeto do tipo class library chamado ExemploDLL no Visual Studio 2005 e como linguagem escolha o VB.Net. No menu lateral Solution Explorer dê um duplo clique em My Project.
Na tela que se abre, acesse a aba lateral Compile e cheque a opção Register for COM Interop.
Abra o arquivo Class1.vb e crie um método, como abaixo:
Public Class ClasseNet
Public Function MeuNome() As String
Return "AGNALDO"
End Function
End Class
No menu Build clique na opção Build Solution, para criar o assembly (a dll).
Agora, crie um projeto do tipo Standard EXE no Visual Studio 6 e posicione um Button no formulário.
No menu Project escolha a opção References. Escolha e marque na lista a DLL desejada.
Dê um clique duplo sobre o Button e escreva o seguinte código:
Private Sub Command1_Click()
Dim o As New ExemploDLL.ClasseNet
MsgBox (o.MeuNome())
End Sub
Note que o Intellisense não funciona. Apesar disso, podemos executar o aplicativo pressionando [F5].
Para habilitar o recurso no VB6 devemos alterar a DLL no Visual Studio. Uma interface pública deve ser criada, para expor os métodos.
No Visual Studio 2005, altere o código de Class1.vb para:
Imports System.Runtime.InteropServices
Public Interface IClasseNet
Function MeuNome() As String
End Interface
_
Public Class ClasseNet
Implements IClasseNet
Public Function MeuNome() As String Implements IClasseNet.MeuNome
Return "AGNALDO"
End Function
End Class
OBS.: Crie uma interface no mesmo arquivo para facilitar. Se você quiser, pode separar a interface e a classe.
Volte ao VB6 e veja que o Intellisense começou a funcionar.
Artigos relacionados
-
Artigo
-
Artigo
-
Artigo
-
Artigo
-
Artigo