コントロールのPictureBox1からPictureBox2に画像をドラッグ & ドロップする方法

環境/言語:[環境(Windows7、VB2008]
分類:[.NET]

2011/08/23(Tue) 13:13:20 編集(投稿者)
2011/08/23(Tue) 13:12:06 編集(投稿者)
2011/08/23(Tue) 10:20:44 編集(投稿者)
2011/08/23(Tue) 10:19:46 編集(投稿者)
2011/08/23(Tue) 10:13:58 編集(投稿者)

VB2008のコントロール
PictureBox1からPictureBox2に画像をドラッグ & ドロップする方法を何方か
教えて頂けないでしぃうか


色々試していますがドラッグ側がうまく行きません。

エクスプローラで画像をPictureBox2にドラッグ & ドロップはうまく行きますが
VB2008のコントロールのPictureBox1からのドラッグがうまく行きません

なにぶんVB2008開発歴一週間目なので
出来ましたら具体的ななコード記述お願いいたします


Dim ii As Integer

For ii = 0 To 6
PictureBox2(ii).AllowDrop = True
Next ii


Private Sub PictureBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter

Dim Index As Short = PictureBox2.GetIndex(sender)

？？このあたりも自身ありません？？
'If (e.Data.GetDataPresent(DataFormats.Text)) Then
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'If e.Data.GetDataPresent(GetType(BITMAP)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub


Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop

Dim Index As Short = PictureBox2.GetIndex(sender)
Dim strFileName As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())

strFileName = e.Data.GetData(DataFormats.FileDrop, False)
PictureBox2(Index).Image = System.Drawing.Image.FromFile(strFileName(0))
End Sub




Private Sub PictureBox1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

Dim Index As Short = PictureBox1.GetIndex(eventSender)

'マウスの左ボタンだけが押されている時のみドラッグできるようにする
If eventArgs.Button = MouseButtons.Left Then
　　　　　？？ここに記述するする？？


End If

End Sub


宜しくお願いいたします。

■No28930に返信(タクミさんの記事)

MouseDownでFlgをTrue
MouseUpでFlgをFalse
MouseMoveでFlgがTrueならDoDragDrop