Visualizza wikitesto di Far assumere al puntatore grafico del mouse l'aspetto dell'attesa

Sovente, quando il programma è impegnato a svolgere una lunga operazione, il puntatore grafico (detto anche "cursore") del mouse assume il consueto aspetto di una sorta di rotellina che gira sino a quando quella lunga operazione non termina.

Per riprodurre questo effetto grafico anche in Gambas, è possibile utilizzare in ambiente grafico la Proprietà ".Busy" della Classe ''Application''.

In particolare la guida ufficiale on-line dice che quando la Proprietà ".Busy" è impostata ad un valore maggiore di zero, il puntatore grafico del mouse assume l'aspetto di attesa (puntatore "''occupato'' ") per mostrare che l'applicazione è occupata e non risponde agli eventi utente.
<BR>Terminata la fase di attesa bisognerà decrementare il valore, precedentemente incrementato, della predetta Proprietà ".Busy".
<BR>Se la Proprietà ".Busy" è stata incrementata, non bisogna dimenticare di decrementarla, al termine della fase di attesa.

Semplice esempio pratico:
 Public Sub Button1_Click()
 
  Dim i As Integer
  
  Inc Application.Busy
 
  Wait 3
 
  Dec Application.Busy
 
 End
Un'altra possibilità è quella di usare le Proprietà ".Wait" e ".Default" della Classe ''Mouse''.
 Public Sub Button1_Click()
  
  Dim i As Integer
 
  Me.Mouse = Mouse.Wait
 
  Wait 3
 
  Me.Mouse = Mouse.Default
 
 End