开发者社区> 技术小胖子> 正文

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是如何利用这些函数完成多线程任务的吧。。






 本文转自 useway 51CTO博客,原文链接:http://blog.51cto.com/useway/301717,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
VB会考跳坑要点汇总
VB会考跳坑要点汇总
25 0
VB编程的好帮手--【VB源码之友】快速进阶
B源码之友是VB软件开发的好助手,它即能规范源码开发的格式,又能提高编程的速度,是一款不可多得的好工具
2279 0
用VB开发绿色软件
我认为的绿色软件就是免安装,短小精干的软件,目前的大部分共享软件都属于此类(或向绿色软件靠拢)
878 0
学习C#,重温VB
<pre><span style="font-family:KaiTi_GB2312"><span style="font-size:18px">说起编程语言,对于自己来说,最熟悉的莫过于VB。从最开始的VB百例,陈伟视频和课本,到后面的学生和机房系统,也不知道写了多少行代码了。突然换了个环境,还真是</span></span><span style="font-size:18px; fo
1012 0
VB程序架构分析
在08年,我曾经写过VB程序。前面也将该VB程序的架构剥离出来并发出来共享了(具体见http://www.cnblogs.com/lzhdim/archive/2012/03/08/2385028.html)。
870 0
Delphi TWebBrowser编程简述(转帖)
Delphi 3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式出现的,而且需要自己引入,在其后的4.0和5.0中,它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。
1278 0
+关注
技术小胖子
文章
问答
视频
文章排行榜
最热
最新
相关电子书
更多
Android开发之多进程架构
立即下载
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载