画像のドラッグアンドドロップができない

Question

実現したいこと

エクスプローラーからJPG画像をドラッグアンドドロップしたいのですができません。

発生している問題・エラーメッセージ

ドラッグしたときにマウスカーソルの形が駐車禁止マークのままです。

該当のソースコード

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Me.AllowDrop = True
    PictureBox2.AllowDrop = True
End Sub
Private Sub PictureBox2_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox2.DragEnter
    If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
        e.Effect = DragDropEffects.Copy
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub
Private Sub PictureBox2_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox2.DragDrop
    Dim strFileName As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
    PictureBox2.Image = System.Drawing.Image.FromFile(strFileName(0))
End Sub

試したこと

Form1のプロパティ画面でAllowDropをTrueにしました。

補足情報

Windows 11 Pro
Visual Studio 2022 (64 ビット)

お力添え、よろしくお願いします。

Comments

[YAmaGNZ]

提示されているコードを実行してみましたが、Form1上では駐車禁止マーク、PictureBox2上ではコピー状態となり、PictureBox2上でドロップしたらその画像が表示されました。
どのあたりが思っている動作と違うのでしょうか？

Answer 1

大変失礼しました。
PictureBox2のプロパティでEnabledがFalseになっていました。
Trueにしたら思い通りの結果が得えられました。
お騒がせしました。