vb6 в vb.net - Guids и классы

Question

vb.net Объект как этот

<ComClass(WarrantyPrint.ClassId, WarrantyPrint.InterfaceId, WarrantyPrint.EventsId)> 
Public Class WarrantyPrint 

    Public Const ClassId As String = "3EEDF4AD-78CB-4D9B-8F38-149CA1914AE0" 
    Public Const InterfaceId As String = "18343576-609A-473B-804D-03EB4E559FE8" 
    Public Const EventsId As String = "390970DD-AABF-42BB-B9F6-6CB6BE5D7248" 

Public Sub initializing 
' do smth 
End Sub 

    Public Class Towns 
     Public Property NameTown As String = "" 
     Public Property AddressTown As String = "" 
    End Class 

    Public Class ListTowns 
     Public Property ListTowns() As New List(Of Towns) 
    End Class 

    Public Sub Add(t As Towns) 
     tList.ListTowns.Add(t) 
    End Sub 
End Class 

От VB6 я хочу установить этот объект, как этот

Dim ob As Object 
    Set ob = CreateObject("Company.Applicat3.laufer.WarrantyPrint") 
     ob.Initializing 

    Dim X As Object 
    Set X = CreateObject("Company.Applicat3.laufer.WarrantyPrint.towns") 
     X.NameTown = "Test" 
     X.AddressTown = "123" 
     ob.Add (X) 

     ob.Show 

После этого я получаю сообщение об ошибке: ActiveX компонент не может создать объект.

Несомненно, я зарегистрировал эту DLL под своей машиной. Доказательство этого - это показать мне ошибку во втором объекте «х» с «об», все было в порядке.

Я пробовал с именованием GUID и включением второго класса, но ошибка такая же.

Answer 1

Возможно, вы имеете в виду Towns, а не Artikli (на линии Set X = CreateObject("Company.Applicat3.laufer.WarrantyPrint.Artikli")).

Answer 2

В вашем классе WarrantyPrint нет класса с именем Artikli. Это приведет к ошибке. Возможно, вместо этого код должен использовать Towns.