Hallo

Ich will dass meine Windows Form2 sich automatisch nach 5 Sekunden schliesst, habe schon 10000 von Codes versucht.
Ich dachte eigentlich mit dem Code hier musste es gehen:

Quellcode

1. Using dlg As New Form2
2. Me.Hide()
3. dlg.ShowDialog()("Wait 5 seconds", 5, "Title")

Geht es aber nicht ?(

Kann mich jemand berichtigen?


Mfg
Sinnner

Mach einen Timer in deine Form rein, stell den Intervall auf 5.000 sek und schreib dann rein, dass sich die Form closen soll.

---

Außerdem habe ich dich gerade eben schon darauf hingewiesen, dass du keine solche Schriftgröße verwenden sollst!

Eventuell wäre hier sogar mal Thread.sleep(5000) angebracht. Unter Umständen in einen Backgroundworker eingepackt?
Soll das einfach nur ein Hinweis werden?

BjöNi schrieb:

Mach einen Timer in deine Form rein, stell den Intervall auf 5.000 sek und schreib dann rein, dass sich die Form closen soll.

Geht nicht wie wars mit einen Code?

poste mal deinen ganzen code.. vielleicht finden wir den fehler.

FloFuchs schrieb:

poste mal deinen ganzen code.. vielleicht finden wir den fehler.

VB.NET-Quellcode

1. Public Class Form1
3. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
4. ProgressBar1.Increment(1)
5. ProgressBar1.Maximum = 150
6. If ProgressBar1.Value = 149 Then
7. ProgressBar1.Value = 150
8. Timer1.Stop()
9. MsgBox("Updates has been succesfully installed !", vbOKOnly + (vbInformation))
10. Using dlg As New Form2
11. Me.Hide()
12. dlg.ShowDialog()
13. Me.Hide()
14. End Using
15. End If
16. End Sub
18. Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
20. End Sub
22. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
23. If MsgBox("New Update is available. Do you want to download?", vbYesNo + vbQuestion) = vbYes Then
24. Timer1.Start()
25. End If

so und was PAssiert nicht? Und sollte passieren? Wo zum beispiel erhöst du denn deine Progressbar?
Warum versteckst du zweimal dein MainForm?
Btw Option Strict ON!!
Zeile 9+23?? wie solll das funktionieren?

Sinner schrieb:

MsgBox("Updates has been succesfully installed !", vbOKOnly + (vbInformation))

Sinner schrieb:

If MsgBox("New Update is available. Do you want to download?", vbYesNo + vbQuestion) = vbYes

Du musst dich schon für einen Style entscheiden.

na wenn der timer 5 mal tickt wird die progressbar den wert 5 nie überschreiten

mfg OnkelR

Nunja... ticken wird er ja öfter, der timer wird ja erst bei 150 gestoppt. Achja... ne Msgbox hat in der Rückgabe übrigends im QuestionStyle das Ergebn is vbOK und nicht vbyes... dh Dein update wird eh nie gestartet.

richtig.
dennoch würde ich das form-schließen nicht in abhängigkeit des Progressbar-values machen.
die progressbar prozentual gefüllt, lässt sich doch schön ausrechnen, wenn man die ticks vorher schon kennt.

mfg OnkelR

Ich würde das ganze auch nicht so machen. Wie du weiter oben lesen kannst. (Btw. den nutzer sinnlos 5 Sekunden warten lassen ist soweiso...) Generell finde ich sowieso, dass sein Code nicht zur Fragestellung in Post #1 passt. Aber syntaktische Verbesserung von dem was er da treibt ist immerhin schon mal ein Weg
Also:

Wenn eine Form sich selbst schließen soll, mach das mit eienem nichtmodalen Dialog (dlg.Show()), und das Schließen organisiert die Form allein.
Timer.Start() in die Form_Load, Timer_Stop() und Me.Close in die Timer_Tick() der 2. Form.

Das Update sollte ein Event feuern. Danach wird die Form geschlossen.
Wie soll das denn funktionieren.
Form 2 bleibt 5 Sekunden auf und wird dann geschlossen.
Was ist wenn das Update mal langsamer ist ?

Überdenke das ganze Konzept.

Bernd