ドラッグ アンド ドロップ機能を使用するプログラムを作成しようとしていますが、コントロールではなくフォームに何かをドロップした場合にのみ機能します。コントロールを試してみると、「使用不可」カーソルが表示されます。
AllowDrop プロパティはプロパティ バーで設定され、フォームの読み込み時にも設定します。なぜ私はまだ物を落とすことができないのか分かりません。誰かが以前にこの問題を抱えていましたか?
現在のコード:
Public Class Main
Private Sub Main_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
If e.Data.GetDataPresent("FileDrop", True) = True Then
Dim Files() As String
Dim i As Integer
Files = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To Files.Length - 1
FileList.Items.Add(Files(i))
Next
End If
End Sub
Private Sub Main_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
End If
End Sub
Private Sub Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.AllowDrop = True
FilePath.AllowDrop = True
FileList.AllowDrop = True
End Sub
End Class