kann ich eine MsgBox im Vordergrund stehen lassen ähnlich einer UF mit ShowModal = False?
Falls nicht - kann ich eine MsgBox einen definierten Zeitraum stehen lassen, so daß sie ohne OK-Klick verschwindet?
danke für 'n Tip
Jörg
'Value Button
'0 OK
'1 OK , Cancel
'2 Abort , Ignore, Retry
'3 Yes , No, Cancel
'4 Yes , No
'5 Retry , Cancel
'16 Critical
'32 Question
'48 Exclamation
'64 Information
Sub test()
Dim WshShell As Object
Dim intMSGBOX As Integer
Set WshShell = CreateObject("WScript.Shell")
'Syntax Popup(Text,[Timer in Sekunden],[Titel],[Value Button])
intMSGBOX = WshShell.Popup("Ich verschwinde in 5 Sekunden", 5, "Test MSGB", 4 + 48)
Debug.Print intMSGBOX
End Sub
Gruß Tino' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub MSG_ImVordergrund()
'MsgBox wird vor allen anderen Fenstern angezeigt
MsgBox "Ich bin im Vordergrund!", 4145
End Sub
Sub MSG_TimeOut()
'MsgBox wird vor allen anderen Fenstern angezeigt und verschindet nach angegebener Zeit
Dim objWS As Object, intRet As Integer
Const sngTimeout As Single = 10
Set objWS = CreateObject("WScript.Shell")
objWS.Popup "Ich bin in " & sngTimeout & " Sekunden verschwunden!" & _
Space(10), sngTimeout, "gebe bekannt...", 4145
Set objWS = Nothing
End Sub