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

答案:3 悬赏:10 手机版

解决时间 2021-02-25 19:26

提问者网友：兔牙战士
2021-02-25 11:46

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

最佳答案

五星知识达人网友：猎心人
2021-02-25 12:04

如果你要求不高，简单点加入一下代码，并在窗体中添加【确定】，【默认】按钮，及计时器和提示框即可
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

全部回答

1楼网友：孤独的牧羊人
2021-02-25 12:43

自制一个MSGBOX对话框，里面加一个定时器，而不使用系统的MSGBOX。再看看别人怎么说的。

2楼网友：动情书生
2021-02-25 12:37

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息