■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1354-2PictureBox内のマウス座標取得方法ピクチャー2002-07-03(水) 04:46
     #1356-2RE#1354:PictureBox内のマウス座標取得方法せつら2002-07-03(水) 04:54
     #1359-2RE#1356:PictureBox内のマウス座標取得方法ピクチャー2002-07-03(水) 05:17
#1354-2
PictureBox内のマウス座標取得方法
Form内のマウス座標の取得はマスターしているのですが、PictureBox内のマウス座標の取得方法がわかりません。どなたかサポート願います。
#1356-2
RE#1354:PictureBox内のマウス座標取得方法
フォームと PictureBox ならば、方法は同じだと思いますが? 現在は、どのようにフォーム上の
座標を得ていますか?

PictureBox の場合、Picture1 のようなオブジェクト名は省略せずに指定してみてください。何も
指定しなければ、フォームオブジェクトとしてプロパティ等が使用されています。
#1359-2
RE#1356:PictureBox内のマウス座標取得方法
> フォームと PictureBox ならば、方法は同じだと思いますが? 現在は、どのようにフォーム上の
> 座標を得ていますか?

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label.Caption = "(" & X & "," & Y & ")"
End sub
上記、コードを書きForm上でマウスをクリックするとLabel.CaptionとしてX、Y座標が表示されるように
しています。
このForm内にPictureBoxが貼り付けてあるのですが、マウスをこのForm上からPictureBoxに持っていき
マウスをクリックすると座標が得られません。
 
> PictureBox の場合、Picture1 のようなオブジェクト名は省略せずに指定してみてください。何も
> 指定しなければ、フォームオブジェクトとしてプロパティ等が使用されています。

下記のコードを追加しましたら問題なく動作しました。ありがとうございました。
Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label.Caption = "(" & X & "," & Y & ")"
End sub

このページと関連する記事:
#14326-0RE#14322:ウインドウ内のサイズ2001-02-04(日) 19:15
#6529-0マウスの座標を出すプログラム2000-03-09(木) 13:35
#21867-0PictureBox内をドラッグして その画像を拡大したい。2001-07-16(月) 11:02
#33762-0paint pictureについて2000-11-20(月) 17:36
#542-3教えてくださいm(__)m2003-12-10(水) 14:49
#10138-0PictureBox内でマウスで範囲指定するには?2000-05-06(土) 16:55
#33-1マウスカーソルの位置の取得。2003-11-04(火) 19:05
#20971-0ドラッグすると出る薄い線2001-05-20(日) 17:51
#138-0移動中のフォーム表示1999-07-21(水) 16:00
#17765-0本当に困ってます2001-01-14(日) 12:51
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)