- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - （建议采用1024×768分辨率，以达到最佳视觉效果） Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
VBCOM基础讲座之建立测试程序
作者：黑客防线网安VB教程基地 来源：黑客防线网安VB教程基地 浏览次数：0 |
黑客防线网安网讯：这里我们直接创建一个应用程序来测试一下前面生成的ActiveXEXE文件监视组件： 新建一个"StandardEXE"工程； -align="right">->->-> 下面需要添加一个引用到我们的新的...
这里我们直接创建一个应用程序来测试一下前面生成的ActiveXEXE文件监视组件：
新建一个"StandardEXE"工程；
-align="right">->->->
下面需要添加一个引用到我们的新的文件组件中去，然后添加少量的代码作尝试：
选择"Project"->"References"菜单；
选中"File"组件选项，然后单击[OK]按钮；
在表单的通用声明部分添加下列代码：
DimWithEventsMyFileObjectAsFileCheck
从"Object"下拉列表中选择"MyFileObject"；
确保插入符在FileFound事件程序中；
键入下列代码：
MsgBox"Found:"&Filename
在表单Form1中添加一个命令按钮；
在该按钮中添加下列代码：
SetMyFileObject=NewFileCheck
MyFileObject.MonitorFile("c: est.txt")
这里，我们是将MyFileObject定义成FileCheck的一个新实例，然后用c: est.txt参数运行MonitorFile方法。这时，程序在后台中启用计时器，且每隔60秒都来检测一次这个文件。
由于，我们的计算机中还没有这个文件，所以什么也没有发生。现在，我们用Notepad(记事本)在C盘中创建一个名为test.txt的文件。
则在60秒内，弹出一个消息对话框用来表示我们的文件被找到。这就是我们刚刚创建的ActiveXEXE！
对于上述这样的组件，使用异步处理是没有太大的必要的。正如我们以前讨论的那样，ActiveXEXE是有自己的进程空间的。因此，当计时器启用并检测文件的存在性时，它不会使其它程序暂停。而如果使用的是DLL，那么就可以使用异步处理了。
即使这样，你能在计时器中放入任何代码吗？是能放入创建大型报表的程序、复杂的计算代码，还是其他？
至此，我们构造了一些实际的常规组件，但我们还没有来得及讨论它们的发布问题，这将在下一节中进行。->
新建一个"StandardEXE"工程；
下面需要添加一个引用到我们的新的文件组件中去，然后添加少量的代码作尝试：
选择"Project"->"References"菜单；
选中"File"组件选项，然后单击[OK]按钮；
在表单的通用声明部分添加下列代码：
DimWithEventsMyFileObjectAsFileCheck
从"Object"下拉列表中选择"MyFileObject"；
确保插入符在FileFound事件程序中；
键入下列代码：
MsgBox"Found:"&Filename
在表单Form1中添加一个命令按钮；
在该按钮中添加下列代码：
SetMyFileObject=NewFileCheck
MyFileObject.MonitorFile("c: est.txt")
这里，我们是将MyFileObject定义成FileCheck的一个新实例，然后用c: est.txt参数运行MonitorFile方法。这时，程序在后台中启用计时器，且每隔60秒都来检测一次这个文件。
由于，我们的计算机中还没有这个文件，所以什么也没有发生。现在，我们用Notepad(记事本)在C盘中创建一个名为test.txt的文件。
则在60秒内，弹出一个消息对话框用来表示我们的文件被找到。这就是我们刚刚创建的ActiveXEXE！
对于上述这样的组件，使用异步处理是没有太大的必要的。正如我们以前讨论的那样，ActiveXEXE是有自己的进程空间的。因此，当计时器启用并检测文件的存在性时，它不会使其它程序暂停。而如果使用的是DLL，那么就可以使用异步处理了。
即使这样，你能在计时器中放入任何代码吗？是能放入创建大型报表的程序、复杂的计算代码，还是其他？
至此，我们构造了一些实际的常规组件，但我们还没有来得及讨论它们的发布问题，这将在下一节中进行。->
黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-14622-1.html
新闻栏目
| 我要申请本站：N点 | 黑客防线官网 | |
| 专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479 |