使用.NET写Managed用户自定义函数(UDF)C#/VB.NET

这是一个UDF例程。其中只有一个自定义函数MyFunction。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using Microsoft.Win32;

namespace MyUDF
{
[Guid("41B55E1A-E91E-4024-BC41-DD5292FB8CC5")]
[ClassInterface(ClassInterfaceType.AutoDual)]
[ComVisible(true)]
public class CSharpModule
{
public double MyFunction(int Width,int layes,float UponRubber,
float ButtomRubber, float Length)
{
return Width / 1000 * (layes + (UponRubber + ButtomRubber) / 1.5)
* Length;
}

[ComRegisterFunctionAttribute]
public static void RegisterFunction(Type type)
{
Registry.ClassesRoot.CreateSubKey(
GetSubKeyName(type, "Programmable"));
RegistryKey key = Registry.ClassesRoot.OpenSubKey(
GetSubKeyName(type, "InprocServer32"), true);
key.SetValue("", System.Environment.SystemDirectory
+ @"\mscoree.dll",RegistryValueKind.String);
}

[ComUnregisterFunctionAttribute]
public static void UnregisterFunction(Type type)
{
Registry.ClassesRoot.DeleteSubKey(
GetSubKeyName(type, "Programmable"), false);
}

private static string GetSubKeyName(Type type,string subKeyName)
{
System.Text.StringBuilder s = new System.Text.StringBuilder();
s.Append(@"CLSID\{");
s.Append(type.GUID.ToString().ToUpper());
s.Append(@"}\");
s.Append(subKeyName);
return s.ToString();
}

}
}

编译前现在项目的Properties中Builder->Register for COM Interop

Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Text

<ClassInterface(ClassInterfaceType.AutoDual)>
<ComVisible(True)>
<Guid("207DF2C7-9773-4FB1-A50C-2A2515C3F8FA")>
Public Class VBModule
Public Function MyFunction(ByVal Width As Integer, ByVal Layes As Integer, _
ByVal UponRubber As Double, _
ByVal ButtomRubber As Double, _
ByVal Length As Double) As Double
MyFunction = Width / 1000 * (Layes + (UponRubber + ButtomRubber) _
/ 1.5) * Length
End Function

<ComRegisterFunctionAttribute()> Public Shared Sub RegisterFunction(ByVal Type As Type)
Dim rk As RegistryKey

Registry.ClassesRoot.CreateSubKey(GetSubKeyName(Type, "Programmable"))
rk = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(Type, "InprocServer32"), True)
rk.SetValue("", Environment.SystemDirectory + "\mscoree.dll", RegistryValueKind.String)
End Sub

<ComUnregisterFunctionAttribute()> Public Shared Sub UnregisterFunction(ByVal Type As Type)
Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(Type, "Programmable"), False)
End Sub

Private Shared Function GetSubKeyName(ByVal Type As Type, ByVal SubKeyName As String) As String
Dim b As StringBuilder = New StringBuilder

b.Append("CLSID\{")
b.Append(Type.GUID.ToString().ToUpper())
b.Append("}\")
b.Append(SubKeyName)
GetSubKeyName = b.ToString()
End Function
End Class

编译前先选中项目的Properties中Complie->Register for COM Interop