title image


Smiley Re: MSGBOX, die sich selbst ausblendet
Wenn du auf aufwändige API- Funktionen verzichten willst, gehts auch so, auch wenn das keine "echte" Msgbox ist:

''Verweis auf Micsosoft Scripting Runtime erforderlich!

Option Explicit

Sub MsgZeit()

Const bytZeit As Byte = 3

Dim objWSH As Object, intMSG As Integer

Set objWSH = CreateObject("WScript.Shell")

intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), bytZeit, "gebe bekannt...")

Set objWSH = Nothing

End Sub

Gruß





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: