No.2ベストアンサー
- 回答日時:
ちは。
Formにコントロールを張付けて以下のコードで実行すればOKです。
-----------------------------------------
Option Explicit
Dim Drg As Boolean'ドラッギングフラグ
Dim DrX As Single, DrY As Single'位置情報
Private Sub Image1_MouseDown(Button As Integer, ShiftState As Integer, x As Single, y As Single)
If Button = 1 Then
If Drg = False Then
Drg = True
DrX = x: DrY = y
Image1.ZOrder 0
End If
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, ShiftState As Integer, x As Single, y As Single)
Dim XX As Single, YY As Single
If Button = 1 Then
If Drg Then
XX = Image1.Left + x - DrX
YY = Image1.Top + y - DrY
Image1.Move XX, YY
End If
End If
End Sub
Private Sub Image1_MouseUp(Button As Integer, ShiftState As Integer, x As Single, y As Single)
Drg = False
End Sub
------------------------------------------------
じゃ、そゆことで。
No.1
- 回答日時:
こんにちは。
最近 VB を触っていないのですが、ドラッグ開始のタイミングを MouseDown でおこなっているのなら、ドラッグ開始時点のコントロール内のマウス座標が得られるはずです。それを、ドロップ時の座標から引けばいいと思います。
(ドロップされたx座標-ドラッグ時のx座標, ドロップされたy座標-ドラッグ時のy座標) に動かせばいいのでは。
ただし、ドラッグ対象のコントロールと、ドロップされるコンテナの座標系が異なる場合には、適切な変換が必要だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 作詞・作曲 Cubaseでダウンロードしたmidi音源を聴く方法を教えてください。 今日Cubaseインストール 1 2022/05/14 17:13
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) Excel ヘルプの[ロック解除]、<c0>、</c0> の意味は何ですか? 1 2023/02/20 16:58
- JavaScript jQueryでのドラッグアンドドロップについて 1 2022/07/07 21:04
- その他(Microsoft Office) EXCELでバーコードを作成すると白くなってコードが見えません 1 2022/04/04 14:24
- マウス・キーボード 画像キャプチャ 5 2022/11/24 07:02
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) Excel2019で、年表を作りたいと思います。130年を選択して色を付けたいのですが、ドラックで操 2 2022/05/24 07:55
- Excel(エクセル) コントロールにリンクするセルが選択されない 3 2022/06/12 14:37
- 一戸建て ブラケットライト取り付け位置どちらが良いと思いますか? ブラケットライトの絵の位置と、黄色い丸の位置 1 2022/11/27 17:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
3次元空間上の2つの座標から...
-
閉図形の座標の配列が右回りか...
-
ダイアログ内コントロールの位...
-
エクセルである点からの距離で...
-
ピクチャボックスの座標取得
-
交差する2線分の交点座標の求め方
-
エクセルシート上のマウスポイ...
-
一番近い点を見つけたい。
-
c言語でキーボードから2点の座...
-
ビットマップ画像の座標を小数...
-
VBで、開いているExcelシートの...
-
マインクラフト(pc版)で座標...
-
Tiny Basicでのグラフィック。。
-
ワード上Shapeの位置情報を統一...
-
最小二乗平面
-
エクセルで回転する座標の出し方
-
座標A(X,Y)の線分(aX,aY)(b...
-
空間上の二点を結ぶ直線上に任...
-
ClientToScreen
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マインクラフト(pc版)で座標...
-
グラフの交点の求め方(Excel)
-
エクセルで回転する座標の出し方
-
閉図形の座標の配列が右回りか...
-
3次元空間上の2つの座標から...
-
エクセルである点からの距離で...
-
求積表の計算方法
-
ダイアログ内コントロールの位...
-
空間上の二点を結ぶ直線上に任...
-
始点、終点の二つの座標と半径...
-
図形が重なりあっているかどうか
-
ワード上Shapeの位置情報を統一...
-
以下のプログラムは重心を求め...
-
シーケンサー(PLC?)で制...
-
ピクチャボックスの座標取得
-
多角形の内部かどうか判定する方法
-
Excel VBA で自在に図形を変化...
-
選択範囲の座標値の抽出
-
座標を持った平面範囲に座標を...
-
VBで、開いているExcelシートの...
おすすめ情報