VB COM基础讲座之测试ActiveX EXEs_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB COM基础讲座之测试ActiveX EXEs

作者：闵涛文章来源：闵涛的学习笔记点击数：597 更新时间：2009/4/23 15:03:02

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

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

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

　　下面就来创建：

　　新建一个"ActiveX EXE"工程；

　　工程名设为"File"；

　　添加的类名为"FileCheck"；

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

　　选择"Project"->"Add Form"；

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

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

Public Filename As String　　
　　该变量用于保存被监视的文件名。

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

Public Event FileFound()　　
　　该事件只有当前面的文件发现后才被激发。

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

　　Private Sub Timer1_Timer()

　　　If Dir(Filename) <> "" Then

　　　　RaiseEvent FileFound

　　　　Timer1.Interval = 0

　　　End If

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

　　打开FileCheck类；

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

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

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

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

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

　　下面就来创建：

　　新建一个"ActiveX EXE"工程；

　　工程名设为"File"；

　　添加的类名为"FileCheck"；

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

　　选择"Project"->"Add Form"；

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

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

Public Filename As String　
　　该变量用于保存被监视的文件名。

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

　　Public Event FileFound()

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

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

　　Private Sub Timer1_Timer()

　　　If Dir(Filename) <> "" Then

　　　　RaiseEvent FileFound

　　　　Timer1.Interval = 0

　　　End If

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

　　打开FileCheck类；

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

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

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

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

　　Private Sub Class_Initialize()

　　　Set objFileCheck = New Form1

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

　　在FileCheck中添加下列代码：

　　Public Sub MonitorFile(Filename As String)

　　　objFileCheck.Filename = Filename

　　　objFileCheck.Timer1.Interval = 60000

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

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

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

Public Event FileFound(Filename As String)
　　该代码只是简单地定义一个FileFound事件，下一步该事件的相应代码。

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

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

　　Private Sub objFileCheck_FileFound ( )

　　　RaiseEvent FileFound ( objFileCheck.Filename)

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

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

　　RaiseEvent FileFound(objFileCheck.Filename)

　　这就是我们的全部代码。

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

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

[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用  [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址  [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法  [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版  [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表…  [办公软件]Excel编程基础之VBA文件操作详解

教程录入：mintao 责任编辑：mintao

上一篇教程：利用VB6.0设计屏幕保护程序

下一篇教程： VB+VC混合编程疑难问题解

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……