vb6到vb.net-指南和類

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。 證明是它向我顯示了第二個對象“ x”和“ ob”的錯誤，一切都很好。

我嘗試命名GUID並放入第二類，但錯誤是相同的。

Answer 1

也許您是說Towns而不是Artikli （在Set X = CreateObject("Company.Applicat3.laufer.WarrantyPrint.Artikli") ）。

Answer 2

在您的WarrantyPrint類中，沒有名為Artikli類。 這將導致錯誤。 也許代碼應該改用Towns 。