精华内容
下载资源
问答
  • VB写DLL和调用dll实例

    热门讨论 2008-09-05 19:05:50
    这个实例,展示了VB调用Dll,vb写DLL(只要在"工程"->"引用"->引用进去就可以了)
  • VB调用dll的应用实例

    2014-05-02 17:31:40
    这个方法是从我的毕业设计中截取的,里面除了详细介绍VB调用dll的步骤和过程外,还包含了把matlab的m文件编译成dll的详细过程。因此,适合VB与matlab混合编程使用。 这种方法是经过我实际验证的,绝对可行。之前也...
  • vb调用VC DLL 实例

    2009-06-24 15:34:28
    vb调用VC DLL 实例 希望对初学者有用。 包括vc写的dll vb 调用,有源代码。
  • VB 调用WINRAR的dll实例

    2015-07-09 22:35:12
    VB 调用WINRAR的unrar.dll实例
  • VB封装DLL实例讲解(一),讲述DLL编写方法、封装方法和调用方法。
  • ASP调用dll及封装dll实例,封装为dll可以提供运行效率,加密代码。 打开VB6,新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下'Code Start '声明部分 ...

    ASP调用dll及封装dll实例,封装为dll可以提供运行效率,加密代码。

    打开VB6,新建ActiveX DLL
    2、在工程引用中加入Microsoft Active Server Pages Object Library选择
    3、填加代码如下

    'Code Start
    '声明部分
    Private MyScriptingContext As ScriptingContext
    Private MyApplication As Application
    Private MyRequest As Request
    Private MyResponse As Response
    Private MyServer As Server
    Private MySession As Session
    '下面定义公用函数(在VB中访问ASP对象,即在VB中可以用MyApplication等同于ASP中的Application、MyRequest等同于ASP中的Request、 MyResponse等同于ASP中的Response、 MyServer等同于ASP中的Server、 MySession等同于ASP中的Session 使用)
    Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
    Set MyScriptingContext = PassedScriptingContext
    Set MyApplication = MyScriptingContext.Application
    Set MyRequest = MyScriptingContext.Request
    Set MyResponse = MyScriptingContext.Response
    Set MyServer = MyScriptingContext.Server
    Set MySession = MyScriptingContext.Session
    End Sub
    Public Sub OnEndPage()
    Set MyScriptingContext = Nothing
    Set MyApplication = Nothing
    Set MyRequest = Nothing
    Set MyResponse = Nothing
    Set MyServer = Nothing
    Set MySession = Nothing
    End Sub
    '建立自定义函数SayHello
    Public Sub SayHello()
    MyResponse.Write ("Hello World")
    End Sub
    'Code End

     

    4、将类名改为:HelloWorld 将工程名改为:TestVBCode
    5、生成TestVBCode.DLL文件,并使用Windows运行注册组件命令Regsvr32 路径\TestVBCode.DLL注册后即可使用。(卸载组件命令为Regsvr32 /u 路径\TestVBCode.DLL)
    6、建立Test.asp文件,代码如下


    <%
    'VB自建函数调用格式
    'Set 对象名=Server.CreateObject("工程名.类名")
    '对象名.自建函数名
    Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld")
    MyTestObj.SayHello
    %>

     

    7、运行Test.asp文件结果显示如下:
    Hello World
    ===========================================================
    对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.
    如:

     


    Public Sub connstr2()
    Set conn = MyServer.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb")
    Set rs = conn.Execute("select * from news")
    Do While Not rs.EOF
    MyResponse.Write (rs("news_title") & "<br>")
    rs.MoveNext
    Loop
    rs.Close
    Set conn = Nothing
    End Sub

    这个是用数据库连接的代码封装,当然这里要添加ADO引用的.

    转载于:https://www.cnblogs.com/love828/p/3304449.html

    展开全文
  • pb调用dll实例

    热门讨论 2013-03-12 14:14:15
    (5)DLL独立于编程语言,大多数WINDOWS编程环境都允许主程序调用DLL中的函数。即可以用VC++、VB、PowerBuilder、Delphi、汇编语言等建立DLL,然后在不同语言编制的应用程序中调用它。下面用一个实例说明通过DLL实现...
  • VB封装DLL实例讲解一 DLL基本概念 一 概念 DLL即动态链接库Dynamic Link Library ,是由可被其它程序调用的函数集合组成的可执行文件模 块DLL不是应用程序的组成部分而是运行时链接到应用程序中 二 主要优点 1多个...
  • VB封装DLL实例讲解

    2010-06-28 13:23:07
    一、 DLL基本概念 (一)概念 DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是...二、 用VB封装VBA代码,构建自定义的DLL动态链接库
  • VB封装DLL实例讲解,好东西呀!DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行时链接到应用程序中。用VB封装VBA代码,可以...
  • VB封装DLL实例(一)

    万次阅读 2017-02-11 17:30:03
    DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行时链接到应用程序中。 (二)主要优点: 1、多个应用程序可以共享一个DLL,...
    正 文:

    一、  DLL基本概念

    (一)概念

    DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行时链接到应用程序中。

    (二)主要优点:

    1、多个应用程序可以共享一个DLL,而且当多个应用程序调用库的同一个函数时,可执行文件中装入的只是该函数的内存地址,从而节省内存和磁盘空间;

    2、使用动态链接库易于我们维护用户程序,即使对动态链接库进行修改也不会影响用户程序;

    3、从ACCESS角度而言,还可以更好的确保核心代码的安全。

     

    二、  用VB封装VBA代码,构建自定义的DLL动态链接库

    (一)ACCESS中实例代码

    下面是一个“快速获取数字(Acc).mdb”实例(该实例在文件包中),单击“提取结果”按钮,将文本框中的数字在弹出消息显示出来。

    我将就这个实例演示如何将该实例VBA代码封装成为DLL

     

         

     

    ?按钮单击事件代码如下:

    Private Sub CmdFindnumber_Click()

      Dim strM   As String    '初始字符串

      Dim strOut  As String    '输出字符串变量

      Dim I

     

      strM = Me.Text1

     '从第一个字符向最后一个字符循环,以提取每个字符

      For I = 1 To Len(strM)

         '判断是否为09字符,是则赋值输出

          If Mid(strM, I, 1) Like "[0-9]" Then

             strOut = strOut & Mid(strM, I, 1)

          End If

      Next I

      'MsgBox函数进行输出测试

      MsgBox strOut

    End Sub

       M以上代码还不能直接用于封装,须将其修改成为公用函数(过程)

     

    (二)VB封装实例中VBA代码

    步骤一:VB编辑窗中,点菜单【文件】-【新建工程】,打开新建工程窗口

      

    步骤二:修改工程名,这即生成的DLL库名

    1修改工程名为:我的动态库

    步骤三:修改类名

    1改类名为:提取数字

    步骤四:在代码窗口输入如下代码。将ACCESS中的单击事件代码,略做修改成为一个公用函数,然后复制到VB代码编辑窗口

     

     

    ?代码如下

    '将这前的ACCESS代码改成一个公用函数

     '输入:strPutString字符串变量,需分离数字的字符串

     '输出:fFindNumber字符串变量,得到的数字字符

     Public Function fFindNumber(strPutString As String) As String

       Dim strOut  As String    '输出字符串变量

       Dim I

     

      '从第一个字符向最后一个字符循环,以提取每个字符

       For I = 1 To Len(strPutString)

         '判断是否为09字符,是则赋值输出

           If Mid(strPutString, I, 1) Like "[0-9]" Then

             strOut = strOut & Mid(strPutString, I, 1)

           End If

       Next I

      '数字输出

       fFindNumber = strOut

     End Function

     

    步骤五:编译DLL,点菜单【文件】-【生成我的动态库.dll】,VBA代码封装DLL就完成了。

     

    三、  在mdb中调用自定义DLL动态链接库

     

    (一)新建数据库及窗体

    新建【快速提取数字(DLL)实例.mdb】数据库,新建一个窗体【frmMain】,在窗体添文本框【text0】,按钮【CmdFindNum】,Caption属性:“提取数字”(见下图)

     

    (二)引用我的动态库.dll】库

    按【Alt+F11】打开VBE窗口,点菜单【工具】-【引用】,打开引用对话框,完成对我们自己编译的DLL的引用。

     

     

      

    (三)在CmdFindNum】按钮单击事件中加入如下代码。

    Private Sub CmdFindNum_Click()

      '申明自定义类

      Dim MyFindNum As提取数字

      Dim strOut As String

     

      '实例化"提取数字类"对象

      Set MyFindNum = New提取数字

      '将函数输出结果赋值给自定义字符串变量

      strOut = MyFindNum.fFindNumber(Text0)

     

      '在消息框中显示

      MsgBox "你提取的数字为:" & strOut, vbInformation, "江羽提示:"

    End Sub

     

    点击保存后,你就可以运行一下窗体测试你的成果了

    M本文实例见实例包,下载测试如果提示错误,请重新对自定义类库进行引用。

     

    本文只是通过一个简单的实例演示了,如何通过VB封装一般的VBA中代码,因为该代码中并未涉及到ACCESS应用程序对象,所以在VB中没有对ACCESS对象类库进行引用,另外实例中只是简单演示了,如何手动实现对DLL的注册引用,在后续文章中我将就如何实现DLLACCESS应用程序对接及DLL的自动注册及引用结合实例进行讲解。

     

    展开全文
  • QTP调用VB6生成的DLL实例,用IE打开。
  • 打开VB6,新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下: 代码如下: ‘Code Start ‘声明部分 Private MyScriptingContext As ScriptingContext Private ...
  • 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "tw" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_...

    这是我录制的一个gif操作动画,图片比较大,如果大家在线看图感觉不流畅的话可以把图片保存到本机再看

    6a4a0d89b64402b6821447165a9f88ef.gif

    动画中的原代码如下:

    VERSION 1.0 CLASS

    BEGIN

    MultiUse = -1 'True

    Persistable = 0 'NotPersistable

    DataBindingBehavior = 0 'vbNone

    DataSourceBehavior = 0 'vbNone

    MTSTransactionMode = 0 'NotAnMTSObject

    END

    Attribute VB_Name = "tw"

    Attribute VB_GlobalNameSpace = False

    Attribute VB_Creatable = True

    Attribute VB_PredeclaredId = False

    Attribute VB_Exposed = True

    Option Explicit

    Private MyScriptingContext As ScriptingContext

    Private MyApplication As Application

    Private MyRequest As Request

    Private MyResponse As Response

    Private MyServer As Server

    Private MySession As Session

    Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)

    Set MyScriptingContext = PassedScriptingContext

    Set MyApplication = MyScriptingContext.Application

    Set MyRequest = MyScriptingContext.Request

    Set MyResponse = MyScriptingContext.Response

    Set MyServer = MyScriptingContext.Server

    Set MySession = MyScriptingContext.Session

    End Sub

    Public Sub OnEndPage()

    Set MyScriptingContext = Nothing

    Set MyApplication = Nothing

    Set MyRequest = Nothing

    Set MyResponse = Nothing

    Set MyServer = Nothing

    Set MySession = Nothing

    End Sub

    Public Function UserOut(User) As Variant

    UserOut = User

    End Function

    展开全文
  • 用QTP调用VB6生成的DLL实例 首先,打开VB,新建一个ActiveDLL: 写入以下代码: 然后在(文件)菜单选择“生成PrjName.dll”。然后就可以在QTP里进行调用了。 假设此时把PrjName.dll改名了FileName....

    用QTP调用VB6生成的DLL实例

    首先,打开VB,新建一个ActiveDLL:

    写入以下代码:

    然后在(文件)菜单选择“生成PrjName.dll”。然后就可以在QTP里进行调用了。

    假设此时把PrjName.dll改名了FileName.dll,如果此文件不是QTP所在机器生成的,需要用运行 regsvr32 进行注册(如运行regsvr32 f:\FileName.dll)。

        撤销注册运行 regsvr32 /u f:\FileName.dll 。

    然后直接在QTP里用CreateObject进行调用即可:

    如此简直,就实在了QTP调用DLL。

    当然,也可以用来声明非托管的动态链接库和API函数。

    展开全文
  • 利用ocx实现页面调用dll文件,即vb程序,CAB包
  • 实例】java调用dll的文档搜了不少,发现都不完整,或者说的不够详细,这里通过自己的实际操作,并将过程做了整理,通过实例说明java如何用jacob调用dll里的函数。 由于某系统加密需要,需要实现从dll里实现某些...
  • VB制作DLL并引用DLL实例源码

    热门讨论 2012-08-09 11:22:26
     写exe代码(包含调用DLL代码)  生成usedll.exe,usedll.exe和mydll.DLL要放在一个目录下。    注意:如果引用的时候可能会出现这样的错误:“名称与已存在的工程模块对象冲突”  解决...
  • c#调用vb dll

    热门讨论 2010-10-11 14:38:05
    本例子中实现在c#中调用vb生成的dll文件(com调用)例子由两个主要步骤组成:一 ...二 是在c#中引入步骤一中生成的dll,然后生成实例调用步骤一:首先在vb中新建一个ActiveX DLL 工程,然后在类模块文件中填入以下代
  • VB 调用TTS语音控件实例,工程开始前,请先引用TTSDLL.dll。实现电脑播音功能,程序运行时将获取捷通华声语音库,若库连接不上,可能会出现Bug,仅供参考学习。
  • 下面把asp封装的问题给大家写一个比较简单和实用的出来,便于大家上手,当然首页要准备的最重要的是vb工具了我用vb6.0。 启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)...
  • DLL(VC)编写和VB调用

    2012-10-14 22:23:49
    DLL(VC)编写和VB调用,基础的调用实例
  • 本文通过VB5.0创建ActiveX DLL文件,这个文件模拟了一个掷色子的过程,向大家介绍如何在ASP中调用DLL的文章专题。 动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法,但有一点恐怕大部分人都不知道,那...
  • 动画中的原代码如下: 复制代码 代码如下: VERSION 1.0 CLASS BEGIN MultiUse = -1 ...0 ‘NotAnMTSObject END Attribute VB_Name = “tw” Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attr
  • 这是我录制的一个gif操作动画,图片比较大,如果大家在线看图感觉不流畅的话可以把图片保存到本机再看.动画中的原代码如下: 1 VERSION 1.0 CLASS 2 BEGIN ... 5 DataBindingBehavior = 0 'vb...
  • VERSION 1.0 CLASSBEGINMultiUse = -1 'TruePersistable = 0 'NotPersistableDataBindingBehavior = 0 'vbNoneDataSourceBehavior = 0 'vbNoneMTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Nam...
  • 实例利用user32和avicap32.dll实现了对本地摄像头的识别并调用,希望能对您的VB.net编程学习有所帮助

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 176
精华内容 70
关键字:

vb调用dll实例