Progressbar in Statusleiste

Computer: Software & Programmierung Visual Basic
#1

Hallo
will in meiner Statusleiste eine Progressbar einbauen.
Habe nun die Variante mit Style=1 und am Ende Style=0 gewählt, dann sollte links Text stehen rechts die Progressbar laufen. Es geht aber immer nur eins weil die ZOrder 0 einen Fehler erzeugt.
Wer hat einen Code oder kann sagen wo der Fehler ist (aber erst unten lesen!)

Aber das oben beschriebene gefällt mir eh nicht so.

Daher will ich die Progressbar direkt einbauen (Code hierfür habe ich schon).
Problem ist jetzt nur, normal habe ich unten 9 Grundflächen (=GF).
Die Progressbar soll in die Fläche 7 und da laufen.

Während sie läuft soll aber GF 8,9 da bleiben, und links nur eine GF mit Text zB Daten werden aktualisiert stehen (also insg. nur noch 4 GF)

Wenn die Bar fertig ist, verschwindet sie wieder und der alte Status mit 9 GF erscheint.

Kann man das einfach realisierten mit ein paar Zeilen Code???
Sonst müsste ich doch auf die erste Variante zurückgreifen und die Hilfe dahingehend stellen.

Mfg Werner

#2

Hallo

will in meiner Statusleiste eine Progressbar einbauen.
Habe nun die Variante mit Style=1 und am Ende Style=0 gewählt,
dann sollte links Text stehen rechts die Progressbar laufen.
Es geht aber immer nur eins weil die ZOrder 0 einen Fehler
erzeugt.
Wer hat einen Code oder kann sagen wo der Fehler ist (aber
erst unten lesen!)

Aber das oben beschriebene gefällt mir eh nicht so.

Daher will ich die Progressbar direkt einbauen (Code hierfür
habe ich schon).
Problem ist jetzt nur, normal habe ich unten 9 Grundflächen
(=GF).
Die Progressbar soll in die Fläche 7 und da laufen.

Während sie läuft soll aber GF 8,9 da bleiben, und links nur
eine GF mit Text zB Daten werden aktualisiert stehen (also
insg. nur noch 4 GF)

Wenn die Bar fertig ist, verschwindet sie wieder und der alte
Status mit 9 GF erscheint.

Kann man das einfach realisierten mit ein paar Zeilen Code???
Sonst müsste ich doch auf die erste Variante zurückgreifen und
die Hilfe dahingehend stellen.

Mfg Werner

Hallo Werner,

du kannst grundsaetzlich eine progressbar in die Statuszeile einbauen!
Die Grundflächen in den Statusleiste kannst du auch nach belieben ein und ausblenden :wink: Ich gehe einmal davon da aus das du weisst wie du das anstellst oder?
Die progressbar bekommst du folgendermassen in die Statusbar

option explicit

Private Declare Function SetParent Lib "user32" ( \_
 ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Private Sub Progresbar\_in\_Statusleiste()
on error resume next
 With ProgressBar1
 'Den Panel der ProgressBar sichtbar machen
 StatusBar1.Panels(6).Visible = True
 'Die ProgresBar sichtbar machen
 .Visible = True 
 'Die Progressbar in die Statusbar setzen
 Call SetParent(.hWnd, StatusBar1.hWnd)
 .Top = 60
 .Left = StatusBar1.Panels(6).Left
 .Width = StatusBar1.Panels(6).Width
 .Height = StatusBar1.Height - 90
 End With
End Sub

MFG Alex

#3

Statusfelder ein und ausblenden???
Hallo
nein weiß ich nicht genau, aber vielleicht kannst du es mir noch kurz verraten. Wenn ich eins ausblende, was passiert mit den anderen???
Dann werden die doch alle verschoben oder???

Bräuchte noch ein transparentes ProzentanzeigeText über dem Statusfeld und der Bar für die Prozentanzeige. Geht das???

Leider habe ich meine Ideen in 5 Tagen 4 mal geändert.
In VB ist ncht immer alles so möglich wie die ersten Gedanken es einen wünschen lassen.

Mfg Werner

#4

Hallo

Hallo Werner,

nein weiß ich nicht genau, aber vielleicht kannst du es mir
noch kurz verraten. Wenn ich eins ausblende, was passiert mit
den anderen???
Dann werden die doch alle verschoben oder???

also sagen wir du hast 9 Schaltflächen in der Statusbar… dann hat die erste die nummer 1 und die 9 die nummer 9.
Ein oder Ausblenden kannst du sie folgendermassen

Statusbar1.panels(2).visible=false

das bedeutet das in der Statusbar 1 die 2 Schaltfläche unsichtbar gemacht wird. Die Schaltflächen 3 - 9 würden dann nach links rutschen und sich neben der 1 plazieren.

Bräuchte noch ein transparentes ProzentanzeigeText über dem
Statusfeld und der Bar für die Prozentanzeige. Geht das???

Auf dem Wege den ich dir erklärt wie man eine Progressbar in die Statusbar bekommst, so bekommst du da auch andere Controls darein die ein eigenes Handle besitzen. Ein Label besitz leider keines und das Textfeld kannst du nicht tranzparent machen.
Um irgendetwas dursichtig darzustellen, kannst du nur ein Label nehmen! Um es tranzparent zu machen, stelle dann einfach BackStyle auf 2!
Vielleicht gibt es noch eine andere Möglichkeit dies zu realisieren, aber mir ist keine weitere bekannt.

Leider habe ich meine Ideen in 5 Tagen 4 mal geändert.

Sowas kenne ich zur genuege *grml*

In VB ist ncht immer alles so möglich wie die ersten Gedanken
es einen wünschen lassen.

Das habe ich auch schon schmerzlichst zu spüren bekommen. Aber das meiste bekommt man hin, auch wenn es ein extremer Aufwand ist.

Mfg Werner

MFG Alex

#5

Fehlermeldung, BackStyle=2 ???
Hallo
ich kann das Label nicht auf Backstyle = 2 stellen.
Dann wird ein Fehler erzeugt ungültiger Eigenschaftswert.
Ich kann ein Label nicht über die Statusbar legen.
Brauche ich noch ein Servicepack oder so???

#6

Hallo
ich kann das Label nicht auf Backstyle = 2 stellen.
Dann wird ein Fehler erzeugt ungültiger Eigenschaftswert.
Ich kann ein Label nicht über die Statusbar legen.
Brauche ich noch ein Servicepack oder so???

Hallo Werner,

oje das war mein Fehler. Ein ganz grosses Sorry. Den Wert 2 gibt es natuerlich nicht. es ist die 0, hab extra nochmal nachgeschaut :smile:
Aber das kannst du ganz einfach bei den eigenschaften des labels einstellen :smile:

MFG Alex