Hallo
brächte auch noch eine Progressbar mit % Anzeige.
Beim Installieren von Programmen wird diese meist angezeigt.
Finde ich irgendwie hübscher als eine langweilige Bar ohne Statuswert.
Ist das ein eigenes Steuerfeld. Wo finde ich das???
Mfg Werner
hallo werner,
ja, das ist ein eigenes steuerelement.
wenn was nicht da ist, mal bei den komponenten schauen
grüße
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo
da man das immer so gut erkennt, in welcher Komponente sich das Steuerelement verbirgt, frage ich ja hier.
Vielleicht kann es mir gleich jmd sagen.
Dann spare ich mir die Mühe, 100 Komponenten zu durchsuchen.
Vielleicht kannst du mir noch einmal etwas konkreter dahingehend helfen.
Wäre schön.
Mfg Werner
Hallo Werner!
Also eine Progressbar mit Prozentanzeige ist mir aus VB nicht bekannt, was nicht bedeuten soll, daß es sowas nicht gibt.
Ich wurde bisher nur einmal damit konfrontiert und mein Lösungsansatz war dieser:
Die „normale“ (so es die andere denn gibt) Progressbar einbauen und ein transparentes Label „drüberlegen“.
Die Größe des Labels an die der Bar anpassen, Text zentrieren und zur Laufzeit den jeweiligen Prozentwert hineinschreiben.
Die Schriftfarbe mußt Du natürlich hinsichtlich der Lesbarkeit austesten.
Wenn Du andere Farben möchstest, als sie die Progressbar hergibt, kannst du 2 leere Textboxen „mißbrauchen“:
Die „hintere“, mit der Hintergrundfarbe für „noch nicht fortgeschritten“ und die darübergelegte, vordere, mit der Hintergrundfarbe deines Fortschrittbalkens.
Die Breite der forderen Textbox wird zur Laufzeit mit dem Fortschritt angepasst und überdeckt dann die hintere.
Auch hier kannst Du dann mit dem transparenten Label auch den prozentualen Fortschritt anzeigen.
Was mir dazu grad einfällt: Abhängig von der Breite der vorderen Textbox könnte man dann natürlich die Schriftfarbe des Labels zu Laufzeit ändern…
Hoffe ich konnte helfen.
Viele Grüße,
Michael
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
bitte nochmal antworten!
Hallo
das hört sich gut an, so in etwa hatte ich mir das auch gerade schon überlegt.
Ich denke, da muss man einfach wieder mal rumprobieren bis es geht.
Hast du vielleicht noch einen Tip, wie man immer am besten auf die 100% kommt beim Balken??? das das gut aussieht.
Mal ein Beispiel: wenn ich 339 Punkte ändern will, wie mache ich das mit dem Value, das ich auf 100% bin, wenn alle Punkte geändert wurden???
Ganz andere Frage, beim runterladen oder Abspeichern oder wo auch immer gibt es immer so schöne Windowsanimationen mit Pfeilen und so.
Wo gibt es sowas zum einbauen in VB??
Mfg Werner
Hallo
das hört sich gut an, so in etwa hatte ich mir das auch gerade
schon überlegt.
Fein, und nach Durchsicht meines damaligen Codes und der Aufzeichnungne muß ich Fehler eingestehen: Es ist mir NICHT gelungen das Label vor die Progressbar bzw. die Textboxen zu bringen. - Vielmehr hatte ich ausschließlich Label benutzt!
Asche auf mein Haupt… Nächstesmal werde ich erst nachlesen und dann posten, versprochen!
Ausserdem habe ich vorher immer von Prozentwert gesprochen, was natürlich Prozentsatz lauten muß…
Nun aber zur Anzeige. (Ich habe schnell ein Beispiel zusammengetippert)
Bastel Dir mal eine Form mit 3 Label („lblVorne“, „lblHinten“ und „lblProzentanzeige“ - und einem Timer („Timer1“).
Platziere zunächst das lblHinten, in der Originalgröße der späteren Progressbar.
Darüber legst du das Label lblVorne, welches in der Breite kleiner sein darf, wird eh auf 0 gesetzt. (Rechtsklick -> Vordergrund nicht vergessen)
das Label lblProzentanzeige wird wiederum über beide Labels gelegt und in den Vordergrund gesetzt.
Alle Farbeinstellungen, Schriftfarbe, Transparenz etc. werden beim Starten der Form initialisiert.
(Der Fortschritt erfolgt hier Zeigesteuert, das mußt Du natürlich Deinem Auslöser anpassen)
Und hier ist der Code:
Option Explicit
'###############################################################################
'### On Form Load... ###########################################################
'###############################################################################
Private Sub Form\_Load()
Form1.AutoRedraw = True
'Einstellungen für das 'hintere Label'
lblHinten.BackColor = &HFFFFFF 'Weiß
lblHinten.Caption = "" 'Text verwirrt nur
'Einstellungen für das 'hintere Label'
lblVorne.BackColor = &HFF0000 'Blau
lblVorne.Caption = "" 'Text verwirrt nur
lblVorne.Width = 0 'Wir fangen ja bei 0 an
'Einstellungen für das Prozentlabel
lblProzentanzeige.Alignment = 2 'Zentrierte Anzeige
lblProzentanzeige.BackStyle = 0 'Transparenz
lblProzentanzeige.Font.Bold = True 'Es folgen Schrifteinstellungen
lblProzentanzeige.Font.Size = 14
lblProzentanzeige.Font.Name = "Courier New"
lblProzentanzeige.ForeColor = &HFF& 'Schriftfarbe "Knallrot"
'Timereinstellungen
Timer1.Interval = 500 'Schrittweite 1/2 Sekunde
End Sub
'###############################################################################
'### Timerroutine ##############################################################
'###############################################################################
Private Sub Timer1\_Timer()
'100 Sekunden sollen 100 % entsprechen, 0,5 Sekunden = 0,5%
lblVorne.Width = lblVorne.Width + lblHinten.Width \* 0.5 / 100
lblProzentanzeige = CStr(CInt(lblVorne.Width \* 100 / lblHinten.Width)) & " %"
If lblVorne.Width \>= lblHinten.Width Then
Timer1.Enabled = False
End If
End Sub
Hoffe es gefällt.
Hilfreich ist auch ein Blick bei http://www.vbarchiv.net/
-> http://www.vbarchiv.net/archiv/tipp_41.html
Benutzt auch Label, aber die Schrifttype Wingdings, ohne Prozentanzeige
-> http://www.vbarchiv.net/archiv/tipp_792.html
Eine „WaitBar“
(Meint ihr mein Code wäre es wert bei VB@rchive veröffentlicht zu werden?)
Grüße, Michael
Windowsanimationen auf der Form
Ganz andere Frage, beim runterladen oder Abspeichern oder wo
auch immer gibt es immer so schöne Windowsanimationen mit
Pfeilen und so.
Wo gibt es sowas zum einbauen in VB??
Da würde ich ein Bild (Icon) in mehrere Imageboxen laden, von denen jeweils nur eine sichtbar ist. Das ganze timergesteuert, fertig.
Grüße, Michael
Hallo Werner,
das was du suchst ist ein seperates Steuerelement. Ich persoenlich verwende die MBList. Da kannst nur die Prozente anzeigen lassen oder halt auch noch zusaetzlich einen Text davor & dahinter. Je nach geschmackssache. Desweiteren kannst du da auch anzeigen lassen zum Bsp. Eintrag 14 von 2345 erledigt etc.
Desweiteren kannst du Progressbar mit Bildern versehen oder nur einen einfachen Farbverlauf angeben oder nur eine Farbe.
Das Steuerlement kannst du dir aus dem Netz unter
http://vb-town.tripod.com/downloads/activex/MBListEx…
herunterladen. Die Einbindung findet genauso statt wie jedes andere Steuerelement und auch der Zugriff dazu ist wie bei einer normalen Progressbar. In dem Link siehst du daechte ich auch ein Beispiel. Schau dir das einfach an und du steigst dahinter, wie es geht. Wenn net dann sag bescheid 
MFG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo
Hallo
das hört sich gut an, so in etwa hatte ich mir das auch gerade
schon überlegt.
Ich denke, da muss man einfach wieder mal rumprobieren bis es
geht.
Hast du vielleicht noch einen Tip, wie man immer am besten auf
die 100% kommt beim Balken??? das das gut aussieht.
wenn dein steuerlement den namen Progressbar1 hat, dann mit der anweisung
progressbar1.value=progressbar1.max
Mal ein Beispiel: wenn ich 339 Punkte ändern will, wie mache
ich das mit dem Value, das ich auf 100% bin, wenn alle Punkte
geändert wurden???
progressbar1.value=progressbar1.max --\> ist das sicherste
oder
progressbar1.value=339
Ganz andere Frage, beim runterladen oder Abspeichern oder wo
auch immer gibt es immer so schöne Windowsanimationen mit
Pfeilen und so.
Wo gibt es sowas zum einbauen in VB??
Welche Animationen meinst du denn genau?
Du kannst teilweise diese Animationen über API Aufrufe darstellen ( BSP: Den Downloaddialog des MIE) oder halt mit Steuerlementen.
Schaue dich mal bei Google nach ocx+Download um 
Mfg Werner
MFG Alex
Perfekt, so werde ich es machen
Hallo Super Tip, super Hilfe.
So werde ich das machen, wenn ich mein Formproblem gelöst habe.
Mfg Werner
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Es funktioniert und sieht sehr gut aus
Hallo
perfekt, habe dir Bewertungspunkte für diesen Artikel gegeben.
Mfg Werner
danke sehr (ow)
.