VBA的多线程开发

oldexcelman

QUOTE:

以下是引用烟雨厦江南在2007-11-19 12:00:19的发言：

雷老虎？！

这位肯定是玩个征途的朋友

oldexcelman

QUOTE:

以下是引用BrandSex在2007-11-19 13:36:42的发言：

这里有个最简单的例子

Sub TestMultiThread()
Dim i As Integer
dim hThreads(10) As Long

  For i = 1 To 5

    hThreads(i) = CreateThread(0, 0, AddressOf TestThread, i, 0, 0)

  Next i

DoEvents
'checking threads

End Sub

Sub TestThread(i as Interger)
'do something
End Sub

有什么看不懂的地方大家可以问啊

加点注释嘛

彭希仁

DoEvents 函数

      

转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )
 

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

应用1

如编写秒表

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Dim zt, ks, t
Sub 开始()
    Dim keys(0 To 255) As Byte
    t = Timer
    ks = 1
    zt = 0
    For x = 1 To 250
        DoEvents
        GetKeyboardState keys(0)
        If keys(39) > 127 Then zt = 0
        If keys(37) > 127 Then zt = 1
        If keys(40) > 127 Then ks = 0
        If zt = 0 Then Cells(1, 2) = Timer - t
        If x = 250 Then x = 0
        If ks = 0 Then Exit Sub
    Next x
End Sub

Sub 暂停()
    If zt <> 0 Then
        zt = 0
        t = Timer - Cells(1, 2)
    Else
        zt = 1
    End If
End Sub

Sub 结束()
    ks = 0
End Sub

oldexcelman

都是高人啊

stanleypan

VB和VBA的多线程主要有:

1).Active EXE法:

2).创建线程API: APICreateThread

当然,提高代码运行速度主要从:

代码算法,机器配置,多线程,进程权限提高 方面着手.

当然,改用不同的编程语言编程,代码的执行效率是不一样.

两袖清风

QUOTE:

以下是引用BrandSex在2007-11-19 13:30:35的发言：

是Column()，打错了，还忘记提IF()这么重要的复合函数了

很想看到楼主怎样复合这些函数完成该竞赛题的,提供一下,也给大家提供增加点积分的机会嘛.

43379677

QUOTE:

以下是引用两袖清风在2007-11-19 17:04:30的发言：

很想看到楼主怎样复合这些函数完成该竞赛题的,提供一下,也给大家提供增加点积分的机会嘛.

这主意不错,实际应用一下给大家看看.不要光打雷不下雨

wangminbai

不错，学习了很多东西。大家都很厉害。

sjzhouah

尺有所短寸有所长，即便你在自己所长的某一方面强过別人，也没有什么很值得骄傲的，况且在这里的网友十之八九所学都不计算机，大部份都是业余的水平，如果你是凤凰，就不应该来同家鸡比美。

tycp

知道几个API函数有什么用，你知道这些API函数是怎么实现的吗？建议继续钻研！看LINUX 的源代码，我这儿有早期的资料，2万多行全部都有注释，看完之后，你会觉的这些API函数跟自己编的函数没有什么区别了！