Question

VB中有弹出带时间的对话框,时间到选择默认键?

我想弹出一个对话框，里面有默认的时间（比如5S），当5S过后，选择点击默认键。
比如，系统弹出了MSGBOX（）函数，如果在5S之后没有人点击确定，自动点击确定。不知道怎么实现。

Answer 1

你这样做似乎没什么意义啊。本身弹出系统消息框就是要使用者进行选择的，使用者没做选择你就自动关闭了，那还不如不用msgbox。
如果你非要这样做单纯VB好像实现不了，可以借助API来做。给你个思路你试试吧，用API获取MSGBOX的窗口句柄，用timer控件设置计时，到时间对MSGBOX窗口关闭，这种方法很麻烦。
我建议你自己用VB建立一个窗体，模样类似MSGBOX，在窗体内添加确定和取消按钮，然后和用timer控件结合控制这个窗体。

Answer 2

如果你要求不高，简单点加入一下代码，并在窗体中添加【确定】，【默认】按钮，及计时器和提示框即可
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
Private Sub Timer1_Timer()
Command1.SetFocus
SendKeys vbCr
End Sub

Answer 3

自制一个MSGBOX对话框，里面加一个定时器，而不使用系统的MSGBOX。

追问

给一个思路，如何自制？（我用VBS）

追答

使用VB或其他语言编一个对话框，可以编成一个控件或一个DLL，调用时像其他控件或DLL一样调用。