哥哥新手求教！DLL编写的问题,各位大哥哥务必近来指点一番阿

哥哥你们好!!能给个普通的DLL编写的例子给我吗？！！！我想用一个DLL进行复杂的计算，如果用在EXE里会导致我的程序在运算期间
无法响应任何鼠标和键盘事件，甚至连窗体显示都出现问题！！所以我想写一个DLL来后台运算。但是我从来就没有写过！能否传递一个自定义数组给DLL然后 DLL把计算到的结果保存到自定义数组。
后则您有更好的方法吗？！谢谢！我刚听说：用VB做成的ActiveX dll也是一样不能响应的.它一样不能异步操作的.
是真的吗？如果是真的话！我想做多一个程序用来后台计算！但是主程序A 和后台程序B 之间如何通信呢？！！
各位哥哥教教我啊，最好给我个代码例子！！！谢谢！！

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

用activex exe类型工程实现进程外服务器具体的去看msdn2002年以前的版本，有一章Components Tools Guide手把手教你做，还有实例代码
很简单的
你不如使用DoEvents命令，放在你调用计算过程的后面，这样应该能够好一些吧，
2、添加一个类模块，名称为“ClsAdd”，并输入如下几行代码：
   Option Explicit
   Public x, y As Integer
   Public Function myAdd() As Integer
     myAdd = x + y
   End Function
3、打开“工程属性”对话框，选择“生成”，选中“自动升级”；选择“部件”，选中“远程服务器文件”（此点很重要，否则编译时不会生成类型库文件COM_Test.TLB）及“二进制兼容”，最后“确定”
4、保存并编译，生成“Com_Test.dll”
新建一个工程，类型选择activex dll，工程属性工程名称改为“testdll”，将class1的名称改为mymath
输入如下几行代码：Option ExplicitPublic Event addcomp(ByVal num As Integer)
Public Function myAdd(ByVal x As Integer, ByVal y As Integer) As Integer
     myAdd = x + y
     RaiseEvent addcomp(myAdd)
End Function保存并编译，生成“Com_Test.dll”新建一个工程，工程引用浏览选择，找到刚刚编译好的Com_Test.dll，加入对它的引用
窗体上一个文本框,一个按钮Option Explicit
Dim WithEvents mytest As mymathPrivate Sub Command1_Click()
  Dim a As Integer
  Dim b As Integer
  a = 20
  b = 230
  Call mytest.myAdd(a, b)
End SubPrivate Sub Form_Load()
    Set mytest = New mymath
