VBA多线程及线程优先级演示程序.

DDp3PVjh.rar (35 KB, 下载次数: 2645)

目的是为了演示: VBA多线程的开发示例.

当然为了演示的效果，VBA代码中求和用的是最呆的方法,循环相加，实际大家都知道，如用优化算法一步就能实现．

VBA的多线程是很不稳定的,跟CreateThread函数有很大的关系.当然主要VBA是解释执行的程序,
 实际代码是在一些Runtime库运中行的, 必须存有一个动态刷新的控件,否则Excel肯定Crash.

不错，不错

我原本也想做一个这样的例子，不过经常crash，所以没继续研究下去了

VB里用多线程都危险，何况是VBA？Excel里用多线程意义不大，除非楼主能够找到最好的用途的实例。

代码盲, 太多了, 没怎么看懂

只是来问版主一个问题

在一个线程中一但做了excel的写操作后，再对excel某个格赋值就会挂掉

例：

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

 Public threadid1 As Long

Private Sub Workbook_Open()   
    Call CreateThread(Null, ByVal O&, AddressOf Module.init, VarPtr(0), ByVal 0&, threadid1)

End Sub

Public Sub init()
Sheet1.writecell
end sub

'sheet1

Option Explicit

Public Sub writecell()
    Range("A1") = "test"
End Sub

Private Sub CommandButton1_Click()
Dim l_ret As Long
TerminateThread
l_ret = TerminateThread(threadid1, 0&)
    Range("A1") = "do"
End Sub

不知道怎么解决

２我要在可见性这个时机做一个处理，　怎么办？　我只想到了做一个线程来监听，　注意是可见这个时机啊，　不是ＯＰＥＮ

希望给解答一下