现在的位置: 首页 > 综合 > 正文

定时自动关闭的消息对话框(效果同msgbox)

2013年10月13日 ⁄ 综合 ⁄ 共 166字 ⁄ 字号 评论关闭
Private Sub Command1_Click()
Set ws = CreateObject("WScript.shell")
button 
= ws.popup("确认删除"3"现在时间(本窗体3秒自动关闭)", vbYesNo + vbDefaultButton2) '3是秒数
Print button
End Sub

抱歉!评论已关闭.