Hallo Liebes Forum
Ich würde gerne eine Frist ( von bis ) Grafisch darstellen.
Meine Idee ist, ein Progressbar als Optischer darsteller zu nutzen, in dem sollte angezeigt werden, wenn ein gewisser Zeitraum ( Monate / in Wochen oder Tagesschritten ) abgelaufen ist.
Ich habe schon Beispiele gemacht die Funktionieren mit Timer usw. aber halt in Minuten schritten und wenn ich mein Programm schließe und wieder öffne beginnt alles von vorne.
Ich komme nur nicht dahinter, wie ich es realisieren kann, das z.B. von einem Datum zum anderen Datum in Wochen schritten der Progressbar Balken weniger wird.
Ich könnte mir vorstellen das es so in etwa funktionierten könnte.
Anfangstdatum = 100
Enddatum = 0
und jetzt sollte nach jeder verstrichenen Woche der Wert um 10 veringert werden.
Wenn 0 erreicht, dann eine Meldung.
So etwas habe ich schon realisiert aber halt nur mit Timer im Minuten takt und alles beginnt wieder von vorn wenn ich das Programm neu starte.
Besten Dank
Gebhard
Ich würde gerne eine Frist ( von bis ) Grafisch darstellen.
Meine Idee ist, ein Progressbar als Optischer darsteller zu nutzen, in dem sollte angezeigt werden, wenn ein gewisser Zeitraum ( Monate / in Wochen oder Tagesschritten ) abgelaufen ist.
Ich habe schon Beispiele gemacht die Funktionieren mit Timer usw. aber halt in Minuten schritten und wenn ich mein Programm schließe und wieder öffne beginnt alles von vorne.
Ich komme nur nicht dahinter, wie ich es realisieren kann, das z.B. von einem Datum zum anderen Datum in Wochen schritten der Progressbar Balken weniger wird.
Ich könnte mir vorstellen das es so in etwa funktionierten könnte.
Anfangstdatum = 100
Enddatum = 0
und jetzt sollte nach jeder verstrichenen Woche der Wert um 10 veringert werden.
Wenn 0 erreicht, dann eine Meldung.
So etwas habe ich schon realisiert aber halt nur mit Timer im Minuten takt und alles beginnt wieder von vorn wenn ich das Programm neu starte.
VB.NET-Quellcode
- Public Class FrmLoad
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- LblReportProgress.Text = PBLoading1.Value & "%"
- PBLoading1.Value += 1
- If PBLoading1.Value > 25 Then
- LblStatusText.Text = "25"
- End If
- If PBLoading1.Value > 45 Then
- LblStatusText.Text = "45"
- End If
- If PBLoading1.Value > 65 Then
- LblStatusText.Text = "65"
- End If
- If PBLoading1.Value > 90 Then
- LblStatusText.Text = "90"
- End If
- If PBLoading1.Value = 100 Then
- LblStatusText.Text = "100"
- MsgBox("Enddatum erreicht")
- Timer1.Dispose()
- End If
- End Sub
- End Class
Besten Dank
Gebhard