Far assumere al cursore del mouse l'aspetto dell'attesa

Sovente, quando il programma è impegnato a svolgere una lunga operazione, il 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 cursore del mouse assume l'aspetto di attesa (cursore "occupato ") per mostrare che l'applicazione è occupata e non risponde agli eventi utente. Terminato la fase di attesa bisognerà decrementare il valore, precedentemente incrementato, della predetta proprietà ".Busy ".
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