7,763
社区成员
发帖
与我相关
我的任务
分享在vb下实现多线程 为什么会出现内存不可写？
开发环境： win2000 p
vb6.0
代码如下：
form:
Public Thread As Long
Public ThreadID As Long
Private Sub Command1_Click()
Dim flag As Long
m_hThread = CreateThread(0, 0, AddressOf showtext,0, flag,ThreadID)
End Sub
module 定义：
Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Public Function showtext()
Form1.Text1.Text = "hello!"
End Function
vb6.0
代码如下：
form:
Public Thread As Long
Public ThreadID As Long
Private Sub Command1_Click()
Dim flag As Long
m_hThread = CreateThread(0, 0, AddressOf showtext,0, flag,ThreadID)
End Sub
module 定义：
Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Public Function showtext()
Form1.Text1.Text = "hello!"
End Function
...全文
请发表友善的回复…
发表回复
