请教关于MAGBOX

Question

在用msgbox输出信息时,应用程序一直被挂起，直到用户对消息框作出响应才继续工作。
但我现在想在用msgbox输出消息后,应用程序不被挂起,也就是不需要用户对消息框作出响应,该如何搞顶

Answer 1

那就自己设计一个消息窗口，比如frmMsg,显示：frmMsg.show 0

Answer 2

Dim frm As New Form1
dim i as byte
for i=0 to 5
;如何在这里生成5个窗体
next i
End Sub

Answer 3

Dim frm(4) As New Form1
dim i as byte
for i=0 to 5
    frm(i).show
next i

Answer 4

用API：MessageBoxPrivate Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Answer 5

第一个参数设成0就行了
第二个参数是消息文本
第三个参数是标题栏文本
最后的参数如下：
Const MB_DEFBUTTON1 = &H0&
Const MB_DEFBUTTON2 = &H100&
Const MB_DEFBUTTON3 = &H200&
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MB_ICONHAND = &H10&
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_ICONQUESTION = &H20&
Const MB_ICONSTOP = MB_ICONHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&

Answer 6

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long