VB自动关闭提示

2022-7-16 乱云飞

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 Command1_Click()

MsgBoxEx 0, "保存成功", "2秒后自动关闭", vbInformation, 1, 1500

End Sub

发表评论：

VirtualCamera：在录像机中虚拟一个通道显示电脑桌面、视频文件、USB摄像头~

洛阳翼展电脑