扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
自动关闭 Msgbox对话框：
Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Private Sub 测试自动关闭对话框()
MsgBoxEx 0, "显示内容：2秒后自动关闭", "标题", vbYesNo + vbInformation, 1, 2000
End Su错误捕捉：
例子一：
On Error Resume Next '如果遇到错误，不管错误，继续往下执行，但如果嵌套了其他错误处理语句，这些错误处理语句还是会按照自己规则运行
语句xxxx
On Error GoTo 0 ’结束错误捕捉例子二：
Sub 例子过程()
On Error GoTo Err_Handle '之后语句出错则跳转至 Err_Handle 标签处
处理语句1 '若出错，则跳转到 Err_Handle
On Error GoTo 0 '跳出错误捕捉，之后语句若出错,自动弹出出错框
处理语句2 '若出错则弹出错误,可调试或结束
Exit Sub '如果没有这个退出过程语句，会一直执行下去
Err_Handle:
MsgBox ("不存在该数字")
End Sub另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网