Instanciar um objeto de uma DLL externa

Question

Eu não sei elaborar bem o título, mas vamos lá.

Tenho uma DLL que fiz no C#, ela tem um método chamado GetRastreio, eu importei ela no VB6 (já fiz toda configuração de registrar a DLL).

Agora no VB6 (nem sei programar 1 linha, estou testando para passar para a pessoa que programa em VB6, só preciso chamar e testar mesmo, então eu fiz assim vejam:

Dim obj As New JADLOG.NotfisBean
Dim ret As New JADLOG.TrackingConsultaDto

ret.Return = "ret recebe valor!"
MsgBox ret.Return

ret = obj.GetRastreio("00011145557", "123456", "111111")

MsgBox ret.Return

O ret tem vários atributos, eu peguei 1 para aparecer no MsgBox só para testar, mas da erro na linha:

ret = obj.GetRastreio("00011145557", "123456", "111111")

Alguém pode me ajudar?

Answer 1

Se eu faço assim funciona veja:

ret.Return = obj.GetRastreio("00011145557", "123456", "111111").Return

no caso eu tenho 10 atributos, o Return é 1/10 itens que tenho, terei que repetir o comando de busca 10x? Acredito que não, pelo menos no C# não, rs'

Manjo nada de VB6.

Answer 2

Desta forma aqui funciona, mas olha que feio fica:

ret.Numero= obj.GetRastreio("00011145557", "123456", "111111").Numero
ret.Status= obj.GetRastreio("00011145557", "123456", "111111").Status
ret.Recebedor= obj.GetRastreio("00011145557", "123456", "111111").Recebedor
ret.Documento= obj.GetRastreio("00011145557", "123456", "111111").Documento
ret.ChaveAcesso= obj.GetRastreio("00011145557", "123456", "111111").ChaveAcesso
ret.Cte= obj.GetRastreio("00011145557", "123456", "111111").Cte
ret.Serie= obj.GetRastreio("00011145557", "123456", "111111").Serie
ret.DataEmissao= obj.GetRastreio("00011145557", "123456", "111111").DataEmissao
ret.Valor= obj.GetRastreio("00011145557", "123456", "111111").Valor

ele faz várias chamadas, atoa, kkkkkk

Answer 3

Só coloquei um Set na frente do ret, era simples!

Não é só por ret = GetRastreio, tem que por Set = GetRastreio.