sleep 是一个非常简单的api语句,作用是"延时" DoEvents控件权移交给操作系统

标签：sleep延时   窗口偏移   doevent控件权交给操作系统   

public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

私有API函数 作用是延时，当程序某段代码循环运行的时候，为了更好的看到程序运行的效果

使用该函数

语法：Sleep 长整型数值

实现一个窗口左右抖动的效果

Private Sub CmdWindwos2_Click()
Dim i As Integer
Do While i <= 6
Me.Left = Me.Left - 300: Sleep 50: DoEvents    ‘实现窗口向左偏移300
Me.Left = Me.Left + 300: Sleep 50: DoEvents  ‘实现窗口向右偏移300
i = i + 1
Loop
End Sub

本文出自 “卢伟青的博客” 博客，请务必保留此出处http://ycluwq.blog.51cto.com/7588370/1691151

sleep 是一个非常简单的api语句,作用是"延时" DoEvents控件权移交给操作系统

标签：sleep延时   窗口偏移   doevent控件权交给操作系统   

原文地址：http://ycluwq.blog.51cto.com/7588370/1691151