弹出的输入窗口,可以限制出现的时间吗?

jyxuan

sub main
dim msgtext,j
msgtext="请输入内容"
j=inputbox$(msgtext)
msgbox j
end sub

请问我怎么去限制这个输入窗口在30秒后关闭？可以设置吗？或者有别的什么函数可以实现。

gabriel

弹出的输入窗口可以限制出现的时间
sub main
dim msgtext,j
msgtext="请输入内容"
delayfor(3000)
j=inputbox$(msgtext)
msgbox j
end sub
不知道楼主后面的黑体字到底是想问什么

司空公子

If the user presses Enter, or selects the OK button, InputBox returns the text contained in the input box. If the user selects Cancel, the InputBox function returns a null string ("").
所以你总得按键的，不可能说的让它过多长时间就自动关掉的

jyxuan

我的意思是说，如果在30秒中内没有输入内容的话，那么inputbox窗口自动关闭或者默认为点击取消了，然后它可以继续向下运行.就可以了

司空公子

这个你可以在代码里加判断嘛，过了那个时间，就点击取消好了

jyxuan

司空兄可以做个实例吗?我在在后边加的判断，但是脚本根本就不向下跑.麻烦你了