Msgbox automatisch schliessen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub MsgZeit() ' Blendet eine Msgbox nach 10 Sekunden automatisch wieder aus ' von K.Rola ' kein Verweis notwendig Const bytZeit As Byte = 10 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...", vbOKCancel + vbQuestion) Set objWSH = Nothing End Sub

Hallo Weiss,
ich bin mir zwar nicht sicher, aber da eine MsgBox ja gezielt aufgerufen wird, um dem Anwender etwas mitzuteilen, kann ich mir nicht vorstellen, dass sie sich auf einfache Weise automatisch schließen lässt. Das würde ihrem Sinn einfach wiedersprechen.
Deshalb folgender Vorschlag:
Ich bin oft damit beschäftigt Daten von irgendwelchen Webseiten auszulesen. Da ist man immer abhängig vom Verhalten des Internet Explorers und vor allem, vom Verhalten des Servers, den man über eine URL anspricht. Es passieren also Fehler, die sich schwer vorher sehen lassen. Für solche Fälle verwende ich eine Variable namens debugModus vom Typ Boolean, um mir durch Zähler in bestimmten Zellen während der Laufzeit anzeigen zu lassen, ob meine Fehlerbehandlung für Fehler, die ich annehme, greift.
Das gleiche kannst Du auch verwenden. Ob das aufwändig zu integrieren ist, hängt von der größe Deines Codes ab. Definiere eine Varibale updateModus vom Typ Boolean. Die initialisierst Du im Standard auf False. Dann "klammerst" Du alle betreffenden MsgBoxes in ein If-Statement:


If updateModus = flase then
MsgBox ...
End If

Wenn Du den Wert der Variable auf True setzt, werden die MsgBoxes anschließend bei Deinen Updates ignoriert.
Viele Grüße,
Zwenn

…Pgm von Karola, die hier leider schon seit vielen Jahren nicht mehr in Erscheinung getreten ist, durchaus aus, Zwenn,
aber es verwendet eben nicht eine klassische MsgBox, womit deine Vorstellung schon richtig war, denn das dürfte, falls überhpt möglich, wesentlich aufwendiger sein.
Ansonsten würde man so etwas ggf leichter mit einem UF realisieren können. Mit simplen Textfeldern hatte ich so etwas schon mal gemacht, man muss nur eine EndlosSchleife laufen lassen (natürlich mit DoEvents, damit auf NutzerAktionen reagiert wdn kann), die auf Button-Veränderungen reagiert. Dann muss man nur noch die Button-Form wechseln, wenn drauf geklickt wird. In der Schleife wird dann abgefragt, wie diese aussieht, zB erhaben oder eingetieft (bei Klick). Falls nicht geklickt wird, wird nach einer bestimmten Zeit entweder die Button-Form automatisch geändert (Komfortlösung) oder die Schleife einfach abgebrochen und danach das Textfeld wieder ausgeblendet.
Der Vorteil ist, dass man wie bei einem UF beliebige Buttons mit beliebigen Texten verwenden kann. Auch sind beliebige Farben und Schriftarten möglich. Und was eine evtl Animation ala PPt betrifft, dafür muss man halt verschiedene Zwischenstufen zeichnen und die nacheinander per Pgm sicht- bzw wieder unsichtbar wdn lassen. So könnte man die Anzeige bspw aus- und wieder einrollen lassen. Geht alles, man muss es nur wollen und den richtigen Weg finden.
Das Pgm dafür aus einem alten Projekt zu isolieren, fehlt mir leider jetzt die Zeit. Aber evtl schaffst du so etwas auch allein, falls du das wirklich willst… ;-]
Luc :-?

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Msgbox automatisch schliessen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread