• --:)欢迎访问锋网源码(:--
  • 首页
  • RSS订阅
  • 常用软件
  • 网页模板
  • 网站运作
  • 锋网学院
  • 繁體中文

  • 学院首页
  • 新闻资讯
  • 网站运营
  • 网站开发
  • 美工设计
  • 数据库类
  • 服务器类
  • 网络应用
  • 操作系统
  • 软件教学
编程开发   认证考试   网络安全   文章搜索: 高级搜索
会员登录/控制面版 您的位置: 学院首页 >> 编程开发 >> Visual Basic >> 文章内容
 

精彩推荐

 
 

本类推荐文章

 
 

本类阅读排行

  • 如何在VB6中导出EXCEL、FOXP..
  • DataGrid控件的使用
  • 在VB中用Outlook发电子邮件
  • 用VB创建Excel报表
  • 在VB中如何使用ping命令
  • VB VC混合编程疑难问题解
  • 把最小化图标放到任务栏右下..
  • 用MediaPlayer控件做一个MP3..
  • VB给菜单加上图片
  • 在VB中控制Word
  • VB中调用Word拼写检查
  • VB如何将DBgrid印出来
  • 在VB应用程序中调用Excel200..
  • 用VB尝试新的界面风格
  • 如何用VB准确计算年龄
  • 如何由两个ASC码(区位码)复..
  • 用ParamArray接收任意个参数
  • 编制自已的电话录音小程序
  • 利用VB6.0开发基于IIS的应用..
  • 在TextBox中限制只能输入数字..
 
 

VBCOM基础讲座之创建测试程序

  • 日期:2007-10-20     人气:     出处:     作者:
  • 字体大小:
  • 小
  • 中
  • 大

这里我们直接创建一个应用程序来测试一下前面生成的ActiveXEXE文件监视组件:

  新建一个"StandardEXE"工程;

  下面需要添加一个引用到我们的新的文件组件中去,然后添加少量的代码作尝试:

  选择"Project"->"References"菜单;

  选中"File"组件选项,然后单击[OK]按钮;

  在表单的通用声明部分添加下列代码:

  DimWithEventsMyFileObjectAsFileCheck

  从"Object"下拉列表中选择"MyFileObject";

  确保插入符在FileFound事件程序中;

  键入下列代码:

  MsgBox"Found:"&Filename

  在表单Form1中添加一个命令按钮;

  在该按钮中添加下列代码:

  SetMyFileObject=NewFileCheck

  MyFileObject.MonitorFile("c:\test.txt")

  这里,我们是将MyFileObject定义成FileCheck的一个新实例,然后用c:\test.txt参数运行MonitorFile方法。这时,程序在后台中启用计时器,且每隔60秒都来检测一次这个文件。

  由于,我们的计算机中还没有这个文件,所以什么也没有发生。现在,我们用Notepad(记事本)在C盘中创建一个名为test.txt的文件。

  则在60秒内,弹出一个消息对话框用来表示我们的文件被找到。这就是我们刚刚创建的ActiveXEXE!

  对于上述这样的组件,使用异步处理是没有太大的必要的。正如我们以前讨论的那样,ActiveXEXE是有自己的进程空间的。因此,当计时器启用并检测文件的存在性时,它不会使其它程序暂停。而如果使用的是DLL,那么就可以使用异步处理了。

  即使这样,你能在计时器中放入任何代码吗?是能放入创建大型报表的程序、复杂的计算代码,还是其他?

  至此,我们构造了一些实际的常规组件,但我们还没有来得及讨论它们的发布问题,这将在下一节中进行。->

相关文章
  • QQ帮你突破网吧硬盘访问限制
  • 局域网内盗用IP的安全问题
  • 邮件安全攻略:只要糖衣不要炮弹
  • 手机病毒的分类及其防范措施
  • 如何防止黒客远程盗取QQ密码
  • 始料未及,谁在控制电脑重新启动
  • 网络常见木马的手工清除方法
  • 魔高一尺 道高一丈
  • 防火墙日志记录让蠕虫病毒无处可逃
  • 提防他人动用电脑另有妙招
相关软件

  • 网友评论:
  • 查看所有评论
  • 我要发表评论
 

关于本站 | 广告联系 | 版权声明 | 网站地图 | 加入收藏 | 帮助中心 |

Copyright © 2006-2007 fwvv.net  程序支持:木翼  皖ICP备06004916号  

感谢:点击网络 联网科技 天盈信息 中国E速网 59互联  提供服务器及带宽赞助