|
はじめまして
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組み合わせることで問題が解決しますが
実際のコードではマウスポインターを変化させたい形が複雑でイメージの
組み合わせでは出来ないので悩んでいます。
|
|