End SubPrivate Sub mytest_addcomp(ByVal num As Integer)
    Text1.Text = CStr(num)
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set mytest = Nothing
End Sub
解决没有响应的问题不应该是用ActiveX dll，而应该是如下几种方法
1.多线程，开启一个线程让它算去，算完了给个通知和结果就可以了
2.如果算法是个循环或者递归之类的，可以在合适的地方加上 DoEvents
使用activex exe来解决多线程在VB中异步执行程序
使用 Visual Basic 编写应用程序的开发人员一定都遇到过这样的情形：当你的应用程序要完成一个比较大的任务时，并且该任务是那种“ 独占式” 的任务（比如：使用函数 FileCopy 复制一个超过50MB 的文件），如果不对程序作出特殊的处理，则用户将被迫面对一个像是被“ 挂起” 的窗体，任凭你用鼠标怎样点击也没有任何反应，更糟糕的是当你从屏幕保护程序切换回该程序时会看到程序的窗体变成了一块“ 白布”，这更加给人一种“ 死机” 的感觉。如何避免这种尴尬的界面出现呢？笔者在实践中发现了一种简单的办法，在这里介绍给大家，希望能对您有所帮助。
----这种办法是利用 Visual Basic 提供的创建 ActiveX 部件的功能设计一个专门完成“ 大任务” 的ActiveX 部件。这里对ActiveX 部件作如下简单介绍，以期适合不同的读者。Visual Basic 所能设计的部件共有两种：一种是可视的部件；另一种是不可视的部件。ActiveX 控件和窗体一起构成了应用程序与用户交互的界面，ActiveX 文档使用在Internet 应用程序中。由于我们的问题不涉及到可视的部件，所以这里不再赘述。 ----不可视的部件又称为代码部件，包括 Active DLL 部件和ActiveX EXE 部件两种。ActiveX 部件的另一个名称是 ActiveX 服务器，之所以被称作服务器是由于ActiveX 部件与使用它们的应用程序之间的关系可以被类比为服务器程序与客户端程序之间的关系：ActiveX 部件封装了特定的功能或业务规则，应用程序不需要知道ActiveX 部件是如何实现这些功能或业务规则的，只需要通过ActiveX 部件提供的编程接口（API）传递应用程序的要求（通过属性或方法的参数），然后从部件的事件获得执行结果。根据ActiveX 部件（ActiveX 服务器）的执行方式可以把ActiveX 部件分为进程内部件和进程外部件，所谓进程内部件即部件和使用它们的应用程序执行时共享同一个进程；而进程外部件却执行在自己的进程中，也可以这样认为：进程外部件的执行不影响使用它们的应用程序！显然，这个特性正是本文开始面对的那个问题所需要的。在部件中只有ActiveX EXE 部件是进程外部件，因此利用这个特性我们可以创建一个ActiveX EXE 部件来完成“ 大任务”，而应用程序窗体只显示一些任务的提示信息，直到ActiveX EXE 部件的类的事件提示任务结束为止。这样应用程序就避免了那种呆板的“ 白布” 窗体的出现，而能够响应任何来自用户的操作或者当从那些遮盖住它的程序切换回来时自行刷新。给用户的感觉是程序是在“ 异步” 执行。 ----下面我们通过例子来看如何实现这一想法：这个例子中，我们假设应用程序窗体是一个一直显示当前时间的数字时钟，当你使其执行“ 大任务” 直到任务的完成，这期间你会发现数字时钟窗体从来就没有被“ 挂起” 过，仍然能够响应你的拖动操作和不停地显示时间。以下是实现这一程序和ActiveX EXE 部件的步骤及源代码： 1. 创建ActiveX EXE 部件（BigJobServer）
----步骤一：打开Visual Basic 6.0 新建一个VB 工程，工程类型选择ActiveX EXE，在工程资源管理器中选中工程1，然后在属性窗口中将其名称改为 BigJobServer。
----步骤二：为工程添加一个Timer 控件的容器窗体（添加窗体通过菜单工程> 添加窗体完成）。窗体名称改为 frmClock ；在窗体上放置一个Timer 控件（从工具箱中选择Timer 控件），名称改为 timClock。 ----说明：添加该窗体的用意是提供一个执行任务的定时器（Timer 控件） ----步骤三：设计实现“ 大任务” 的类 BigJob （注：代码部件是通过各种类实现应用程序交给它的任务的，关于类的创建请参考《手册》或MSDN 文档），默认情况下当你新建ActiveX EXE 部件时Visual Basic 为你添加了一个名为Class1 的类（要增加类通过菜单工程> 添加类模块完成），从工程资源管理器中选中Class1，然后在属性窗口中设置如下属性： ----（名称）：BigJob ----Instancing： 5 －MultiUse ----编写API：为类BigJob 添加方法和事件（通过菜单工具 > 添加过程完成）部分代码及程序说明如下：     Private frmTimeClock As frmClock
    ' 声明定时器容器窗体
    Private WithEvents oTimer As Timer
    ' 声明定时器（包括其事件）
    Public Event JobStart()
    ' 声明任务开始事件
    Public Event JobEnd()
    ' 声明任务结束事件    Private Sub Class_Initialize()
    ' －－－－类初始化事件－－－－
    ' 在这里创建定时器窗体 frmTimeClock
    ' 并引用定时器 oTimer
      Set frmTimeClock = New frmClock
      Load frmTimeClock
      Set oTimer = frmTimeClock.timClock
      oTimer.Enabled = False
    End Sub    Private Sub Class_Terminate()
    ' 类终止事件，
     释放定时器并卸载定时器窗体
      Set oTimer = Nothing
      Unload frmTimeClock
    End Sub

    Public Sub StartJob()
    ' 方法－通知执行“ 大任务”
    oTimer.Interval=100
    ' 经过0.1 秒时间开始执行任务
    oTimer.Enabled = True
    End Sub    Private Sub doBigJob()
    ' 模拟的“ 大任务”
     是这个空耗时间的循环
    ' 显然，这段代码在标准EXE 程序中
     一定会造成“ 挂起” 状态!
      Dim lngTemp As Long
      Dim lngSum As Long

      For lngTemp = 1 To 10000000
        lngSum = lngSum ＋ 1
      Next
    End Sub    Private Sub oTimer_Timer()
    ' 定时器周期到时开始执行任务
      oTimer.Enabled = False
      RaiseEvent JobStart   ' 触发“ 开始执行” 事件
      doBigJob              ' 执行“ 大任务”
      RaiseEvent JobEnd    ' 触发“ 任务结束” 事件
    End Sub----现在保存工程：选择菜单文件> 保存工程，根据提示窗口选择合适的文件夹保存所有工程资源（工程文件，窗体文件，类文件）。
