怎样在VB程序中实现多进程?
例如:
当我在程序中用FTP上传一个较大的文件(可能要5分钟),在这5分钟的时间里,我想让程序同时去进行其他任务,如此该如何解决?
例如:
当我在程序中用FTP上传一个较大的文件(可能要5分钟),在这5分钟的时间里,我想让程序同时去进行其他任务,如此该如何解决?
解决方案 »
- vb中如何将txt文件中的16进制数据导出为10进制的数据
- 用Setup Factory 6.0制作安装包,如何在桌面上建立某程序的快捷方式图标
- 请大家帮帮忙
- 請問我怎樣才能改一個表newtb中的第x個字段名稱?
- 数据库端口号改了,连接不上了。请教!!!
- 请教:如何编一个在客户端可以自动搜索某专利网站上信息的东东?
- 怎么样让程序启动时可以接收参数,这样的程式怎么做,给个例子!
- VB中怎么样恢复数据库
- 我想做一个数据统计之类的东西,是个2维表,用什么控件好一点?
- crystal report 8.0报表使用时碰到的一个问题
- 如何实现关于票据套打的功能。我现在比较急,希望大家能帮下忙
- 在VB中如何使用立即窗口
'类模块中的代码: '功能:创建多线程类,用于初始化线程。 类名:cls_Thread'参数:LongPointFunction 用于接收主调过程传递过来的函数地址值'调用方法:1.声明线程类对象变量 Dim mythread as cls_Thread' 2.调用形式:With mythread' .Initialize AddressOf 自定义过程或函数名 '(初始化线程) .' .ThreadEnabled = True '(设置线程是否激活)' End With' 3.终止调用: Set mythread = Nothing' Crate By : 陈宇 On 2004.5.10 Copyright(C).Ldt By CY-soft 2001--2004' Email:[email protected]' Test On: VB6.0+Win98 AND VB6.0+WinXP It's Pass ! Option Explicit'创建线程API'此API经过改造,lpThreadAttributes改为Any型,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'终止线程APIPrivate Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long'激活线程APIPrivate Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long'挂起线程APIPrivate Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long Private Const CREATE_SUSPENDED = &H4 '线程挂起常量 '自定义线程结构类型Private Type udtThread Handle As Long Enabled As BooleanEnd Type Private meTheard As udtThread'初始化线程Public Sub Initialize(ByVal LongPointFunction As Long) Dim LongStackSize As Long, LongCreationFlags As Long, LpthreadId As Long, LongNull As Long On Error Resume Next LongNull = 0 LongStackSize = 0 LongCreationFlags = CREATE_SUSPENDED '创建线程后先挂起,由程序激活线程 '创建线程并返线程句柄 meTheard.Handle = CreateThread(LongNull, LongStackSize, ByVal LongPointFunction, LongNull, LongCreationFlags, LpthreadId) If meTheard.Handle = LongNull Then MsgBox "线程创建失败!", 48, "错误" End IfEnd Sub '获取线程是否激活属性Public Property Get ThreadEnabled() As Boolean On Error Resume Next Enabled = meTheard.EnabledEnd Property '设置线程是否激活属性Public Property Let ThreadEnabled(ByVal Newvalue As Boolean) On Error Resume Next '若激活线程(Newvalue为真)设为TRUE且此线程原来没有激活时激活此线程 If Newvalue And (Not meTheard.Enabled) Then ResumeThread meTheard.Handle meTheard.Enabled = True Else '若激活线程(Newvalue为真)且此线程原来已激活则挂起此线程 If meTheard.Enabled Then SuspendThread meTheard.Handle meTheard.Enabled = False End If End IfEnd PropertyPublic Sub ThreadStart()
ThreadEnabled = True
End Sub'终止线程事件Private Sub Class_Terminate() On Error Resume Next Call TerminateThread(meTheard.Handle, 0)End Sub'总结:
'
'本程序的缺点是程序运行时CPU占用率高?
'
'至此全部源代码结束,在实例的基础上可以根据个人需要做出不同的多线程应用程序,可以用此类模块创建ActiveX DLL,然后引用这个DLL来进行调用。希望对大家有用,若大家找到一种更好的实现方法且CPU占用率低的程序请通知我,程序中有什么Bug请Email,谢谢。