[VB.NET] Controllo ProgressBar che non viene aggiornato

[tacsecret]

Ciao a tutti...
vorrei far incrementare la progressbar... ma non ci riesco!!!

Questo è il codice che ho inserito:

Private Sub FormLoad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Application.DoEvents()
Dim i As Integer
prg1.Enabled = True
prg1.Visible = True
prg1.Minimum = 0
prg1.Maximum = 100
prg1.Style = ProgressBarStyle.Blocks
For i = 0 To 100
prg1.Value = i
Label1.Text = prg1.Value.ToString & " % "
Next i

End Sub

[oregon]

Aggiungi una DoEvents dopo aver assegnato il valore alla Label

Label1.Text = prg1.Value.ToString & " % "
Application.DoEvents()

P.S. Il linguaggio nel titolo e segui il regolamento ...

[tacsecret]

grazie mille... ho inserito "Application.DoEvents()" ma non funziona ugualmente...
viene visualizzata solo una piccola parte di barra che non si incrementa.
Non capisco....

P.S.: Scusa per il titolo (indicante il linguaggio) che non ho inserito... credevo bastasse selezionare il forum di interesse...

[tacsecret]

Allora... ho provato il codice e funziona perfettamente in una nuova form.
nel mio caso, invece, la form dove risiede la progressbar viene aperta tramite un altra form.
Per intenderci... la prima form ha il seguente codice per aprire (e chiudere) la seconda form:

__________________________________________________ ___________________________
Private Sub FillByToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByToolStripButton.Click

FormLoad.Show()
Application.DoEvents()
Try
Me.Pubblic__EXCEL11TableAdapter.FillBy(Me.Database 1DataSet.Pubblic__EXCEL11, CognomeToolStripTextBox.Text, NomeToolStripTextBox.Text, Data_nascita_txtToolStripTextBox.Text, Pat_matToolStripTextBox.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

FormLoad.Close()
End Sub
__________________________________________________ ___________________________



la seconda form (ovvero la Formload) ha il seguente codice:



__________________________________________________ ___________________________
Public Class FormLoad

Private Sub FormLoad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Application.DoEvents()
Dim i As Integer
prg1.Enabled = True
prg1.Visible = True
prg1.Minimum = 0
prg1.Maximum = 100
prg1.Style = ProgressBarStyle.Blocks
For i = 0 To 100
prg1.Value = i
Label1.Text = prg1.Value.ToString & " % "
Application.DoEvents()
Next i

End Sub


End Class
__________________________________________________ ___________________________


il tutto, pur sembrando corretto, non funziona... non fa avanzare la barra.

[Il Totem]

Il codice viene eseguito nell'evento load, ossia prima che il form venga visualizzato. Mettilo invece nell'evento Show, quando il form viene aperto per la prima volta. Inoltre con il codice che hai scritto, la barra dovrebbe riempirsi istantaneamente. Usa un timer o un'istruzione Sleep del thread corrente per rallentarne l'andamento:

'Con questo codice, è indifferente usare Shown o Load
Private Sub Form1_Shown(...) Handles Form1.Shown
  tmrBar.Start()
End Sub

Private Sub tmrBar_Tick(...) Handles tmrBar.Tick
  prgBar.Value +=1
  If prgBar.Value = 100 Then
    tmrBar.Stop()
    Me.Close()
  End If
End Sub

[alka]

Originariamente inviato da tacsecret
P.S.: Scusa per il titolo (indicante il linguaggio) che non ho inserito... credevo bastasse selezionare il forum di interesse...

Ho corretto io il titolo. Leggi il Regolamento per conoscere tutte le norme da seguire nell'apertura di eventuali discussioni in futuro.

Ciao!

[tacsecret]

Perfetto!!!
grazie mille... funziona tutto!
Per quanto riguarda l'errore del titolo... scusate ancora... e ringrazio il moderatore per la correzione.