创建类库

Question

我正在使用 Visual Studio 2010 并尝试创建一个类库，然后在应用程序中使用该类库，该应用程序将使用 TaskFactory 创建任务并执行新创建的类库中的类函数。但是我在应用程序中收到实例未定义错误。

类库：
程序集名称：GPStream
根命名空间：TFStream

具有不同类的项目： GPStream：
gStream.vb，
解析器T.vb，
insertDB.vb

Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Imports System.ComponentModel
Imports System.Net.Mail
Imports System.Threading
Imports System.Threading.Tasks

Public Class gStream
   Private Shared settings As New System.Configuration.AppSettingsReader
   ' application configuration variables'

   Public Sub New()
      getConfigurations()
   End Sub
   ...
End Class


Imports System.IO
Imports System.Web
Imports TFStream
Imports System.Configuration
Imports System.Threading
Imports System.Threading.Tasks


Public Class Form1
    Private gp1 As TFStream.GPStream.gStream = New TFStream.GPStream.gStream()
    ...
End Class

我确实将其添加为参考。

类库：程序集名称GPStream，根命名空间GPStream 项目名称GPStream，主类gStream

Answer 1

好的，我将提供一个可能更简单的示例，我希望它能帮助您实现目标。

假设我们有一个业务实体项目，我们希望在 WinForm 项目中使用它。然后我们有两个项目，为了简单起见，在同一个解决方案中。

1. WinFormApp（MyCompany.MyProject.WinFormApp.exe）；
2. 业务实体（MyCompany.MyProject.BusinessEntities.dll）。

我们将其视为这些程序集文件包含相同的程序集名称和默认命名空间。

我的 WinFormApp 项目的命名空间是：MyCompany.MyProject.WinFormApp
并且：MyCompany.MyProject.BusinessEntities 用于类库。让我们从包含以下两个类的类库开始：

1. Customer；
2. 供应商;
3. 信用条款。

在会计中，这两者从不同的角度使用，即针对客户的应收账款和针对供应商的应付账款。可以分配适当的命名空间来反映这一现实。

Customer 类应如下所示：

Imports MyCompany.MyProject.BusinessEntities

Namespace AccountReceivable
    Public Class Customer
        Private _id As Integer
        Private _name As String
        Private _phoneNumber As Long
        Private _creditTerm As CreditTerm

        Public Sub New()
            Term = CreditTerm.None
        End Sub

        Public Sub New(ByVal pId As Integer _
                        , ByVal pName As String _
                        , ByVal pPhoneNumber As Long)
            _id = pId
            Name = pName
            PhoneNumber = pPhoneNumber
            Term = CreditTerm.None
        End Sub

        Public ReadOnly Property Id As Integer
            Get
                Return _id
            End Get
        End Property

        Public Property Name As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                If (String.IsNullOrWhiteSpace(value)) Then _
                    Throw New ArgumentNullException("Name")

                _name = value
            End Set
        End Property

        Public Property PhoneNumber As Long
            Get
                Return _phoneNumber
            End Get
            Set(ByVal value As Long)
                _phoneNumber = value
            End Set
        End Property

        Public Property Term As CreditTerm
            Get
                Return _term
            End Get
            Set(ByVal value As CreditTerm)
                _term = value
            End Set
        End Property
    End Class
End Namespace

然后，Supplier 类：

Imports MyCompany.MyProject.BusinessEntities ' Used for the CreditTerm Enum Property'

Namespace AccountPayable
    Public Class Supplier
        ' We will here consider having the same properties as Customer for simplicity.'
    End Class
End Namespace

还有 CreditTerms 枚举，此处可以将其分配给我们购买的供应商和我们销售的客户。从这个角度来看，此类可能位于项目的根目录中以说明其常见用途。

Public Enum CreditTerm
    None
    N30
    N45
    N60
    N90
End Enum

然后，我们的 WinFormApp 项目应类似于以下内容：

Imports System
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Imports MyCompany.MyProject.BusinessEntities 'Indeed you have to add the reference...'
Imports MyCompany.MyProject.BusinessEntities.AccountReceivable

Public Partial Class Form1
    Inherits Form

    Private _netTerm As CreditTerm = CreditTerm.None
    Private _customer As Customer = New Customer()
    Private _supplier As AccountPayable.Supplier = New AccountPayable.Supplier()
    ...
End Class

请注意，我已明确导入 MyCompany.MyProject.BusinessEntities 和 MyCompany.MyProject.BusinessEntities.AccountReceivable 以说明差异CreditTerm 枚举和 Customer 类之间的命名空间。因此，我没有导入 Supplier 类的命名空间，这迫使我指向查找该类的位置。

最后，我可以使用 MyCompany.MyProject.BusinessEntities.Customer 命名空间将与客户相关的所有内容分组到同一命名空间下，同时将 Customer 类放在 Customer 命名空间内。但是，即使在导入名称空间时，您也必须编写以下内容：

Private _customer As Customer.Customer = New Customer.Customer()

编写时想到了另一件事。尝试构建/生成/重新生成类库，然后将其添加为引用。也许您引用类库的项目无法找到二进制文件，除非您确实通过项目引用引用了它。

请随时提出任何有关被误解的细节的问题，甚至可以说我自己可能误解了您的问题和担忧。

我真的希望这有帮助！

Answer 2

最后一个 Imports 语句有效吗？如果是这样，则表明 GPStream.gstream 是一个命名空间，而不是一个类。您的类可能具有不同的名称或嵌套在该名称空间内（您尝试过 GPStream.gstream.gstream 吗？）。