IFIX VBA实现延时的几种方法
在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):
1.使用Windows API函数Sleep
新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口
"声明:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = "sleep begin"
Sleep 3000 "ms
Text1 = "sleep end"
End Sub
按F5执行,按下Command1按钮,程序停止执行,3秒钟内不对用户的操作做出反应,并且Text1里的内容并没有发生改变.这是怎么回事呢?原来,Sleep函数功能是将调用它的进程挂起dwMilliseconds毫秒时间,在这段时间内,此进程不对用户操作做出反应,程序中虽然将Text1的Text属性改成Sleep begin,但还没等完成对屏幕的更新进程就被挂起了,对用户来说程序象是死机一样。所以这种方法虽然简单,但并不适用.
2.使用Timer()函数
这是用的最多的一种方法,也是在VB联机手册中所推荐的。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
Private Sub Command2_Click()
Dim Savetime As Single
Text1 = "Timer begin"
Savetime = Timer "记下开始的时间
While Timer < Savetime + 5 "循环等待
DoEvents "转让控制权,以便让操作系统处理其它的事件。
Wend
Text1 = "Timer ok"
End Sub
这种方法虽然也很简单,但却有有一个致命缺陷,那就是Timer函数返回的是从午夜开始到现在经过的秒数。所以Timer返回的最大值也只是60*60*24-1秒,如果从一天的23:59:58秒开始计时等待5秒,那么程序会永远地循环下去。要进行改良,就要加上判断是否又开始了新的一天,那岂不是太麻烦.下面给大家推荐另一个Windows API函数.
3.使用Windows API函数timeGetTime()
timeGetTime函数没有参数,返回值是从开机到现在所经历的毫秒数,这个毫秒数是非周期性递增的,所以不会出现Timer()函数出现的问题,而且这种方法的精确性高于上一种方法。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
"声明
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command3_Click()
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime "记下开始时的时间
While timeGetTime < Savetime + 5000 "循环等待
DoEvents "转让控制权,以便让操作系统处理其它的事件。
Wend
Text1 = "timeGetTime end"
End Sub
按F5执行程序,按这几个按钮,您可以感受一下这几种方法的优劣.
以上内容是在VB中调试的,在iFix的VBA中也适用!
IFIX VBA实现延时的几种方法相关推荐
- vba 字符串换行的几种方法
vba 字符串换行的几种方法 例子 Sub test()MsgBox "我是" & Chr(10) & "小米"' MsgBox "我 ...
- vba打开html文件,vba打开网页的四种方法
内容提要:文章介绍在excel中vba打开网页的四种方法,分别使用API.SHELL函数.FollowHyperlink方法."InternetExplorer"对象来实现. Q: ...
- java 延时的几种方法方法
Java 延时常见的几种方法 1. 用Thread就不会iu无法终止 new Thread(new Runnable() {public void run() {while (true) {tes ...
- Python selenium 延时的几种方法
解决网页加载缓慢的几种方法: 一.显性等待WebDriverWait,配合该类的until()和until_not()方法,就能够根据判断条件而进行灵活地等待 1 from selenium impo ...
- Java延时的三种方法
一.Robot,Thread和Timer import java.awt.AWTException; import java.awt.Robot; import java.text.SimpleDat ...
- Unity 延时的三种方法
协程 在代码中开启与关闭协程 StartCoroutine(IName());//开始协程 StartCoroutine("IName");//开始协程 StopCoroutine ...
- vba 引用Sheet的几种方法
今天来记录一下如何引用Sheet 如果所有的操作都是在当前的Sheet完成的话,是不需要引用Sheet的. 举个例子,当前有Sheet1和Sheet2两个Sheet,假设当前选中的是Sheet2,我们 ...
- VBA 读写文本文件的几种方法
1.直接采用Open函数+Line input命令 Private Sub txt_read()Dim txt As StringOpen "D:\dzh.txt" For Inp ...
- VBA调用DOS程序两种方法
Set wsh = VBA.CreateObject("WScript.Shell")'wsh.Run strExePath & " g", vbHid ...
最新文章
- 太强了!我怀疑这是京东V1版源码....
- gpio的8种工作模式_【超低功耗系列一】STM32L 低功耗产品和模式
- ncnn量化学习笔记
- win7卡在正在启动windows界面_win7如何重装ie8
- mysql有imp命令吗_快速MySQL Imp
- HALCON示例程序ball电路板焊点识别、检测、测量程序2剖析(与上篇文章使用了不同方法)
- 星形和雪花模型_数据仓库多维数据模型设计
- Linux下文件的压缩和解压
- oracle PROFILE的使用学习
- ajax提交不能获取数据,django无法收到ajax的请求数据
- kubernetes视频教程笔记 (33)-什么是 Helm
- java实现消息推送_java实现后台服务器消息推送
- idou老师教你学istio :基于角色的访问控制
- Si512 支持 NFC 协议超低功耗检卡能非接触式读卡芯片
- excel常用快捷键详解
- windows连接vpn无法连接网络解决
- 粗略的了解Javascript
- 第9节 本地文件安全权限-以NTFS文件系统为例
- CSS绘制形状(三角形、四分之一圆、半圆、圆、梯形、球体、菱形)
- 真正的软件测试实习2
热门文章
- 080 《秘书工作手记:办公室老江湖的职场心法》简记
- 中值滤波原理及其C++实现与CUDA优化
- HTML+CSS(1)
- Python|Pyppeteer解决微软Microsoft的登录机器人验证(8)
- 东北大学软件学院C语言程序设计大作业:餐厅管理系统
- 电脑内存介绍(精心整理)
- 产品思维包括哪些思维模型
- 前端读取时间传入后端时间减少八小时解决方案
- 线性回归之核心概念讲解
- The code of method _jspService(HttpServletRequest, HttpServletResponse) is exceeding the 65535 bytes