安思尔手套是哪个国家:使用messageboxtimeout api函数实现自动关闭的msgbox
来源:百度文库 编辑:偶看新闻 时间:2024/04/29 23:48:10
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 Long
Private Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "Hello World", "Tips", vbInformation, 0, 3000
End Sub