Differenze tra le versioni di "Uso dello ''Spinner''"
| Riga 12: | Riga 12: | ||
===Esempi pratici=== | ===Esempi pratici=== | ||
Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto ''Spinner'', con il quale si farà soltanto incrementare la percentuale, indicata nello ''Spinner'', mediante un ''Timer''. Si porrà sul ''Form'' l'icona dell'oggetto ''Spinner'', nonché quella dell'oggetto speciale ''Timer''. Poi si imposterà il seguente codice: | Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto ''Spinner'', con il quale si farà soltanto incrementare la percentuale, indicata nello ''Spinner'', mediante un ''Timer''. Si porrà sul ''Form'' l'icona dell'oggetto ''Spinner'', nonché quella dell'oggetto speciale ''Timer''. Poi si imposterà il seguente codice: | ||
| − | |||
| − | |||
| − | |||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | + | ||
| − | |||
| − | |||
With Spinner1 | With Spinner1 | ||
.Label = True | .Label = True | ||
| − | .Value = | + | .Value = 0 |
End With | End With | ||
| − | Timer1.Start() | + | With Timer1 |
| + | .Delay = 100 | ||
| + | .Start() | ||
| + | End With | ||
'''End''' | '''End''' | ||
| Riga 39: | Riga 37: | ||
Return | Return | ||
Endif | Endif | ||
| − | + | ||
| − | + | Spinner1.Value += 0.01 | |
| − | Spinner1.Value | ||
| − | |||
'''End''' | '''End''' | ||
Versione delle 17:04, 6 dic 2015
Lo Spinner è un oggetto grafico GUI avente aspetto circolare che ruota in continuazione di 360° e che rappresenta un'attesa che termini un processo.
Lo Spinner può essere utilizzato senza o con l'indicazione in rappresentazione percentuale del tempo sin a quel momento passato rispetto al termine del processo. Ovviamente potrà anche indicare, ad esempio, la quantità di byte caricati sino a quel momento rispetto alla totale dimensione da caricare.
Per ottenere anche l'indicazione della percentuale bisognerà porre a vero la proprietà .Label dello Spinner:
Spinner1.Label = True
e impostare il valore della percentuale con un valore in virgola mobile, ad esempio:
Spinner1.Value = 0.33 ' Verrà mostrato: 33%
Esempi pratici
Mostramo di seguito un semplice esempio didattico dell'uso dell'oggetto Spinner, con il quale si farà soltanto incrementare la percentuale, indicata nello Spinner, mediante un Timer. Si porrà sul Form l'icona dell'oggetto Spinner, nonché quella dell'oggetto speciale Timer. Poi si imposterà il seguente codice:
Public Sub Form_Open()
With Spinner1
.Label = True
.Value = 0
End With
With Timer1
.Delay = 100
.Start()
End With
End
Public Sub Timer1_Timer()
If s > 1 Then
With Spinner1
.Stop()
.Delete()
End With
Timer1.Stop()
Return
Endif
Spinner1.Value += 0.01
End
