[VB6] Muovere uno slider in un determinato tempo

[m.alverman]

Buonasera,
dovrei muovere uno slider( che va da 0 a 1000) in un determinato tempo.
Penso di dover usare un timer ma non riesco a capire come farlo funzionare.
Praticamente vorrei che lo slider andasse al valore massimo in 10 secondi.

Qualche buon'anima che mi da una mano in questgo caldo agosto ?

Grazie, Alberto

P.S. Ma come mai lo slider verticale in vb6 ha il valore basso in alto e il valore alto in basso ?
Si può girare ?

Grazie ancora

Notte

[oregon]

Se imposti il timer a 100 millisecondi, sarà utilizzato

10000 / 100 = 100 volte

e quindi, ogni volta, dovrai aumentare il valore dello slider di

1000 / 100 = 10

di 10

Se modifichi il tempo, il discorso non cambia ...

Per il resto, se il valore dello slider lo calcoli con

1000-valore

hai invertito il "senso" di funzionamento ...

[m.alverman]

Grazie oregon per le info.

Una curiosità
Ma se volessi che il valore del fader non vada a scatti di 10 ma scorra linearmente ?


Grazie, Alberto

[oregon]

Che intendi con "linearmente" ... il minimo incremento è comunque 1 ... lo puoi usare

[m.alverman]

Se uso il timer a 10 secondi però avrei degli incrementi di 10 in 10 o no ?

[oregon]

Originariamente inviato da m.alverman
Se uso il timer a 10 secondi però avrei degli incrementi di 10 in 10 o no ?

Rifai i calcoli per incrementi da 1 ... ma il valore del timer diventerà troppo piccolo ...

[m.alverman]

Teoricamente sarebbe semplice:

Private Sub cmdFadeUp_Click()
For fade = 0 To 1000
Fader1.Value = fade
wait 10 secondi / 1000
Next
End Sub

Ma non so come farlo

[m.alverman]

Ho fatto così ma:

Private Sub cmdFadeUp_Click()
strFadeSense = "UP"
fade = fade + 1
If fade > 1000 Then strFadeSense = "": Exit Sub
Timer1.Enabled = True
End Sub

Private Sub cmdFadeDwn_Click()
strFadeSense = "DOWN"
fade = fade - 1
If fade < 0 Then strFadeSense = "": Exit Sub
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
Fader1.Value = fade
Timer1.Enabled = False
Select Case strFadeSense
Case "UP"
Call cmdFadeUp_Click
Case "DOWN"
Call cmdFadeDwn_Click
End Select
End Sub

Mettendo interval a 1 nel timer 1 il completamento me lo fa in 15 secondi

Come si fa ?