• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:VB6 ドラッグ&ドロップ)

VB6 ドラッグ&ドロップでImage1をPicture1に移動する方法

このQ&Aのポイント
  • VB6でImage1をPicture1にドラッグ&ドロップするプログラムを作成する方法について解説します。
  • Image1の絵と外枠を一緒にドラッグできるようにする方法について説明します。
  • ドロップする場所がPicture1以外の場合でもImage1を画面上に残す方法について説明します。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Dim dx As Single, dy As Single ↑の使用目的がわからないので削除しました。 Option Explicit Private Sub Form_Load() Image1.Stretch = True Image1.Picture = LoadPicture(App.Path & "picture.jpg") End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Image1.Drag 1 End Sub Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) Source.Visible = False 'ドロップオブジェクトを非表示にする Picture1.BackColor = RGB(255, 255, 255) Picture1.Picture = Source.Picture End Sub Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, _ State As Integer) If State = 0 Then Picture1.BackColor = RGB(0, 0, 255) If State = 1 Then Picture1.BackColor = RGB(255, 255, 255) Picture1.Refresh End Sub

sisuado
質問者

お礼

回答ありがとうございます。 うまくできました!