安思尔手套是哪个国家:使用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