AW: msgbox oder andere Meldung
18.04.2015 10:49:42
Nepumuk
Hallo,
ein Beispiel:
Option Explicit
Private Declare PtrSafe Function MessageBoxA Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long
Private Const MB_ABORTRETRYIGNORE = &H2&
Private Const MB_APPLMODAL = &H0&
Private Const MB_CANCELTRYCONTINUE = &H6&
Private Const MB_COMPOSITE = &H2
Private Const MB_DEFAULT_DESKTOP_ONLY = &H20000
Private Const MB_DEFBUTTON1 = &H0&
Private Const MB_DEFBUTTON2 = &H100&
Private Const MB_DEFBUTTON3 = &H200&
Private Const MB_DEFBUTTON4 = &H300&
Private Const MB_DEFMASK = &HF00&
Private Const MB_ERR_INVALID_CHARS = &H8
Private Const MB_FUNC = &H4000
Private Const MB_FUNC_STR = "mb"
Private Const MB_HELP = &H4000&
Private Const MB_ICONERROR = &H10&
Private Const MB_ICONEXCLAMATION = &H30&
Private Const MB_ICONINFORMATION = &H40&
Private Const MB_ICONMASK = &HF0&
Private Const MB_ICONQUESTION = &H20&
Private Const MB_ICONSTOP = &H10&
Private Const MB_MISCMASK = &HC000&
Private Const MB_MODEMASK = &H3000&
Private Const MB_NOFOCUS = &H8000&
Private Const MB_OK = &H0&
Private Const MB_OKCANCEL = &H1&
Private Const MB_PRECOMPOSED = &H1
Private Const MB_RETRYCANCEL = &H5&
Private Const MB_RIGHT = &H80000
Private Const MB_RTLREADING = &H100000
Private Const MB_SERVICE_NOTIFICATION = &H40000
Private Const MB_SERVICE_NOTIFICATION_NT3X = &H40000
Private Const MB_SETFOREGROUND = &H10000
Private Const MB_SYSTEMMODAL = &H1000&
Private Const MB_TASKMODAL = &H2000&
Private Const MB_TOPMOST = &H40000
Private Const MB_TYPEMASK = &HF&
Private Const MB_USEGLYPHCHARS = &H4
Private Const MB_USERICON = &H80&
Private Const MB_YESNO = &H4&
Private Const MB_YESNOCANCEL = &H3&
Public Sub Beispiel()
Call MessageBoxA(Application.hwnd, "Bitte das Fenster schließen.", _
"Hinweis", MB_ICONEXCLAMATION Or MB_TOPMOST)
End Sub
Gruß
Nepumuk