砂時計を表示させる

応答速度の遅い重たい処理をさせる場合、フリーズしていないことを知らせる為に、
デスクトップWindowsではカーソルを砂時計にすることがよくあります。

今回はWindows Mobileにて砂時計を表示させる方法をご紹介します。

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)

        Try
            ' 砂時計を表示する
            Cursor.Current = Cursors.Default

            ' 激しく重たい処理

        Catch ex As Exception
            ' 例外処理
        Finally

            ' 元に戻す
            Cursor.Current = Cursors.Default

        End Try

    End Sub

    private void Form1_KeyDown(object sender, KeyEventArgs e)
    {
        
        try {
            // 砂時計を表示する
            Cursor.Current = Cursors.Default;
            
            // 激しく重たい処理
        }
        catch (Exception ex) {
            // 例外処理        
        }
        finally {
            
            // 元に戻す
            Cursor.Current = Cursors.Default;
            
        }
    }

キー押下させると砂時計を表示させます。

きっちりカーソルを通常のカーソルに戻す事を忘れない様にしましょう。