Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
LooneyToons
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 125

Täuschend Echte ProgressBar ^^
Verfasst am: 16.06.2008, 20:08

So,
Da hier soviele ihre ProgressBars posten , bin nun ich dran ^^
Ich hab in meinem Ordner eine Funktion gefunden zu einer Progressbar die per PictureBox funktioniert.

Ich habe nun einfach diesen Code als Benutzersteuerelement ungewandelt und Let & Get Propertys hinzugefügt , sodass sie sich wie eine normale Progressbar behandeln lässt ^^
Läuft ohne Timer , ohne Loop =P

hier ist screeny:


und hier is der SourceCode

EDIT: hab jetzt Max und Min Value hinzugefügt =) hats vergessen ^^
 
big earl
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 113


Verfasst am: 21.06.2008, 17:19

bevohr ein error kommt, solltest du vllt checken lasssen, ob die PB voll ist ^^

bsp.

If pb.Value = pb.Max Then
pb.Value = pb.Min
End If

 
igoe
Gast





Verfasst am: 21.06.2008, 17:44

Täuschend Echte ProgressBar?
Für mich ist das ne echte ;(, und wie hast du das gemacht das in der mitte der Progressbar die azahl steht? Smile
 
LooneyToons
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 125


Verfasst am: 21.06.2008, 18:19

Zu BigEarl:

Dies geschiet schon hier:
Visual Basic: [code]
If i < MinVal Then
i = MinVal
ElseIf i > MaxVal Then
i = MaxVal
End If
RealValue = i[/code]

Zu igoe:
Wenn du willst , dass die Zahlen immer in der Mitte sind , auch bei Max-Val 10% oder Max-Val 100% musst du einfach in der Progressbar.ctl das ersetzen:

Visual Basic: [code]
ProgressBar.ScaleWidth = MaxVal 'vorher war 100

ProgressBar.CurrentX = MaxVal / 2 - ProgressBar.TextWidth(Zeichnen$) / 2
'vorher war
'ProgressBar.CurrentX = 50 - ProgressBar.TextWidth(Zeichnen$) / 2[/code]

Ich uppe nochma das neuste , einmal kam mein Update nicht an ^^
 
XeOn
Newbie
Newbie

Anmeldedatum: 01.01.2011
Beiträge: 1
Wohnort: Mönchengladbach

RE: Eigene Progressbar
Verfasst am: 01.01.2011, 22:50

Für mich ist es eine ganz Normale Progressbar!
Es gibt so viele Möglichkeiten die Progressbar vom Optischen zu Manipulieren.

Erste Möglichkeit wäre,
eine .dll Datei mtin Style Sheet Verbunden.

Zweite Möglichkeit und zwar ne einfache und dumme^^,
Wie man erkennen kann,besitzt er nicht gerade Windows Vista oder Seven.
Daher hätte er genau so gut ein Label mit BackgoundColor ( Transparent ) nehmen können
und es in die mitte der Progressbar platziert.

Dritte Möglichkeit wäre, er hat sich einige Addins gedownloaded für ne Progressbar.

So kann man keine Progressbar verändern da die sich auf wie eine Gif Animationen ( BMP Files ) stück für stück aufbauen.

Zb.
Button1_Click.........
Picturebox1.BackGroundImage = My.Resource.Pro0
If My.Computer.Network.IsAvailable = True then
Picturebox1.BackGroundImage = My.Resource.Pro1
end if

usw.
Generell kannst du keine Progressbar vom Visuellen Design verändern!
Entweder du bastelst die eine mitn Foto Programm so an die 100 Bilder immer ein schritt vor.
Oder schreibst dir deine eigene Progressbar!
Möglich ab c#

Mitn Fotoprogramm würd ich es zwar nicht machen..ersten bin ich zu faul für Razz zweitens würd ich EasyGifAnimator benutzen und die Fertige Gif Datei mit IrfanView die einzelnen Dateien Exportieren.
Ne Arbeit von 5 - 10 Minuten.

greetz
Xeon
 
Sharkman
Newbie
Newbie

Anmeldedatum: 07.06.2011
Beiträge: 3


Verfasst am: 07.06.2011, 07:23


Ich fand die echte Progressbar zu hässlich, daher habe ich eine Progressbar mit ca. 20 Grafiken gemacht, auch toll! Smile
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: progressbar, timer, picturebox, code, max

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1107 30.10.2009, 12:26
Keine neuen Beiträge IntStr()funktion 1309 11.10.2007, 09:49
Keine neuen Beiträge TopMost Funktion unter DirectX 1022 27.07.2007, 11:48
Keine neuen Beiträge Wie Funktion nutzen ? 1214 29.06.2007, 21:59
Keine neuen Beiträge update funktion einbauen 1455 29.01.2007, 00:11
 


[ Time: 0.0674s ][ Queries: 95 (0.0251s) ][ GZIP on - Debug on ]