如何用VB编写DLL ，（仅用于VB的调用）？

能不能在DLL中加控件？
哪位能给个源程序和文档就行

解决方案 »

  1.   

    如果你说的.DLL是标准的DLL，也就是在VB中必须使用Declare语句声明后才能使用的DLL，那种VB做不了。VB只能做两种特殊的DLL，一个是ActiveX DLL和ActiveX Control(*.ocx)。这两种DLL都是VB支持的标准类型，在VB自身的例子中有，你可以参考。更详细的介绍可以参考我写的《Visual Basic编程晋级：ActiveX控件》(http://zealsoft.nease.net/articles/vbactivex/)一书的“第十六章 其他ActiveX部件 ”。 
      

  2.   

    转贴
    如何调用DLL来加快服务器的执行速度？1、并双击新建工程窗口中ActiveX DLL图标，VB将自动为项目添加一个类模块，并将该项目类型设置为ActiveX DLL。
    2、在属性窗口将类模块的名称属性改为clsDice。
    3、从工程菜单中选择工程属性，将工程名称改为MyDLL。
    4、从文件菜单中选择保存clsDice，将类模块保存为myDice.cls。
    5、添加以下代码：
    Option ExplicitPrivate Max, Point As IntegerPublic Property Get Result() As Integer
    Result = Point
    End PropertyPublic Property Get Maxpoint() As Integer
    Maxpoint = Max
    End PropertyPublic Property Let Maxpoint(num As Integer)
    Max = num
    End PropertyPublic Sub Throw()
    Randomize
    Point = Int(Rnd * Max) + 1
    End SubPrivate Sub Class_Initialize()
    Max = 6
    End Sub
    这个类模块定义了clsDice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数，加入Property Let语句可让用户修改色子的面数；Result属性表示最后掷出色子的点数；Throw方法代表掷色子的动作；Private Sub Class_Initialize语句将色子的面数缺省的设置为6面。
    　　最后，从文件菜单中选择生成mydll.dll，并保存。下面，我们来引用类clsDice：
    dice.asp
    ' 使用CreateObject函数创建clsDice对象实例(前面创建的ActiveX.DLL--MYDLL.DLL文件)
    <!--METADATA TYPE="typelib" FILE="Path/mydll.dll" --> 
    ' Path是mydll.dll在机器上存放的路径 
    <html>
    <head>
    <title>精彩春风之调用DLL文件</title>
    </head>
    <body>
    <%
    On Error Resume Next 
    '＂赦免＂程序错误If Request.Form("T1")="" then
    Session("point") = 6
    Else 
    Session("point")=Request.Form("T1")
    End If
    ' 用Session("point")来存放色子面数Set dice1=Server.Createobject("MyDLL.clsDice")
    ' 使用set语句创建dice1对象,其中MyDLL是上面创建dll文件时的工程名,clsDice为类模块的名称If Request.ServerVariables("Request_Method")="POST" then
    dice1.Maxpoint = Session("point") 
    ' 设定色子的面数 
    dice1.Throw 
    ' 掷色子
    %>
    <form method="POST" action="dice.asp">
    <p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
    <p><input type="submit" value="掷色子" name="B1"></p>
    </form>
    <p>结果:<% = dice1.Result %>点 </p> 
    ' 返回结果
    <%
    Else 
    dice1.Maxpoint = Session("point") 
    %>
    <form method="POST" action="dice.asp">
    <p>当色子的面数为<input type="text" name="T1" size="5" value=<% = session("point") %>>时</p>
    <p><input type="submit" value="掷色子" name="B1"></p>
    </form>
    <%
    End If
    %>
    </body>
      

  3.   

    同意： lihonggen0(李洪根,用.NET，标准答案来了)
      

  4.   

    first : agree with lihonggen0(李洪根,用.NET，标准答案来了)second : an example ===========================================================
    生成DLL文件（又称为组件）：
    启动VB，在新建工程窗中选择ActiveX DLL，系统即会产生一带类模块的工程。定义工程为DllTest（也可自定），定义类模块名为MathLib，并在其中输入函数Add2，这样名为DllTest的组件就做好了，该组件编译后即为DLL文件。现在运行之。调用该DLL文件：
    需启动另一VB并新建标准EXE，点选菜单工程|引用，在引用窗中选中DllTest组件，并在Form_Click中填写以下代码
        Dim oMathLib As New MathLib
        Dim r As Integer
        
        r = oMathLib.Add2(3, 2)
        MsgBox "3+2=" & r
    运行之，窗体弹出后点击后会出现结果窗3+2=5
    另外，编译后的组件为DLL文件，使用前需经RegSvr32 -r <Path>DllTest.dll注册后才可使用