2. 使用并调试BigJobServer 部件
----步骤一：选择菜单运行> 全编译执行，可以看到除了Visual Basic 进入运行工程的状态之外看不到任何窗体出现，ActiveX EXE 部件的调试比较特殊：需要在另一个Visual Basic 程序中进行。
----步骤二：最小化Visual Basic，然后启动另一个Visual Basic 的实例，新建一个标准EXE 工程。选择菜单工程> 引用，在可引用的部件中我们可以找到BigJobServer 部件，选中该部件，按 “ 确定” 按纽返回，这样就建立了应用程序和部件服务器间的联系。现在可以在这个工程中创建BigJob 类并使用其方法和事件了。 ----步骤三：在默认的窗体Form1 上放置如下控件并设置其属性（方法同前）：　类型名称标题（Caption 属性）
Label lblTime lblTime
Label lblMessage lblMessage
Timer timClock ( 无)
Command cmdStart 执行任务
----步骤四：为该工程编写简单的代码：     Option Explicit
    Dim WithEvents myJob As BigJob
    ' 声明BigJob 对像（包括事件）
    Private Sub Form_Load()
    Set myJob = New BigJob ' 创建BigJob 的实例
    End Sub    Private Sub Form_Unload(Cancel As Integer)
      Set myJob = Nothing     ' 释放对像
    End Sub    Private Sub cmdStart_Click()
      myJob.StartJob
     ' 通知对像执行任务
    End Sub    Private Sub myJob_JobStart()
    ' 在对像的“ 开始”
      事件中给用户一些提示
      lblMessage.Caption = “ 正在执行任务 ..."
    End Sub    Private Sub myJob_JobEnd()
    ' 在对像的“ 结束”
     事件中给用户一些提示
      lblMessage.Caption = “ 任务完成！"
    End Sub    Private Sub timClock_Timer()
    '“ 数字时钟” 在不间断地
     显示当前时间
      lblTime.Caption = Format(Now, “HH:NN:SS")
    End Sub----步骤五：保存并运行这个测试工程，会看到如下结果：当你按下“ 执行任务” 按纽后从提示可以知道那个可怕的“ 大任务” 已经开始执行，直到程序提示任务结束，这期间无论是拖动窗体还是时间的显示均不会受到影响。由此可见程序被“ 挂起” 的尴尬局面得到了解决。3. 补充说明
上述程序在Visual Basic 6.0 中文企业版上调试通过。
要在你的程序中实现这种方法，可以改进ActiveX EXE 部件。比如在类BigJob 中把doBigJob 过程替换为你的具体任务；或通过添加属性来传递适当的任务参数等等。
关于ActiveX EXE 部件的编译和发布问题，请参考《Visual Basic 联机手册》或MSDN 文档。
不会吧，只要用了DoEvents，一般不会这样，反而是用两个程序才可能这样，如果异步处理，当前程序就无法正确得知是否计算完成
如果只是单纯的计算而不涉及对象的访问，没有变量之间干涉的问题，你可以使用多线程。见API的FAQ区