msgbox框出来以后,如果一定时间内没有人点确定,那怎么让这个框消失,使程序自动运行?

http://community.csdn.net/Expert/topic/4067/4067593.xml?temp=.8975794

用Wscript Object
dim ws as Object
Set ws = CreateObject("Wscript.Shell")
ws.Popup "串口未打开", 1, "提示"

也可FindWindow找到Msgbox,findwindowEX找到Button最后对按钮SendMessage   BM_CLICK
——————————————————————————————————————

定时关闭的MessageBox.(该API不支持Win2000)
 
Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As Long, _
    ByVal lpText As String, _
    ByVal lpCaption As String, _
    ByVal uType As Long, _
    ByVal wlange As Long, _
    ByVal dwTimeout As Long) As Long
————————————————————————————————————————

阅读更多
个人分类: VB
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