實踐：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