■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5909-0マウスポインタについてsato2002-03-12(火) 22:24
     #5912-0RE#5909:マウスポインタについてZERRY2002-03-12(火) 22:34
     #5920-0RE#5912:マウスポインタについてsato2002-03-13(水) 10:16
     #5928-0RE#5920:マウスポインタについてZERRY2002-03-13(水) 11:50
     #5933-0RE#5928:マウスポインタについてsato2002-03-13(水) 14:09
     #5934-0RE#5933:マウスポインタについて匿名59342002-03-13(水) 14:16
     #5939-0RE#5920:マウスポインタについてZERRY2002-03-13(水) 15:05
     #5940-0RE#5939:マウスポインタについて匿名59402002-03-13(水) 15:08
     #5949-0RE#5940:マウスポインタについてゆう(U)2002-03-13(水) 17:55
     #6010-0RE#5940:マウスポインタについてZERRY2002-03-14(木) 21:53
#5909-0
マウスポインタについて
お世話になっております。VB6.0SP4です。
form1のコマンドボタンをクリックしてメッセージボックスをだします。
”登録していいですか。”
OKcancelでOKボタンを押すとメッセージボックスが消えて砂時計を出す。・・・という動作なのですが砂時計がでてきません。(T-T)
ちなみにそのときform1は使用不可能の状態になっています。
どのようにしたらよいでしょうか。
よろしくお願い致します。
#5912-0
RE#5909:マウスポインタについて
> OKcancelでOKボタンを押すとメッセージボックスが消えて砂時計を出す。・・・という動作なのですが砂時計がでてきません。(T-T)
砂時計の処理がどのようにしているのでしょうか?

> ちなみにそのときform1は使用不可能の状態になっています。
また、使用不可能の状態とは?
#5920-0
RE#5912:マウスポインタについて
> > OKcancelでOKボタンを押すとメッセージボックスが消えて砂時計を出す。・・・という動作なのですが砂時計がでてきません。(T-T)
> 砂時計の処理がどのようにしているのでしょうか?
> 
> > ちなみにそのときform1は使用不可能の状態になっています。
> また、使用不可能の状態とは?

     iRet = MsgBox("登録しますか?", vbOKCancel + vbQuestion)
            
            If iRet = 1 Then
            
                Screen.MousePointer = vbHourglass
                
                '計算処理
                Call PREP105_EXEC
         
         Screen.MousePointer = vbDefaulut
                
            Else
                Exit Sub
            
            End If

というコードで、フォームの使用不可というのはコントロールが使えない(押しても反応しない)ということです。
ちなみにDoEventsを使っても計算処理が終ってから砂時計が出てくるとという意味のない結果となってしまうのです。(x_x;)
#5928-0
RE#5920:マウスポインタについて
ここの掲示板の
#5747 ,#5748 のやりとりが参考になりませんか?
#5933-0
RE#5928:マウスポインタについて
> ここの掲示板の
> #5747 ,#5748 のやりとりが参考になりませんか?

返信ありがとうございます。
#5747 ,#5748 のように
DoEventsを使っても残念ながらダメなんです。
vbOkCancelがくせものなんでしょうか。
ためしにAppActivateを使ってフォームがモーダル(アクティブ)の時に砂時計がでるように試行錯誤中です。
#5934-0
RE#5933:マウスポインタについて
> > ここの掲示板の
> > #5747 ,#5748 のやりとりが参考になりませんか?
> 
> 返信ありがとうございます。
> #5747 ,#5748 のように
> DoEventsを使っても残念ながらダメなんです。
> vbOkCancelがくせものなんでしょうか。
> ためしにAppActivateを使ってフォームがモーダル(アクティブ)の時に砂時計がでるように試行錯誤中です。

Form や、全てのコントロールの MousePointer プロパティを vbHourglass にして、
処理が終了したら、vbDefault に直したらどうでしょう?
#5939-0
RE#5920:マウスポインタについて
If (msgbox("?",vbOKCancel) = vbOk) Then
 Me.Enabled = False
 DoEvents
 Screen.MousePointer = vbHourglass
  Call PREP105_EXEC
 Screen.MousePointer = vbDefaulut
 Me.Enabled = True
End If
でも、ちゃんと砂時計になりましたよ。
#5940-0
RE#5939:マウスポインタについて
> If (msgbox("?",vbOKCancel) = vbOk) Then
>  Me.Enabled = False
>  DoEvents
>  Screen.MousePointer = vbHourglass
>   Call PREP105_EXEC
>  Screen.MousePointer = vbDefaulut
>  Me.Enabled = True
> End If
> でも、ちゃんと砂時計になりましたよ。

実行フォームの外までメッセージボックスを動かして、
OK ボタンをクリックしてみてください。
恐らく変わらないと思います。
#5949-0
RE#5940:マウスポインタについて
> 実行フォームの外までメッセージボックスを動かして、
> OK ボタンをクリックしてみてください。
> 恐らく変わらないと思います。
元質問者もその様な状態でマウスポインタが変化しないと
言う事なら、それは 当然… 仕様ですから。

ヘルプより
 実行時にマウスがフォームまたはコントロール内の特定の
 位置に置かれたときに表示されるマウス ポインタの種類を
 設定します。

フォームやコントロールの外へは影響力はありません。


で…その状態からフォーム上へ移動しても、マウスポインタを
描きかえる余裕がなければマウスポインタは変化しません

サンプル)
Private Sub Command2_Click()
  Dim sngTemp As Single
  MsgBox "123"
  Me.Refresh
  Me.MousePointer = vbHourglass
  sngTemp = Timer + 3!
  Do While sngTemp > Timer
'    DoEvents
  Loop
  Me.MousePointer = vbDefault
End Sub
※コメント部分を外した場合と動作の違いを
 確認してみて下さい
#6010-0
RE#5940:マウスポインタについて
> > If (msgbox("?",vbOKCancel) = vbOk) Then
> >  Me.Enabled = False
> >  DoEvents
> >  Screen.MousePointer = vbHourglass
> >   Call PREP105_EXEC
> >  Screen.MousePointer = vbDefaulut
> >  Me.Enabled = True
> > End If
> > でも、ちゃんと砂時計になりましたよ。
> 実行フォームの外までメッセージボックスを動かして、
> OK ボタンをクリックしてみてください。
実行フォームから外れると、変わりませんね。
PREP105の処理の中でもDoeventsを入れれば変わります。
詳しくは、ゆう(U)さんの
#5949 RE#5940:マウスポインタについて
についてを観てください
このページと関連する記事:
#6062-1マウスポインタが砂時計になってしまう2002-03-15(金) 21:12
#36190-0マウスポインタが砂時計の時、ボタンをクリックする方法2000-12-28(木) 15:50
#3839-0ボタン押下処理実行中にキーイベントを不可にしたい1999-08-24(火) 23:11
#19618-0ウエイトさせたい等2001-03-16(金) 00:15
#5747-0マウスポインタの表示について2002-03-07(木) 15:35
#11131-0砂時計が表示できないことについて2000-09-05(火) 17:49
#17115-0マウスが砂時計のままになってしまう2000-12-14(木) 15:47
#18154-0EnterKey / SpaseKey の違い2001-01-26(金) 15:04
#237-2自動でダイアログのOKボタンを押す2003-08-06(水) 12:26
#5693-0MSGBOXが隠れてしまう1999-12-15(水) 14:10
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)