Problema risolto aiuto vb6

[loryx95]

ciao volevo chiedervi i codici per far caricare la progressbar semplicemente premendo un commandutton!!

 

[Nocturno]

Non conosco bene la progressbar ma ti posso dare questo:

Perfavore, Entra oppure Registrati per vedere i codici!

Codice da mettere nel command buttom

 

[PIETRO95]

problema risolto?

 

[loryx95]

ora provo
--------------- AGGIUNTA AL POST ---------------
no mi da un errore possibilemnte se mi fate una guida di tutto quanto anche il codice del timer vi ringrazierei moltissimo xke possibilemnte il mio codice del timer e sbagliato...

 

[Nocturno]

non è molto semplice far si che la progress bar quando si ha un determinato processo...
però potresti semplicemente fare così:
metti un tmier e un command buttom e una progressbar
nel command ci metti Timer1.Enabled = True
nel timer scrivi ProgressBar1.Increment
come intervallo nel timer1 metti ad esempio 500

approposito per far si che la progressbar si fermi quando è al 100% metti questo nel timer oltre a quello di prima :

If Progressbar.Value = 100 Then
Timer1.Enabled = False
End If
una cosa: il timer devi mettere nella propietà enabled False

non lo ho provato ma dovrebbe andare

 

[loryx95]

guarda tu stesso dice che increment e sbagliato

Perfavore, Entra oppure Registrati per vedere i Link!

no spam!!

 

[Gianni95]

Prima di tutto nella form ci devono essere:

- un timer;
- 3 commandbutton;
- una progressbar.

Ecco il codice:

Nella form:
Private Sub Form_Load()
Timer1.Interval = 100 'Qui impostate che intervallo volete voi
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = 0
End Sub

Codice sorgente






Nel commandbutton per attivare il timer:

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

Codice sorgente





Nel commandbutton per disattivare il timer:

Codice sorgente



Private Sub Command2_Click()
Timer1.Enabled = False
MsgBox "ProgressBar bloccata!", vbExclamation,"Informazione"
End Sub


Nel timer:


Codice sorgente



Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then Timer1.Enabled = False
If ProgressBar1.Value = 100 Then MsgBox "Progressbar completata!", vbInformation, "Informazione"
End Sub


Nel commandbutton per resettare la ProgressBar:


Codice sorgente



Private Sub Command3_Click()
Timer1.Enabled = False
ProgressBar1.Value = 0
End Sub


Tutto qui, spero di essere stato utile. Comunque puoi modificarti il codice come vuoi... per esempio puoi far resettare la progressbar quando premente il commandbutton per disattivare il timer...ect...

 

[Ketto93]

Il codice di gianni non funzionerà mai.

Devi innanzi tutto settare il valore di ProgressBar1.Max e Progressbar1.Min risspettivamente a 100 e a 1

Poi a Progressbar1.Value ci metti:

Perfavore, Entra oppure Registrati per vedere i codici!

 

[Gianni95]

a me funziona...

 

[loryx95]

ok grazie gianni problema risolto mod chiudete pure