请问MsgBox以后,我程序显示时间就停止了怎么办?模式对话框?

Question

我想有个提示信息,但是又不想我的程序被挂起,怎么办?

Answer 1

再加一个FORM，把信息写在里面，在需要的时候设定好信息并FORM.SHOW（不要VBMODAL），这样可以了吧

Answer 2

呵呵，SUBCLASS实现你这个问题是可以啦，不过如果是我不会那么做了，我会哭的，好多代码，不过确实是正解，正点

Answer 3

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 LongPrivate Sub Command1_Click()
MsgBox "information!"
End SubPrivate Sub Command2_Click()
MessageBox Me.hwnd, "information!", "caption", 0
End SubPrivate Sub Timer1_Timer()
Me.Caption = Now()
End Sub
自己看下行不行！

Answer 4

//呵呵，SUBCLASS实现你这个问题是可以啦，不过如果是我不会那么做了，我会哭的，好多代码，不过确实是正解，正点呵呵