PictureBox控件没有AllowDrop，如何解决拖放问题

[清风不拂面]

我现在用的是vs2017+win10 ,PictureBox控件没有AllowDrop属性，如何解决拖放图片文件到图片框的问题？谢谢
另外，尝试在窗体控件设置AllowDrop=true后，拖放文件也不成功，是怎么回事？

[清风不拂面]

非常好，问题解决，谢谢！

[JCJC错别字检测-田春峰]

我也发现 richtextbox 也没有 allowdrop 这个属性！

[5idonet]

‘可以考虑将PictureBox放在Panel中

'Me.Panel1.AllowDrop = True
    Private Sub Panel1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragDrop
        Dim str() As String = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
        If str.Length > 1 Then
            Exit Sub
        Else
            sender.Text = str(0)
            Me.PictureBox1.ImageLocation = str(0)
        End If
    End Sub

    Private Sub Panel1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Move
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub