特别采用MessageBoxTimeout函数这个方法，就只是在模块前面声明一次这个API函数就行了，然后你所有用到需要自动关闭的msgbox的地方，都不采用msgbox而是采用MessageBoxTimeout就行了，其实相当的简单方便，你觉得复杂可能是因为函数声明和返回值处理，看起来代码比较长，其实相比msgbox，就只是多了一个api函数声明。
用 MsgBoxEx 这个API 函数可以定义自动关闭时长。
不过好像很麻烦呐，有没有简单点的，不用时间了，只关闭就行。
追答这个已经是极简单了。
用API 吧 复制到窗口里看看效果...
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As LongPrivate Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "Hello World", "title", vbInformation, 0, 3000
End Sub本回答被提问者采纳
vb怎么用代码关掉msgbox打开的窗体
特别采用MessageBoxTimeout函数这个方法,就只是在模块前面声明一次这个API函数就行了,然后你所有用到需要自动关闭的msgbox的地方,都不采用msgbox而是采用MessageBoxTimeout就行了,其实相当的简单方便,你觉得复杂可能是因为函数声明和返回值处理,看起来代码比较长,其实相比msgbox,就只是多了一个api函数声明。 x11xuu | 发...
vb怎么用代码关掉msgbox打开的窗体
特别采用MessageBoxTimeout函数这个方法，就只是在模块前面声明一次这个API函数就行了，然后你所有用到需要自动关闭的msgbox的地方，都不采用msgbox而是采用MessageBoxTimeout就行了，其实相当的简单方便，你觉得复杂可能是因为函数声明和返回值处理，看起来代码比较长，其实相比msgbox，就只是多了一个api函数声明。
vb怎么定义一个msgbox里按钮用来关闭弹出的对话框
me.close()
VB中关闭窗体
或者添加一button按钮，把其属性cancel改为true，运行按esc就退出了
VB 窗口的关闭按键
在窗体的QueryUnload事件中写代码，如果要退出，让Cancel=1 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim int_Exit As Integer int_Exit = MsgBox("您确认要退出？", vbYesNo, "信息提示")If int_Exit = vbNo ...
VB中关闭窗口的命令是什么
MsgBox(Msg, vbYesNo) ' 获得用户响应。If Answer = vbYes Then ' 测试应答。Show ' 如果回答 Yes，则显示窗体。Else Load Form1 ' 如果回答 No，仅加载窗体。Msg = "Form1将现在加载。选择确定以显示它。"MsgBox Msg ' 显示信息。Show ' 显示窗体。End If End Sub ...
vb 关于关闭窗体
那就在Form_QueryUnload或Form_Unload函数里加入强制保存功能。或者用以下代码：Private Sub Form_Unload(Cancel As Integer)If MsgBox("是否退出程序？", vbYesNo + vbQuestion, "确认") = vbNo Then Cancel = True End Sub '读取配置文件相关API '读配置文件 Public Declare Function GetPrivate...
求VB关闭窗口提示保存代码!!
Private Sub Form_Unload(Cancel As Integer)a = MsgBox("是否保存",vbYesNo,"提示")If a = vbYes Then '调用保存代码 Else Cancel = 0 End If End Sub 这一句也可以不用 Else Cancel = 0
vb关闭程序问题
代码如下：`Private Sub Form_Unload(Cancel As Integer)`。这里定义了一个私有子过程，它的参数是`Cancel`，一个布尔型变量。紧接着是条件语句，使用了`MsgBox`函数显示一个提示框，询问用户是否确定要关闭窗体。`MsgBox`函数的语法为`MsgBox(message, style, title)`。在这里，`message`参数是“确定...
vb 关于关闭窗体
重新运行 请参考以下代码：'frm1 Private Sub Command1_Click()Form2.Show End Sub 'frm2 Private Sub Command1_Click()Unload Me End Sub Private Sub Form_Load()MsgBox 1 End Sub
