Countdown in object anzeigen

  • VB.NET
  • .NET 4.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Countdown in object anzeigen

    Hallo Leute,
    kurze aber für mich nicht geklärte Frage:

    Ich möchte mir mit diesem Code eine msgbox schreiben:

    VB.NET-Quellcode

    1. Function msgboxeigen(ByVal Nr As String, ByVal x As Integer)
    2. Dim objshell As Object
    3. objshell = CreateObject("wscript.shell")
    4. objshell.popup(Nr & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Schließt automatisch in" & x & " Sekunden", x, "Hinweis- schließt automatisch")
    5. objshell = Nothing
    6. Return 0
    7. End Function


    Klappt soweit auch ganz gut. "x" steht hier für die Zeit, die die msgbox angezeigt werden soll.
    Ich habe das ganze in einem Modul um es immer verwenden zu können. Gibt es eine Möglichkeit auf diese Weise den Countdown auf der objshell anzuzeigen?

    So wie es jetzt ist wird natürlich nur die Ausgangszeit angegeben.
    Kann ja in einem Modul schlecht mit einem Timer arbeiten. Jemand eine Idee?

    LG
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~
    @razzzer530i Mach Dir einen eigenen Dialog, in dem kannst Du auch einen Timer unterbringen.
    Um den Text einer angezeigten MessageBox zu ändern, musst Du sie fernsteuern, gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    VB-Fragen über PN / Konversation werden ignoriert!