VB无所不能之七：VB的多线程（1）

概述VB无所不能之七：VB的多线程（1） 作者：钟声   题外话：   最近，写了几篇《VB无所不能》系列，本系列文章的创作初衷就是要去颠覆众多程序员对于“非面向对象”语言“VB”的成见！   当然，我也早有预期，此言一出必然招致不明真相的群众的“围攻”，然而，我还是要继续写下去，事实胜于雄辩，在这里我也想和广大网友说一声，如果要质疑我文章中的某些观点，欢迎拿出真凭实据与我辩论，切莫采取 “五毛党”式 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函数声明： 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 参数说明：
lpThreadAttributes:指向Security_ATTRIBUTES型态的结构的指针。在windows 98中忽略该参数。在windows NT中，它被设为NulL，表示使用缺省值。
DWStackSize:线程堆栈大小，一般=0，在任何情况下，windows根据需要动态延长堆栈的大小。
lpStartAddress:指向线程函数的指针，形式：@函数名，函数名称没有限制，但是必须以下列形式声明：DWORD WINAPI ThreadProc (LPVOID pParam) ，格式不正确将无法调用成功。
lpParameter:向线程函数传递的参数，是一个指向结构的指针，不需传递参数时，为NulL。
DWCreationFlags:线程标志,可取值如下
CREATE_SUSPENDED： 创建一个挂起的线程
0 ：创建后立即激活。
lpThreadID:保存新线程的ID。
返回值：
函数成功，返回线程句柄；函数失败返回false。
函数说明：
创建一个线程。
Sleep VB声明:
Private Declare Sub Sleep lib "kernel32" (ByVal DWMilliseconds As Long)

调用:
Sleep 3000 '延时3秒执行 '这个是sleep,作用就是让两个线程绘图频率不一致，效果才明显。
Public Declare Sub Sleep lib "kernel32" (ByVal DWMilliseconds As Long) 好，今天我们认识了这两个函数，今天先写到这，明天我们给出例程，看看VB是如何利用这些函数完成多线程任务的吧。。 ' ' ' 钟声写的关于Java方面的书： 《Java程序员，上班那点事儿》：
前言， 目录
卓越网销售链接
China-pub销售链接
当当网销售链接 《Java程序员，上班那点事》纪念帖 关于下载《Java程序员，上班那点事儿》的电子版
原文链接： http://www.jb51.cc/article/p-gfktfeou-qm.html 总结

以上是内存溢出为你收集整理的VB无所不能之七：VB的多线程（1）全部内容，希望文章能够帮你解决VB无所不能之七：VB的多线程（1）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。