Vista Taskleistenvorschau - Progressbar aktualisieren

12/06/2008 - 23:01 von Hans Hofer | Report spam
Hi,
habe eine Form mit Progressbar. Solange die Form am Desktop
sichtbar ist, wird auch die Vorschau in der Taskleiste schön aktuali-
siert. Wird die Form minimiert, so zeigt die Vorschau in der Task-
leiste nicht mehr die aktualisierte Progressbar an. Erst wieder wenn
ich die Form auf den Desktop bringe. PS: Ich starte die Form minimiert
in der Taskleiste und möchte, wenn ich mit der Maus auf die Taskleiste
fahre, den aktuellen Fortschrittsbalken sehen, ohne das Fenster auf
den Dsktop zu bringen/maximieren.
HH
 

Lesen sie die antworten

#1 Peter Götz
13/06/2008 - 11:59 | Warnen spam
Hallo Hans,

Hi,
habe eine Form mit Progressbar. Solange die Form
am Desktop sichtbar ist, wird auch die Vorschau in
der Taskleiste schön aktualisiert.



Welche "Vorschau"?

Wird die Form minimiert, so zeigt die Vorschau in der
Taskleiste nicht mehr die aktualisierte Progressbar an.



Was hat die Progressbar mit der Anzeige in der Taskleiste
zu tun. Ohne weitere Vorkehrungen wird in der Taskleiste
der Titeltext der Form angezeigt.

Erst wieder wenn ich die Form auf den Desktop bringe.
PS: Ich starte die Form minimiert in der Taskleiste und
möchte, wenn ich mit der Maus auf die Taskleiste
fahre, den aktuellen Fortschrittsbalken sehen, ohne
das Fenster auf den Dsktop zu bringen/maximieren.



Meinst Du vielleicht so etwas wie im nachfolgenden
Beispiel?

Public Class Form1
Private WithEvents PBar As ProgressBar
Private WithEvents Tmr As Timer

Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load

PBar = New ProgressBar
With PBar
.Dock = DockStyle.Bottom
.Maximum = 100
.Minimum = 0
End With
Me.Controls.Add(PBar)

Tmr = New Timer
Tmr.Interval = 1000
Tmr.Start()
End Sub

Private Sub Tmr_Tick _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Tmr.Tick

If PBar.Value < PBar.Maximum Then
PBar.Increment(5)
Else
PBar.Value = 0
End If

If Me.WindowState = _
FormWindowState.Minimized Then
Me.Text = Me.Name & _
" [" & PBar.Value.ToString & "]"
Else
Me.Text = Me.Name
End If
End Sub
End Class

Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)

Ähnliche fragen