zoukankan      html  css  js  c++  java
  • 实践: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

  • 相关阅读:
    golang交叉编译:Linux
    vmware共享文件夹
    虚拟机-Debian服务器配置
    day38--MySQL基础二
    day19-IO多路复用
    mysql 对时间的处理
    mysql 优化
    Linux性能查看
    day18-socket 编程
    JAVA 消耗 CPU过高排查方法
  • 原文地址:https://www.cnblogs.com/silva/p/276915.html
Copyright © 2011-2022 走看看