VB创建多线程应用程序(一)

原创 2004年05月28日 10:22:00

问题背景:

有时候我们做程序时有这样的需求:有一个需要运行时间很长的循环,那么程序只有等待循环运行结束后才执行别的程序代码,这样机器一直处于循环之中,而不能响应别的事情,对CPU资源来说是一种浪费,那么可不可以既让循环执行,又可以执行程序另外的一部分代码呢?答案是可以的,那就要用到多线程了。

相关知识:

进程:是指程序在一个数据集合上运行的过程,是操作系统进行资源分配和调度运行的一个独立单位,简单来说进程就是程序的一次执行。

进程的两个基本属性:1.进程是一个可拥有资源的独立单位;2. 进程同时又是一个可以独立调度和分配的基本单位。

操作系统中引入进程的目的是为了使多个程序并发执行,以改善资源利用率及提高系统的吞吐量。

线程:线是进程中的一个实体,是被系统独立调度和分配的基本单位。线程自己基本上不拥有系统资源,只拥有一些在运行中必不可少的资源,但它可与同属一个进程的其他线程共享进程所拥有的全部资源。同一个进程中的多个线程之间可以并发执行。

问题实现:

VB可不可以创建多线程呢?答案:VB本身不可以,但用API函数VB可以实现。

VB中创建线程用到以下几个API函数:

'创建线程API

'API经过改造,lpThreadAttributes改为Any型,lpStartAddress改为传值引用:

'因为函数入口地址是由形参变量传递,如果用传址那将传递形参变量的地址而不是函数的入口地址

' 参数dwStackSize为应用程序堆栈大小,lpStartAddress为函数入口地址

Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long

'终止线程API

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

'激活线程API,参数hThreadCreateThread创建的线程句柄

Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

'挂起线程API

Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long

 

了解完上面的API函数后请看下面的实例:

实例效果:此实例实现三个图片框的背景色一起变色。

实例的窗体布局见图:

 

程序的工程窗口:

 

源代码见:《VB创建多线程应用程序(二)

 

 

java 实验四 多线程(无脑实验系列)

1.汉字打字练习。 ²  实验要求: 编写一个Java应用程序,在主线程中再创建一个Frame类型的窗口,在该窗口中再创建1个线程giveWord。线程giveWord每隔2秒钟给出一个汉字,用户...
  • liangzhaoyang1
  • liangzhaoyang1
  • 2016年05月23日 09:12
  • 1362

java多线程学习(一)之创建线程的两种方式

1、首先来了解一下线程和进程的概念    进程的概念:    进程是操作系统资源管理的最小单位,进程是一个动态的实体,他是程序的一次执行过程。也叫作一个控制单元    线程的概念:    线程是进程中...
  • u011521890
  • u011521890
  • 2015年12月03日 15:43
  • 2414

vb.net线程详细讲解

VisualBasic作为易学易用的编程语言,为多少程序员所仰慕,VB历经多年的发展,从大家都熟知的VB6到如今的VB.NET,虽然这两个差别很大= = 本文主要讲述“线程”这么一个东西。 线...
  • wuhenzhangxing
  • wuhenzhangxing
  • 2015年01月13日 18:59
  • 7827

VB创建多线程应用程序

源代码如下:窗体中的代码:Option EXPlicit '开始Private Sub Command1_Click()      On Error Resume Next      With myT...
  • zhongyhc
  • zhongyhc
  • 2011年07月18日 17:16
  • 994

VB.NET应用程序中多线程的应用实例

很长时间以来,开发人员一直要求微软为VB增加更多的线程功能——这一点在VB.NET中终于实现了。VB6不支持创建VB.NET多线程的EXE、DLL以及OCX。但这种措词容易引起误解,这是因为VB6支持...
  • minsenwu
  • minsenwu
  • 2013年01月24日 18:21
  • 4951

Smart Client系列课程(7):使用多线程创建高响应智能客户端应用程序(PPT+CODE+QA)

  • 2009年03月02日 22:25
  • 318KB
  • 下载

Smart Client系列课程(7):使用多线程创建高响应智能客户端应用程序(VIDEO)

  • 2009年03月02日 22:17
  • 10.59MB
  • 下载

C#创建多线程应用程序

  • 2007年10月17日 11:04
  • 4KB
  • 下载

C#创建多线程应用程序

  • 2008年05月29日 15:45
  • 27KB
  • 下载

安全的编写多线程的_Java_应用程序

  • 2012年06月24日 16:16
  • 228KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB创建多线程应用程序(一)
举报原因:
原因补充:

(最多只允许输入30个字)