基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

VB创建本身支持多线程的程序

Option Explicit

Private Declare Function CreateEvent Lib "kernel32.dll" Alias "CreateEventA" ( _
     ByVal lpEventAttributes As Long, _
     ByVal bManualReset As Long, _
     ByVal bInitialState As Long, _
     ByVal lpName As String) As Long
Private Declare Function OpenEvent Lib "kernel32.dll" Alias "OpenEventA" ( _
     ByVal dwDesiredAccess As Long, _
     ByVal bInheritHandle As Long, _
     ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" ( _
     ByVal hObject As Long) As Long
Private Declare Sub ExitProcess Lib "kernel32.dll" ( _
     ByVal uExitCode As Long)

Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const EVENT_MODIFY_STATE As Long = &H2
Private Const EVENT_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)

Private Const MyEvent As String = "multi_thread"
Dim hEvent As Long

Sub Main()
    If GetEventHandle = 0 Then
        hEvent = CreateEvent(0&, False, False, MyEvent)
        frmMain.Show
    End If
End Sub

Private Function GetEventHandle() As Long
    GetEventHandle = OpenEvent(EVENT_ALL_ACCESS, False, MyEvent)
    Call CloseHandle(GetEventHandle)
End Function

Public Function Quit()
    Call CloseHandle(hEvent)
End Function