如何在不同项目中复用VB.NET/C#编写的计算类代码？

核心结论 #

要复用你的温度数据计算函数，必须创建类库项目生成DLL——这是.NET生态中复用代码的标准方式，控制台应用仅用于测试，不能作为复用组件。以下是具体操作步骤：

1. 创建可复用的类库（生成DLL） #

在Visual Studio中按以下步骤操作：

• 新建项目，选择类库（.NET Framework）（选择与你后续项目兼容的框架版本，比如.NET Framework 4.8）
• 将你的计算函数整理到类中，建议用Shared（静态）方法，无需实例化即可调用。示例代码：

  Public Class TemperatureCalculations
      ' 计算90×90矩阵的行列式（含维度校验）
      Public Shared Function Calculate90x90Determinant(matrix As Double(,)) As Double
          ' 条件校验：确保输入是90×90矩阵
          If matrix.GetLength(0) <> 90 Or matrix.GetLength(1) <> 90 Then
              Throw New ArgumentException("输入矩阵必须为90×90维度")
          End If
          ' 你的行列式计算逻辑...
          Return 0 ' 替换为实际计算结果
      End Function
  
      ' 计算子矩阵平均值（含非空校验）
      Public Shared Function CalculateSubmatrixAverage(submatrix As Double(,)) As Double
          If submatrix.Length = 0 Then
              Throw New ArgumentException("子矩阵不能为空")
          End If
          Dim total As Double = 0
          For Each val As Double In submatrix
              total += val
          Next
          Return total / submatrix.Length
      End Function
  End Class
  

• 编译项目，在项目的bin\Debug或bin\Release目录下会生成对应的.dll文件。

2. 在其他项目中复用DLL #

打开需要复用函数的目标项目（比如Windows Forms、WPF），按以下步骤引用：

• 右键项目 → 添加 → 引用 → 浏览，找到刚才生成的DLL文件并添加
• 在代码中导入命名空间（若类库有自定义命名空间），直接调用函数：

  Imports YourLibraryNamespace.TemperatureCalculations
  
  ' 调用示例
  Dim targetMatrix As Double(,) = New Double(89,89) {}
  Dim detResult As Double = Calculate90x90Determinant(targetMatrix)
  Dim subMatrix As Double(,) = New Double(9,9) {}
  Dim avgResult As Double = CalculateSubmatrixAverage(subMatrix)
  

3. 实现类似Excel加载项的复用 #

如果要让函数像Excel内置函数一样直接在单元格中调用，需要创建VSTO Excel加载项项目：

• 新建项目，选择Excel VSTO加载项（需提前安装Visual Studio的Office开发工具）
• 引用你生成的类库DLL，编写Excel自定义函数（UDF）：

  <Microsoft.Office.Tools.Excel.NamedFunction("Get90x90Determinant", Description:="计算90×90矩阵的行列式", Category:="温度计算工具")>
  Public Function Get90x90Determinant(excelRange As Excel.Range) As Double
      ' 将Excel单元格范围转换为二维数组
      Dim rawMatrix As Object(,) = excelRange.Value
      ' 转换为Double类型数组（处理Excel的1-based索引）
      Dim doubleMatrix(89,89) As Double
      For i As Integer = 0 To 89
          For j As Integer = 0 To 89
              doubleMatrix(i,j) = Convert.ToDouble(rawMatrix(i+1,j+1))
          Next
      Next
      ' 调用类库中的计算函数
      Return TemperatureCalculations.Calculate90x90Determinant(doubleMatrix)
  End Function
  

• 编译并安装加载项后，即可在Excel单元格中直接使用=Get90x90Determinant(A1:C90)这样的公式。

4. 控制台应用的作用 #

控制台应用不是复用组件，而是测试类库函数的工具：

• 新建控制台应用项目，引用类库DLL
• 编写测试代码验证函数逻辑是否正确，示例：

  Sub Main()
      Dim testMatrix As Double(,) = New Double(89,89) {}
      testMatrix(0,0) = 1
      Try
          Dim result As Double = TemperatureCalculations.Calculate90x90Determinant(testMatrix)
          Console.WriteLine($"行列式计算结果：{result}")
      Catch ex As Exception
          Console.WriteLine($"错误：{ex.Message}")
      End Try
      Console.ReadLine()
  End Sub
  

内容的提问来源于stack exchange，提问作者Stefan Liiceanu