title image


Smiley Re: und wie kann ich abbrechen, bzw ignorieren ausprogrammieren?
Hallo nochmal





hier mal mehr Infos..







      

Sub MSGBOX_autom()

Dim WsShell, intText As Integer

Set WsShell = CreateObject("WScript.Shell")

intText = WsShell.Popup("Hinweis wird automatisch geschlossen!!!", 10, "Huhu ...", 1 + 48)

Select Case intText

    Case 1

        MsgBox "Ok wurde gedrückt"

    Case 2

        MsgBox "Abbrechen wurde gedrückt"

    Case -1

        MsgBox "Es wurde kein Button gedrückt"

End Select



' Die 10 in der letzten Zeile gibt die Dauer der Öffnung an.

' Die 1 = OK und Abbrechen

' und 48 Warnungssymbole !

End Sub

'

'hier weitere Info

'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/f482c739-3cf9-4139-a6af-3bde299b8009.asp 








 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: