• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

vb com基础讲座之测试activex exes

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

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

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范