如何处理消息模式和doevents的矛盾!

Question

对于一个消息模式,msgbox出现之后,并得到当前的焦点,此刻在不能操作除了msgbox之外的任何操作.
doevents 是则可以表示当前事务正在处理的过程中.可以同时操作另外的事务!
   现在问题是,msgbox出现时,我必须要操作另外的事务!
 如何实现!

Answer 1

用这个来弹出对话框就可以.Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongMessageBox me.hWnd, "这是对话框", "提示", 0

Answer 2

MessageBox是MsgBox的很好代替品，可以解决很多Msgbox存在的问题。

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 Long

Answer 4

如果模块中就用Public 声明.
如果在窗口中就用private

Answer 5

Public Function SodickMsgbox(ByVal strContent As String, Optional lngType As Long = 0, Optional strTitle As String = "MsSodick") As Integer
这个凾数好象和你哪个一样啊!