Visualizza wikitesto di Uso dello ''Spinner''

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 = <FONT color=#B22222>True</font>
e impostare il valore della percentuale con un valore in virgola mobile, ad esempio:
 Spinner1.Value = <FONT color=#B22222>0.33</font>   <FONT color=gray>' ''Verrà mostrato: 33%''</font>


===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:
 Private s As Single
 
 
 '''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 = s
   
   s += 0.01
  
 '''End'''



In quest'altro esempio verrà utilizzata la funzione ''Wait'' al posto del ''Timer'', e l'oggetto ''Spinner'' sarà avviato al di fuori dell'apertura del ''Form'' principale del programma, ma cliccando su un tasto:
 ''' Public''' Sub Form_Open()
 
   Spinner1.Stop
 
 End'''
 
 
 '''Public''' Sub Button1_Click()
  
  Dim b As Byte
  Dim s As Single
 
   With Spinner1
     .Label = True
     .Value = 0
     .Start
   End With
   
   For b = 0 To 100
     Spinner1.Value = s
     s += 0.01
     Wait 0.01
   Next
   
   With Spinner1
     .Stop
     .Delete
   End With
  
 '''End'''