- ベストアンサー
VB6 ドラッグ&ドロップでImage1をPicture1に移動する方法
- VB6でImage1をPicture1にドラッグ&ドロップするプログラムを作成する方法について解説します。
- Image1の絵と外枠を一緒にドラッグできるようにする方法について説明します。
- ドロップする場所がPicture1以外の場合でもImage1を画面上に残す方法について説明します。
- みんなの回答 (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
お礼
回答ありがとうございます。 うまくできました!