Visual Basic.NET - DLL en NET para utilizar en VB6

 
Vista:

DLL en NET para utilizar en VB6

Publicado por kryptic (40 intervenciones) el 15/10/2007 16:34:37
Que tal espero se encuentren todos bien.

Bueno mi problema es que necesito hacer una dll en NET que consume un Web Services

Imports System.Runtime.InteropServices

<Assembly: ClassInterface(ClassInterfaceType.None)>

Namespace Kryptic
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface ILuis
Function getEstados(ByVal pais as Integer) as String()
End Interface

Public Class Luis
Implements ILuis

Public Function getEstado(ByVal pais as Integer) as String() Implements ILuis.getEstados
Dim ws as Servidor.WebService = New Servidor.WebService
Dim respuesta as String()
Dim cont as Integer = 0

For Each as Servidor.CatCatalogosEntity In ws.getEstado(pais).respuestaMultiple
ReDim Preserve respuesta(cont)
respuesta(cont) = i.idGrupo.Value & "|" & i.texto2
cont += 1
Next

Return Respuesta
End Function
End Class
End Namespace

Despues esta dll la tengo que utilizar en VB6 para generar un RecordSet pero me muestra el siguiente error

Run-Time error '430':
Class does not support Automation or does not support expected interface

esto me lo marca en el siguiente codigo

Dim objLuis as Kryptic.Luis
Set objLuis = New Kryptic.Luis

Por su tiempo y su ayuda muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder