vbcom基础讲座之测试activexexes_visualbasic教程:站长天空｜虚拟主机资讯|虚拟主机新闻|虚拟主机动态

首页

网络编程

网页制作

冲浪宝典

您当前位置：站长天空 -> 网络编程-> Visual Basic教程

vbcom基础讲座之测试activexexes_visualbasic教程

作者：网友供稿点击：0
推荐	西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!可在线rar解压,自动数据恢复设置虚拟目录等.免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金

站内搜索

文章页数：[1]

本节将创建并测试自己的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类中的事件，该事件又激发相关的应用程序中的另一个事件，用来通知程序员，该文件已被找到。

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

文章整理：站长天空网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

文章页数：[1]

相关主题

vbcom编程基础之子过程函数和参数_visualbasic教程

vbcom基础讲座之可重用性_visualbasic教程

vbcom基础讲座之创建第一个com对象_visualbasic教程

vbcom基础讲座之添加属性和方法_visualbasic教程

vbcom基础讲座之类的测试_visualbasic教程

友情链接
CNNIC	西部数码
万网	自助建站
虚拟主机	asp空间
域名注册	域名
域名申请	主页空间
论坛空间	网站空间
国际域名	虚拟空间
空间租用	DDOS防火墙
成都主机托管	四川主机托管
主机租用	服务器租用
网站目录	自助建站
虚拟主机	网址大全
软件下载	自助链接
虚拟主机资讯	特价虚拟主机

版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
关于我们：站长天空：专业提供最新的站长资讯、在线教程、虚拟主机权威评测、虚拟主机性能对比、网站制作教程,开发教程,站长工具。包括网页制作教程、冲浪宝典、编程参考、操作系统、软件教学、行业动态等。
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。