怎样使msgbox方法弹出的警告窗体位于当前屏幕最前方？

Question

谢谢！

Answer 1

Option ExplicitPrivate 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 = 32000Const 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 = 5Const 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 = &H80Const MB_DEFBUTTON1 = &H0
Const MB_DEFBUTTON2 = &H100
Const MB_DEFBUTTON3 = &H200
Const MB_DEFBUTTON4 = &H300Const MB_APPLMODAL = &H0
Const MB_SYSTEMMODAL = &H1000
Const MB_TASKMODAL = &H2000
Const MB_HELP = &H4000Const MB_SETFOREGROUND = &H10000
Const MB_DEFAULT_DESKTOP_ONLY = &H20000
Const MB_SERVICE_NOTIFICATION_NT3X = &H40000
Const MB_TOPMOST = &H40000
Const MB_RIGHT = &H80000Const MB_RTLREADING = &H100000
Const MB_SERVICE_NOTIFICATION = &H200000
Private Sub Command1_Click()MessageBox Me.hwnd, "aaaaaaaaaa", App.Title, MB_ICONEXCLAMATION + MB_TOPMOSTEnd Sub

Answer 2

msgbox "MyTips", 262144 or vbInformation ,"Tips"
将msgbox 原先的样式参数和 262144 作"or"运算即可

Answer 3

msgbox "MyTips", 262144 or vbInformation ,"Tips""MyTips"－－－对话框标题吧"Tips"－－－鼠标移动到对话框才显示的提示吧262144 or vbInformation －－－这个参数啥意思？

Answer 4

我上面不是已经说了吗?
将msgbox 原先的样式参数和 262144 作"or"运算即可样式指,Msgbox() 的图标和按钮.

Answer 5

MsgBox "TEST", vbSystemModal
就可以了