有选择的自动关闭msgbox-jia
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


有选择的自动关闭msgbox

发表时间:2013/1/24 13:46:16 评论(0) 浏览(11664)  评论 | 加入收藏 | 复制
   
摘 要:有选择的自动关闭msgbox
正 文:

有选择的自动关闭msgbox

  

Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long


Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
 ret = MsgBoxEx(0, "请选择", "两秒后自动关闭", vbYesNo + vbInformation, 1, 2000)
 If ret = 32000 Then '定时时间毫秒
Debug.Print "超时关闭"
   DoCmd.Quit '退出本窗口时不写
   ElseIf ret = vbYes Then
   Debug.Print "选择Yes"
    DoCmd.Quit '退出本窗口时不写
    ElseIf ret = vbNo Then
   Debug.Print "选择No"
   Cancel = 1 '不退出
    End If
End Sub



Access软件网交流QQ群(群号:198465573)
 
 相关文章
自定义自动关闭Msgbox窗体  【咱家是猫  2007/11/30】
【菜鸟入门】消息盒MsgBox函数详解示例  【麥田  2010/11/17】
【菜鸟入门】Access消息盒MsgBox中换行示例;Msgbox...  【麥田  2010/11/20】
【菜鸟入门】消息盒MsgBox默认光标停在指定提示按扭上示例  【麥田  2010/11/23】
定时关闭MsgBox-未公开的API  【收藏文章  2012/4/3】
【Access入门】Access定位消息盒MsgBox默认坐标位置...  【麥田  2012/7/6】
1秒后自动关闭msgbox消息框示例  【风行  2012/12/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

jia

文章分类

文章存档

友情链接