VB无所不能之七：VB的多线程（1）
VB无所不能之七：VB的多线程（1）
作者：钟声
题外话：
最近，写了几篇《VB无所不能》系列，本系列文章的创作初衷就是要去颠覆众多程序员对于“非面向对象”语言“VB”的成见！
当然，我也早有预期，此言一出必然招致不明真相的群众的“围攻”，然而，我还是要继续写下去，事实胜于雄辩，在这里我也想和广大网友说一声，如果要质疑我文章中的某些观点，欢迎拿出真凭实据与我辩论，切莫采取“五毛党”式的语言横加棒杀。
再次声明关于“无所不能”：
本文系列为《VB无所不能》，并不是真的像孙悟空72变似的“无所不能”，想变一个蚊子变个蚊子，想变个大象变个大象，吃喝拉撒睡全用VB给你解决了那是不可能的，关于“VB是否无所不能”这个话题就不用再跟我争论了，任何语言都不能“无所不能”，这里的“无所不能”是一个“状语”，而不是“定语”，OK?
好，我们继续，最近有网友强烈要求我写一篇关于VB多线程的文章，我在博客的留言中大呼“头疼”！！
是啊，VB确实处理多线程是一个头疼的事情，比VB处理图像处理，钩子程序，和指针要头疼很多。头疼之处无非有如下几点：
1、VB本身没有多线程的处理机制
2、VB的大部分控件都不是线程安全的
3、动不动就莫名其妙的因为严重错误而程序崩溃
但，还是为了满足网友要求，我还是硬着头皮写一篇，如有不对之处，还请大家见笑了！！
一、首先我们来认识一下Windows的kernel32给我们提供的线程函数
CreateThread
说明：
微软在Windows API中提供了建立新的线程的函数CreateThread
概述：
当使用CreateProcess调用时，系统将创建一个进程和一个主线程。CreateThread将在主线程的基础上创建一个新线程，大致做如下步骤：
1.在内核对象中分配一个线程标识/句柄，可供管理，由CreateThread返回
2.把线程退出码置为STILL_ACTIVE，把线程挂起计数置1
3.分配context结构
4.分配两页的物理存储以准备栈，保护页设置为PAGE_READWRITE，第2页设为PAGE_GUARD
5.lpStartAddr和lpvThread值被放在栈顶，使它们成为传送给StartOfThread的参数
6.把context结构的栈指针指向栈顶（第5步）指令指针指向startOfThread函数
VB�
相关文档：
Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long ......
RGB函数：RGB是通过指定红绿蓝不同的分量值得到不同的颜色。
·格式：RGB（红色值，绿色值，蓝色值）
·取值范围为0--255，分别代表所要颜色中的红、绿、蓝分量的大小。
QBColor函数：用一个整数值对应RGB的常用颜色值
·格式QBColor（颜色值）
·颜色值是一个整数，取值范围0--15代表16种� ......
Dim rs As ADODB.Recordset
Dim sqlstr As String
'查询
sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
rs = VScn.Execute("" & SqlSt ......
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程序接口 (API);因此使用 SQL-DMO 的� ......
