请教一个关于msgbox()的问题

Question

在应用中需要用到msgbox()，但是我想在不响应msgbox()的过程中，依旧可以对Form中的内容更新，怎么办？
例如:单击command1弹出 msgbox对话框 ，我不响应对话框，这时如何更改Form上面lable1.caption 
msgbox 还是模式对话框状态
谢谢！

Answer 1

'要用到messagebox
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongPrivate Sub Command1_Click()
MessageBox Me.hwnd, "aaaaaaaaaa", "aa", 0
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Str(Now)
End Sub

Answer 2

不用msgbox ,自己新建一个窗体。

Answer 3

如此说来，msgbox（）是不能用了？

Answer 4

对,用它的话,在弹出对话框的时候,你的程序都不能运行.用MessageBox的话,不影响其它过程

Answer 5

先更改 Form 上面的 lable1.caption, 再弹出对话框。

Answer 6

其实用 Timer 的话，MsgBox 也可以。只是设计时不支持，编译成 .exe 后就可以了：Private Sub Command1_Click()
MsgBox "aaaaaaaaaaaaaaa"
'MessageBox Me.hwnd, "aaaaaaaaaa", "aa", 0
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Str(Now)
End Sub注意：当常数设定为 VbAbortRetryIgnore 或 VbYesNo 时无效！