VISUAL BASIC stop progressbar

[hud_red_ekfik]

Λοιπόν,θέλω στο 20% η progress bar να σταματήσει,πώς θα το κάνω αυτό ?

[nilosgr]

Μπορεις να μας βαλεις ενα κομματι του κωδικα για να καταλαβουμε τι ακριβως θεςς

Επειδη αυο που λες ειναι πολυ γενικο και μαλλον κατι αλλο θες αλλα, "το εκφραζεις λαθος"

[hud_red_ekfik]

Καταρχας,θελω να σταματαει η μπαρα και να βγαζει ενα πρόβλημα (msgbox)

το 20% ενοώ μέχρι να ολοκληρωθεί η μπάρα

[WoodSell3r]

Σε γενικές γραμμές θα πρέπει να ελέγξεις πότε ο μετρητής σου φτάνει στο 20% του μήκους του παράθυρου σου, ανάλογα βέβαια με το βήμα (στη for/while) που έχεις δώσει να κάνει update στο gui η progress bar. Στην if σου, όταν φτάσει στο 20% και γίνει αληθής, χτυπάς ένα παράθυρο msgbox που να λέει το σφάλμα που θέλεις.

[hud_red_ekfik]

Ναι αυτό κάνω αλλά η μπάρα συνεχίζει να φορτώνει !

[evagelos_21]

Σε γενικές γραμμές θα πρέπει να ελέγξεις πότε ο μετρητής σου φτάνει στο 20% του μήκους του παράθυρου σου, ανάλογα βέβαια με το βήμα (στη for/while) που έχεις δώσει να κάνει update στο gui η progress bar. Στην if σου, όταν φτάσει στο 20% και γίνει αληθής, χτυπάς ένα παράθυρο msgbox που να λέει το σφάλμα που θέλεις.

+1

 

Κάπως έτσι

for(i=0; i<99; i++)

{

progressbar.PerformStep();

if (i>19)

{

messagebox.show("mpla mpla mpla mpla");

}

}

[hud_red_ekfik]

φίλε evagelos_21 δεν σε καταλαβαίνω

[NikosKallithea]

Σου κανει αυτο

 

>
Private Sub ()
ProgressBar1.Min = 1
ProgressBar1.Max = 1000000
For i = 1 To 1000000
ProgressBar1.Value = i
If i = 200000 Then
MsgBox ProgressBar, vbCritical, "20% Progress END"
Exit For
End If
Next
End Sub

[WoodSell3r]

Αυτό που είπα με λόγα, το έγραψε ο βαγγέλης. Μήπως τρέχεις κανενα thread στον κωδικα ή συνεχίζεις να είσαι μέσα στη for και μετά το 20% ;

Βάλε καμιά break στην if, αν είναι έτσι, να βγεις απο το loop.

[hud_red_ekfik]

Μου λέει max not member of windows form

 

Μόλις αντιγράφω το μήνυμα του Βαγγέλη μου τα βγάζει όλα λάθος

 

οκ έβαλα

 

 

If ProgressBar1.Value = 21 Then

ProgressBar1.Value = 21 = True

End If

If ProgressBar1.Value = 19 Then

Timer1.Stop()

MsgBox("...", MsgBoxStyle.Exclamation, "...")

 

 

και είναι οκ

 

Αλλα πως θα βάλω στην μπάρα κίρτινο χρώμα ?

[nilosgr]

Ετσι ειναι πιο σωστο:

 

>If ProgressBar1.Value > 20 Then
   ProgressBar1.Value = 20
   Timer1.Stop()
   MsgBox("...", MsgBoxStyle.Exclamation, "...")
End If