源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 模块/函数/VBA/API/系统 > API/COM/系统相关
API/COM/系统相关

计时自动关闭Msgbox对话框

  • 更新时间2015-01-08 15:13:40
  • 文件下载 点击下载
  • 文件类型rar
  • 文件版本Access2003
  • 简要说明计时3秒自动关闭Msgbox对话框

详细描述

 msgbox对话框可以作提示作用，也可以输出结果。
 这里使用一个API函数，计时3秒自动关闭Msgbox对话框，如果大家有什么好的方法也可以分享讨论

  1.  
  2. Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
  3.  
  4. Private Sub Command0_Click()
  5.     MessageBoxTimeout Me.hwnd, "3秒后关闭!", "Office-cn", vbInformation, 0, 3000
  6. End Sub
复制代码

access数据库

发布人:zstmtony  
分享到：
点击次数：  更新时间：2015-01-08 15:13:40  【打印此页】  【关闭】
上一条：Access几种常用的组合框筛选的方法(精)  下一条：Access子窗体记录分页显示

相关下载

热门下载

热门产品