使用Visual Studio 2015創建一個VB6 dll？

Question

我有一個在Visual Studio中創建的窗體應用程序。

我已經引用的COM API，我試圖運行此

L_RESULT = Visualfiles.SystemScript("HIST-TEL", sampleVisualBasicColl, "") 

第二個參數需要蜜蜂的集合，所以我創造了這個

Dim sampleVisualBasicColl As New Microsoft.VisualBasic.Collection() 

    Dim item1, item2, item3, item4 As String 
    item1 = "Items" 
    item2 = "In" 
    item3 = "A" 
    item4 = "Collection" 
    sampleVisualBasicColl.Add(item1, "firstkey") 
    sampleVisualBasicColl.Add(item2, "secondkey") 
    sampleVisualBasicColl.Add(item3, "thirdkey") 
    sampleVisualBasicColl.Add(item4, "fourthkey") 

但我得到的錯誤是這個

無法轉換類型「Microsoft.VisualBasic.Collection」的目的爲類型「VBA.Collection」。

我發現這篇文章，我認爲這將有助於 - https://support.microsoft.com/en-gb/kb/323737

但是我怎麼完成1-4步？

我的Visual Studio 2015年的社區，我不知道如何創建這個dll？

感謝您的任何建議！

Answer 1

收集組件類是一種慢性的麻煩製造者，微軟創建了它太多的實現。而且，相當不明智的是，給了那些實現相同的CLSID。不清楚這是如何嚴重錯誤的，可能是一組程序員不與另一個組織談話。他們提出的糟糕的解決方案是強制每個人應用[noncreatable]屬性。

這阻止你添加一個參考，比如，vba7.dll這樣你就可以創建自己的收藏對象。這就是爲什麼KB文章告訴你使用VB6來創建對象的一個​​實例。那麼，呃，18歲是很多狗的生命，今天已經安裝了VB6。您需要MSDN許可證或在Ebay拍賣會上祝好運。

時間得到這個固定的方式，而不是那種糟糕的KB方式。您只需創建Collection對象的默認界面的具體實例即可。按照COM規則，接口的實現永遠不重要。

添加一個新類到您的項目並粘貼此代碼：

Imports System.Runtime.InteropServices 

Namespace VBA  
    <ComVisible(True), Guid("A4C46780-499F-101B-BB78-00AA00383CBB")> 
    Public Interface _Collection 
     <DispId(0)> Function Item(<[In]> ByRef Index As Object) As Object 
     <DispId(1)> Sub Add(<[In]> ByRef Item As Object, ByRef Optional Key As Object = Nothing, 
         ByRef Optional Before As Object = Nothing, 
         ByRef Optional After As Object = Nothing) 
     <DispId(2)> Function Count() As Integer 
     <DispId(3)> Sub Remove(<[In]> ByRef Index As Object) 
     <DispId(-4)> Function _NewEnum() As IEnumerator 
    End Interface 

    '' <ComVisible(True)> 
    <ClassInterface(ClassInterfaceType.None), Guid("A4C4671C-499F-101B-BB78-00AA00383CBB")> 
    Public Class Collection 
     Implements _Collection 
     Private impl As New Microsoft.VisualBasic.Collection 

     Public Sub Add(ByRef Item As Object, ByRef Optional Key As Object = Nothing, ByRef Optional Before As Object = Nothing, ByRef Optional After As Object = Nothing) Implements _Collection.Add 
      impl.Add(Item, CStr(Key), Before, After) 
     End Sub 

     Public Sub Remove(ByRef Index As Object) Implements _Collection.Remove 
      If TypeOf Index Is String Then impl.Remove(CStr(Index)) Else impl.Remove(CInt(Index)) 
     End Sub 

     Public Function Count() As Integer Implements _Collection.Count 
      Return impl.Count 
     End Function 

     Public Function _NewEnum() As IEnumerator Implements _Collection._NewEnum 
      Return impl.GetEnumerator() 
     End Function 

     Public Function Item(ByRef Index As Object) As Object Implements _Collection.Item 
      Return impl(Index) 
     End Function 
    End Class 
End Namespace 

因此，而不是創建一個新的集合對象，現在創建一個新的VBA.Collection對象，以保持該組件高興。我沒有一個很好的方法來測試它，希望它能起作用。