实践：VB创建Com组件 > 在Asp以及.Net中调用

1> 创建ActiveX Dll项目，项目重命名为ExampleProject，类重命名为ExampleClass

2> 创建方法：

Option Explicit

Public Function ExampleMethod(ByVal strName As String, ByVal iAge As Integer, Optional ByVal bAgeEmphasisOn As Boolean = False) As String
    Dim strReturnString As String
    strReturnString = strName & " is over " & CStr(iAge * 365)
    If bAgeEmphasisOn And iAge > 45 Then
        strReturnString = strReturnString & " days OLD."
    Else
        strReturnString = strReturnString & " days old."
    End If
   
    ExampleMethod = strReturnString
   
End Function

3> 编译生成ExampleProject.dl

4> 用regsvr32注册它.

5> 在asp中调用：
<%

Set objRef = Server.CreateObject("ExampleProject.ExampleClass")

Name = "SilvaXia"
Age = 26
Emphasis = True

strResult = objRef.ExampleMethod(Name,Age,Emphasis)

Response.Write(strResult)

Set objRef = Nothing

%>

6> 把asp放到虚拟目录，运行。

7> 在.Net中调用：
首先添加对ExampleProject.dl的引用，然后：

Module Module1

    Sub Main()
        TestCom()
    End Sub

    Public Function TestCom()
        Dim test As ExampleProject.ExampleClassClass = New ExampleProject.ExampleClassClass
        Console.Write(test.ExampleMethod("SilvaXia", 67, True))
    End Function
End Module