Visual Basic Forum

BadboyGER · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 39

Liebe VB-X User ,

ich möchte euch heute mal einen kleinen Source geben der für die anfänger ganz nett aussehen könnt.
Ihr kennt ja alle die Progressbar. Ich habe einfach ein Label gemacht das in einem betimmten Intervall sich
die ganze Zeit um 1 erhöt bis es 100 % erreicht. Das sieht z.B so aus :

1 % - 2 % .... - 100 %.

Ich finde es sieht besser aus als so eine Normale Progressbar.

MfG.

Visual Basic: [code]Private Sub cmd_go_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lbl_prozent.Caption = lbl_prozent.Caption + 1
If lbl_prozent.Caption = "100" Then
Timer1.Enabled = False
MsgBox "Fertig", vbInformation, "Fertig"
lbl_prozent.Caption = "0"
End If
End Sub
[/code]

BadboyGER

exe-cute · Newbie Anmeldedatum: 03.05.2008 Beiträge: 7

Label Progessbar ? Das hat nixx mit ner Progessbar zu tun...
Du kanns in ne Progressbar übrigends auch den stand bringen.

BadboyGER · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 39

Ja , danke für den hinweis exe-cute nur wie soll ich das sonst nennen ?
Ich habe auch nur geagt das es schön aussieht mehr auch nicht.

MfG.
BadboyGER

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

am geilsten finde ich , dass in dem code das % zeichen fehlt ^^

Private Sub cmd_go_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lbl_prozent.Caption = lbl_prozent.Caption + 1 & " %"
If lbl_prozent.Caption = "100 %" Then
Timer1.Enabled = False
MsgBox "Fertig", vbInformation, "Fertig"
lbl_prozent.Caption = "0 %"
End If
End Sub

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

hast du es überhaupt schon mal getestet? Das kann so gar nicht gehen, da du 1% (0.01) + 1 "rechnen" willst. Da fehlen noch ein paar Typenfunktionen Wink

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

stimmt , ne getestet hab ich net , dann nimmt man einfach ne variable ^^

Visual Basic: [code]
Dim prozent&
Private Sub Form_Load()
prozent = 0
End Sub

Private Sub Timer1_Timer()
prozent = prozent + 1
lbl_prozent.Caption = prozent & " %"
If lbl_prozent.Caption = "100 %" Then
Timer1.Enabled = False
MsgBox "Fertig", vbInformation, "Fertig"
lbl_prozent.Caption = "0 %"
End If
End Sub
[/code]

dcm · Poster Anmeldedatum: 04.05.2008 Beiträge: 101

oder auch nicht...

Private Sub cmd_go_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lbl_prozent.Caption = left$(lbl_prozent.Caption, len(lbl_prozent.Caption - 2) + 1 & " %"
If lbl_prozent.Caption = "100 %" Then
Timer1.Enabled = False
MsgBox "Fertig", vbInformation, "Fertig"
lbl_prozent.Caption = "0 %"
End If
End Sub

>aber wozu sollte man des mit nem timer machen wollen? ^^

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

ja gut , mit left und textLength is besser , aber meinst klappt auch =)
is nur kagge wenn man ne variable mehr hat x)

dcm · Poster Anmeldedatum: 04.05.2008 Beiträge: 101

naja wenn du die variable als byte definierst is es ja eigentlich nich sonderlich viel zusätzlicher speicher bei 4gb arbeitsspeicher^^
außer du machst des ganze 4millionen mal :p
und welche lösung schneller ist... weiß nur gott ^^
vielleicht deine :p