Question

VB中如何让InputBox限时10秒内输入，否则对话框自动消失

如题：VB中如何实现让InputBox限时10秒内输入数值，否则对话框自动消失。谢谢

Answer 1

InputBox弹出的对话框是由操作系统提供的，而且其显示方式是模态的，所以VB无法直接控制它。
你可以自己用窗体来模拟一个带输入框的对话框，这样你要怎么控制都行了。
要想定时关闭InputBox也可以实现的，要用到API函数，但是你会觉得得不偿失的，我不建议这么做。

追问

我都不想这样做啊，VB考试题目需要这样做呢，还请各位仁兄帮帮忙

追答

如果这个真的是考试题目，那么我敢肯定出这道题的老师自己也做不出来的

Answer 2

加一个timer 控件。

追问

请给个例子，感激不尽

追答

把那个闹钟样的图标拖到窗口中任意地方，运行时不显示。设置intelval属性为10000。双击钟表图标，输入代码：Text1.Visible = False。

追问

哦，我要的是VB源码，不是控件代码，谢谢

追答

控件代码不是VB源码吗？
输入代码：if inputbox1.text="" then
inputbox1.visible=false
end if

追问

我是想这样实现
Set WSHShell=CreateObject("Wscript.Shell")
intMsg=WSHShell.Popup ("5秒后自动关闭弹窗",5,"Test",vbOKOnly)
但不懂带输入框的InputBox函数运用关闭a=InputBox("","标题")。

追答

您要的和他的实现方法不一样，不能生搬过来。