VBCOM基础讲座之测试ActiveXEXEs

发表日期：2006-2-27

本节将创建并测试自己的ActiveXEXE程序。

　　示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。

-align="right">->->->

　　当然，如果将所有代码写到ActiveXDLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveXEXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。

　　下面就来创建：

　　新建一个"ActiveXEXE"工程；

　　工程名设为"File"；

　　添加的类名为"FileCheck"；

　　下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveXEXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。

　　选择"Project"->"AddForm"；

　　在表单Form1中添加一个计时器；

　　在表单代码中添加下列变量的声明：

->PublicFilenameAsString->

　　该变量用于保存被监视的文件名。

　　在表单代码中添加下列事件的声明：

->PublicEventFileFound()->

　　该事件只有当前面的文件发现后才被激发。

　　在Timer1代码中添加下列语句：

->　　PrivateSubTimer1_Timer()

　　　IfDir(Filename)<>""Then

　　　　RaiseEventFileFound

　　　　Timer1.Interval=0

　　　EndIf

　　EndSub->

　　代码中，首先简单地检测文件，若存在则激发FileFound事件，然后将Timer1的时间间隔设为0，停止以后的检测。

　　打开FileCheck类；

　　在通用声明处添加下列对象的声明：

->DimWithEventsobjFileCheckAsForm1->

　　这就是Form1的代码，它通知VisualBasic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。

　　本节将创建并测试自己的ActiveXEXE程序。

　　示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。

　　当然，如果将所有代码写到ActiveXDLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止。由于ActiveXEXE工程拥有自己的进程空间，代码运行时会自我协调、异步处理，从而不会使其他程序代码停顿。

　　下面就来创建：

　　新建一个"ActiveXEXE"工程；

　　工程名设为"File"；

　　添加的类名为"FileCheck"；

　　下一步，我们需要构造一些用于每隔1分钟左右检测文件的代码。这里将在ActiveXEXE工程插入一个带有计时器的表单。但该表单不会被显示，因为我们只是使用上面的计时器控件每隔1分钟左右来检测文件，如果相应的文件被检测到，则激发一个事件。

　　选择"Project"->"AddForm"；

　　在表单Form1中添加一个计时器；

　　在表单代码中添加下列变量的声明：

->PublicFilenameAsString->

　　该变量用于保存被监视的文件名。

　　在表单代码中添加下列事件的声明：

　　PublicEventFileFound()

　　该事件只有当前面的文件发现后才被激发。

　　在Timer1代码中添加下列语句：

->　　PrivateSubTimer1_Timer()

　　　IfDir(Filename)<>""Then

　　　　RaiseEventFileFound

　　　　Timer1.Interval=0

　　　EndIf

　　EndSub->

　　这就是Form1的代码，它通知VisualBasic上述定义的对象是用来保存表单的。关键词WithEvents表示该类可以接收传送来的事件，如前面的FileFound等。
从"Object"下拉列表框中选择"Class"；

　　再从"Procedure"下拉列表框中选择"Initialize"；

　　在Class_Initialize事件中添加下列代码：

->　　PrivateSubClass_Initialize()

　　　SetobjFileCheck=NewForm1

　　EndSub->

　　该代码简单地使objFileCheck等于Form1的新的一个实例。之后，我们将使用在Form1中添加的功能。接下来，我们编写一个子过程用来监视一个文件。

　　在FileCheck中添加下列代码：

->　　PublicSubMonitorFile(FilenameAsString)

　　　objFileCheck.Filename=Filename

　　　objFileCheck.Timer1.Interval=60000

　　EndSub->

　　当我们调用此过程时，需要给出文件名参数。这时，表单的Filename变量保存该文件名，然后将计时器的时间间隔属性设置为60,000毫秒并激活该计时器。

　　至此，我们构造了用于监视文件的所有代码。但是当文件检测到时，我们需要通过激发FileFound事件通知程序正在使用ActiveXEXE。

　　在通用声明部分添加下列事件声明：

->PublicEventFileFound(FilenameAsString)->

　　该代码只是简单地定义一个FileFound事件，下一步该事件的相应代码。

　　从"Object"下拉列表框中选择"objFileCheck"；

　　再从"Procedure"下拉列表框中选择"FileFound"；

->　　PrivateSubobjFileCheck_FileFound()

　　　RaiseEventFileFound(objFileCheck.Filename)

　　EndSub->

　　显然，当文件检测到时，这里的FileFound事件就被激发。但我们还需要在使用EXE程序中添加这个事件的添加代码。

　　在objFileCheck_FileFound事件中添加下列代码：

　　RaiseEventFileFound(objFileCheck.Filename)

　　这就是我们的全部代码。

　　当程序员使用该类时，都可以文件名为参数调用MonitorFile方法，然后表单中的计时器被引发，每隔60秒钟检测一下文件，若该文件被查找到，则激发FileCheck类中的事件，该事件又激发相关的应用程序中的另一个事件，用来通知程序员，该文件已被找到。

　　明白了吗？让我们试试看吧！->

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：VBCOM基础讲座之编译的实例选项人气:2719
下一篇：VBCOM基础讲座之ActiveXEXEs 人气:2499

浏览全部Visual Basic的内容 Dreamweaver插件下载常用网页广告代码全集

最新网站源码	最新软件下载
2008-7-5 360安全卫士 V4.2.0.1004 2008-7-5 PHPDug v2.0 多国语言版 2008-7-5 乘风电影程序 v3.69 (SQL) 2008-7-5 乘风电影程序 v3.69 2008-7-5 wfTextImage文字图像组件 v1.5 2008-7-5 ZY music! v1.1.0705 2008-7-5 FavShop网店系统 v1.0 2008-7-4 天空网络电影系统SKYUC v2.5.1 B 2008-7-4 Drupal v7.x-dev Build 080704	2008-7-5 AgileMessenger即时通讯工具 v1. 2008-7-5 GoodCalculator2.0版固件计算器 2008-7-5 RepoName源地址搜索工具 v1.21b 2008-7-5 AgileMessenger即时通讯工具 v1. 2008-7-5 TouchCopy多媒体管理软件 v3.13完 2008-7-5 VideosTone视频铃声 v1.1汉化破解 2008-7-5 TouchPad触摸板 v4.44破解版 2008-7-5 VideosTone破解补丁 v1.0 2008-7-5 Feeds GoogleReader客户端 v0.4.3

发表评论
姓　名:	验证码:
内　容:

[ 汉字翻译拼音 ] [ 广告代码 ] [ 符号对照表 ] [ 进制转换 ] [ 经典小工具 ] [ 个税计算 ] [ 汉字简繁转换 ] [ 普通单位换算 ] [ 公制单位换算 ]

[ 生辰老黄历 ] [ 国内电话区号 ] [ 国家代码与域名缩写 ] [ 文字加密解密 ] [ 健康查询 ] [ 万年历 ] [ 手机号码查询 ] [ ip搜索 ] [ Google PR查询 ]