Mi trovo spesso a dover cambiare il cursore dei miei programmi in WaitCursor per suggerire all'utente di attendere. Prendendo spunto da un forum (di cui ho perso ogni riferimento) mi sono costruito la seguente mini-classe:
Public Class HourGlassCursor
Public Sub New()
Cursor.Current = Cursors.WaitCursor
End Sub
Protected Overrides Sub Finalize()
Cursor.Current = Cursors.Default
MyBase.Finalize()
End Sub
End Class
In questo modo basta inserire ove necessario (di solito all'inizio della routine interessata) la seguente istruzione:
Dim hgc As New HourGlassCursor
Ed in uscita dalla routine stessa in cursore tornerà allo stato di default.
Technorati Tag:
WaitCursor,
.NET