[VBA] MsgBox mit vbSystemModal kommt nicht in den Vordergrund
Jörg Eisenträger
Hallo,
ich versehe grundsätzlich alle meine Message Boxes mit dem Attribut
vbSystemModal. Allerdings kommen sie nicht immer in den Vordergrund,
sondern nur, wenn die Excel-Application aktiv (im Vordergrund) ist.
Wie kann ich erreichen, dass eine MsgBox eines im Hintergrund laufenden
Makros absolut in den Vordergrund kommt?
Gruß
Jörg
--
LPs auf CD brennen - so geht's: http://www.joergei.de/
E-Mail-Adresse existiert, wird aber nicht gelesen.
Jörg Ostendorp
> ich versehe grundsätzlich alle meine Message Boxes mit dem Attribut
> vbSystemModal. Allerdings kommen sie nicht immer in den Vordergrund,
> sondern nur, wenn die Excel-Application aktiv (im Vordergrund) ist.
>
> Wie kann ich erreichen, dass eine MsgBox eines im Hintergrund laufenden
> Makros absolut in den Vordergrund kommt?
hmm, sollte eigentlich funktionieren, deswegen nennt es sich je *System*-
und nicht applicationmodal... Aber bei mir tut's des auch nicht (immer).
Du könntest auf die Idee kommn die Api-MessageBox zu bemühen,
damit sollte es auf jeden Fall funktionieren:
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
'vgl. bei Bedarf auch MessageBoxEx
Private Const MB_OK = &H0&
Private Const MB_SYSTEMMODAL As Long = &H1000&
Aufruf z.B.:
MessageBox 0&, "DeinText", "DeinTitel", MB_SYSTEMMODAL Or MB_OK '...
Doku zum wType siehe
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/messagebox.asp
(link in eine Zeile)
Den wType könntest Du noch nett in Enums und den Aufruf in eine separaten
Function verpacken...
HTH
Viele Grüße
Jörg Ostendorp
--
Access-FAQ: http://www.donkarl.com
Jörg Eisenträger
Hallo Jörg,
>> Wie kann ich erreichen, dass eine MsgBox eines im Hintergrund laufenden
>> Makros absolut in den Vordergrund kommt?
>
>Du könntest auf die Idee kommn die Api-MessageBox zu bemühen,
>damit sollte es auf jeden Fall funktionieren:
> ...
Oje, schon wieder was neues, von dem ich noch nie gehört habe ...
Aber ich werde es probieren. Und man kann ja nur lernen.
Also Danke.