VBA的多线程开发

彭希仁

QUOTE:

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

right tools for the right job, 不要出一些和Excel应用无关的题目，开发游戏还是用DirectX SDK专业一点

http://club.excelhome.net/viewthread.php?tid=276250&px=0

这个绝对是与EXCEL有关了.都不用VBA了,用函数就行了.

清风_ll

QUOTE:

以下是引用BrandSex在2007-11-19 10:56:49的发言：

你的VBA代码速度超慢吗？你刚买的双核CPU感觉总有个CPU处于空闲状态吗？你的VBA代码有很多任务在同时完成吗？OK，你需要使用多线程，不过使用多线程前要记住一点：不要为了用多线程而用多线程.

使用多线程要用到API，同步，总之很繁琐的，如何你看了下面的代码没有感觉到不想看了，请回贴我再继续，否则我写了没人看也没什么意思

Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) As Long

有点感觉,请楼主继续,谢谢.

BrandSex

四个函数就搞定，ROW(), COL(), MAX(), VLOOKUP()

烟雨厦江南

QUOTE:

以下是引用BrandSex在2007-11-19 11:05:40的发言：

我要以德服人...

雷老虎？！

烟雨厦江南

对此题目有点兴趣，期待楼主的继续解说。

清风_ll

QUOTE:

以下是引用BrandSex在2007-11-19 12:00:19的发言

QUOTE:

 COL()

自定义函数吧?如果是UDF,那么一个就可搞定.

extyg

楼主,继续嘛!发上来总会有人看的.

讨论牛与不牛,不合时宜吧.楼主再牛总是会被考住的,其实谁都是这样,都是人又不是神!楼主愿意和大家分享,就值得赞扬!

BrandSex

回到主题：

首先，我讲一下API中的基本线程函数，

Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

CreateThread函数用于创建一个新的线程，其中SECURITY_ATTRIBUTES结构决定了一个线程的是否可以被子线程继承（bInheritHandle ）

Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

StackSize指栈的大小，一般都让系统自己管理，用默认值0

StartAddress的函数的地址，AddressOf [函数名]可以得到函数的地址

Parameter是传递给线程函数的参数

CreationFlags决定了线程创建后是否立即执行,默认0为立即执行，当然你可以先挂起线程，等某个事件或信号来决定线程是否执行

最后一个参数是线程的标识，其实和返回的线程句柄是一个作用，不过一般大家都用线程的句柄来操作线程

(to be continued...)

BrandSex

QUOTE:

以下是引用清风_ll在2007-11-19 12:09:10的发言：

自定义函数吧?如果是UDF,那么一个就可搞定.

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

BrandSex

这里有个最简单的例子

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

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