マウスポインターを砂時計にするには？ (ID:81988)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たぶん質問者はもう見ていないと思いますが、 一応まとめますと、要するにこれは Screen.MousePointer = vbHourglass のコードを実行している時に、マウスポインターは砂時計を 表示したいフォームの上には無く、どこか他にある。 そして次に重い処理が入るのでウィンドウズはマウスポインターを 変えたくても忙しくて処理が回ってこない。 つまりnanashiさんの Private Sub Command1_Click() Dim lLp As Long Screen.MousePointer = vbHourglass For lLp = 0 To 100000000 Next Screen.MousePointer = vbDefault End Sub これをやっていると言うことですか。 こう言うのは、 Private Sub Command1_Click() Dim lLp As Long Screen.MousePointer = 13 For lLp = 0 To 100000000 If lLp Mod 10000 = 0 Then DoEvents Next Screen.MousePointer = vbDefault End Sub こんな風に時々はウインドウズに処理を戻してあげなさい と言うことですね。この方が処理を中断したい時も 具合がいいし。