怎样使msgbox方法弹出的警告窗体位于当前屏幕最前方？
谢谢！
[解决办法]
Option Explicit
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 Long
Const IDOK = 1
Const IDCANCEL = 2
Const IDABORT = 3
Const IDRETRY = 4
Const IDTRYAGAIN = 4
Const IDCONTINUE = 5
Const IDIGNORE = 5
Const IDYES = 6
Const IDNO = 7
Const IDCLOSE = 8,
Const IDHELP = 9,
Const IDTRYAGAIN = 10,
Const IDCONTINUE = 11,
Const IDTIMEOUT = 32000
Const MB_OK = 0
Const MB_OKCANCEL = 1
Const MB_ABORTRETRYIGNORE = 2
Const MB_CANCELTRYCONTINUE = 2
Const MB_YESNOCANCEL = 3
Const MB_YESNO = 4
Const MB_RETRYCANCEL = 5
Const MB_ICONHAND = &H10
Const MB_ICONERROR = MB_ICONHAND
Const MB_ICONSTOP = MB_ICONHAND
Const MB_ICONQUESTION = &H20
Const MB_ICONEXCLAMATION = &H30
Const MB_ICONWARNING = MB_ICONEXCLAMATION
Const MB_ICONASTERISK = &H40
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_USERICON = &H80
Const MB_DEFBUTTON1 = &H0
Const MB_DEFBUTTON2 = &H100
Const MB_DEFBUTTON3 = &H200
Const MB_DEFBUTTON4 = &H300
Const MB_APPLMODAL = &H0
Const MB_SYSTEMMODAL = &H1000
Const MB_TASKMODAL = &H2000
Const MB_HELP = &H4000
Const MB_SETFOREGROUND = &H10000
Const MB_DEFAULT_DESKTOP_ONLY = &H20000
Const MB_SERVICE_NOTIFICATION_NT3X = &H40000
Const MB_TOPMOST = &H40000
Const MB_RIGHT = &H80000
Const MB_RTLREADING = &H100000
Const MB_SERVICE_NOTIFICATION = &H200000
Private Sub Command1_Click()
MessageBox Me.hwnd, "aaaaaaaaaa ", App.Title, MB_ICONEXCLAMATION + MB_TOPMOST
End Sub
[解决办法]
msgbox "MyTips ", 262144 or vbInformation , "Tips "
将msgbox 原先的样式参数和 262144 作 "or "运算即可
[解决办法]
MsgBox "TEST ", vbSystemModal
就可以了
