Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12512 / 13645 ツリー ←次へ | 前へ→

【10147】イメージ上のマウスポインタ kam 04/1/8(木) 21:12 質問
【10148】Re:イメージ上のマウスポインタ INA 04/1/9(金) 8:34 回答
【10154】Re:イメージ上のマウスポインタ kam 04/1/9(金) 10:03 お礼

【10147】イメージ上のマウスポインタ
質問  kam  - 04/1/8(木) 21:12 -

引用なし
パスワード
   はじめまして

WinXP-Excel2002です
ユーザーフォーム上にイメージが貼り付けてあります。
イメージ上をマウスポインタが移動するときにマウスポインタを
矢印から十字に変化するようにしたいと考えています。
単純化したものが以下のコードです。
とりあえず動くのですが。イメージ上でマウスをクリックすると
ポインタが変化しなくなります。
Label1に表示されるマウスポインタの番号は変化しているのですが
表示が変化しないのはどのような原因でしょうか。よろしくお願いします。


Private Sub Image1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

 If X > 30 Then
  UserForm1.Image1.MousePointer = fmMousePointerCross
   Else
    UserForm1.Image1.MousePointer = fmMousePointerArrow 
 End If

'マウスポインタ確認
UserForm1.Label1.Caption = UserForm1.Image1.MousePointer

End Sub

上の例ではイメージを2組み合わせることで問題が解決しますが
実際のコードではマウスポインターを変化させたい形が複雑でイメージの
組み合わせでは出来ないので悩んでいます。

【10148】Re:イメージ上のマウスポインタ
回答  INA  - 04/1/9(金) 8:34 -

引用なし
パスワード
   >とりあえず動くのですが。イメージ上でマウスをクリックすると
>ポインタが変化しなくなります。

win98se ,excel2000 ですが、問題ありませんでした。

【10154】Re:イメージ上のマウスポインタ
お礼  kam  - 04/1/9(金) 10:03 -

引用なし
パスワード
   ▼INA さん:
>win98se ,excel2000 ですが、問題ありませんでした。

win2000SP4,excel2000SP3の組合せでも動作がおかしいので
OSのバージョンによる問題のようです。
返信ありがとうございました。

12512 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free