Moin!
Ich möchte gerne dass man eine Zeit einspeichert.
Und sobald der Zeitpunkt erreicht ist, soll sich ein neues Fenster öffnen.
Aus irgendeinem Grund, denn ich leider noch nicht verstehe.
Öffnet sich das gleiche Fenster gleich zweimal.
Das bedeute wenn ich das neue Fenster schließe, öffnet es sich sofort nochmal!
Ich habe im Anhang mein Projekt, außerdem den Code noch eingefügt.
Freue mich auf eure Unterstützung!
BIG THX
edit:
Datei anhang gelöscht!
Ich möchte gerne dass man eine Zeit einspeichert.
Und sobald der Zeitpunkt erreicht ist, soll sich ein neues Fenster öffnen.
Aus irgendeinem Grund, denn ich leider noch nicht verstehe.
Öffnet sich das gleiche Fenster gleich zweimal.
Das bedeute wenn ich das neue Fenster schließe, öffnet es sich sofort nochmal!
Ich habe im Anhang mein Projekt, außerdem den Code noch eingefügt.
Freue mich auf eure Unterstützung!
BIG THX
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Dim guthaben, guthaben_abziehen As Decimal
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'Me.Timer1.Interval = 1000
- guthaben = CDec(0.8741D)
- guthaben_abziehen = CDec(0.0001)
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- guthaben -= guthaben_abziehen
- Dim RestZeit As String = (guthaben * 60).ToString("0#.#0")
- Me.lblZeitÜbrig.Text = RestZeit
- ' Warnen bei wenig Zeit!
- If RestZeit = Me.TextBox1.Text Or
- RestZeit = Me.TextBox2.Text Or
- RestZeit = Me.TextBox3.Text Then
- Me.Timer1.Enabled = False
- Dim Form2 As New Form2
- Form2.ShowDialog() '<--- BUG (Fenster wird zweimal geöffnet!)
- Me.Timer1.Enabled = True
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Me.Timer1.Enabled = True
- Me.Button1.Enabled = False
- End Sub
- End Class
edit:
Datei anhang gelöscht!
Visual Basic.NET
MS-SQL
MS-SQL
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cheffboss“ ()