drag drop در listview

[xxnagin]

با این دستور در vb6 میشه فایل را از پوشه داخل listbox اضافه کنیم
یه listbox در vb6 اضافه کنید و اجرا کنید
بعد چند فایل را به داخل list اد کنید


Private Sub Form_Load()
lstFileNames.OLEDropMode = 1
End Sub
Private Sub lstFileNames_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 1 To Data.Files.Count
lstFileNames.AddItem (Data.Files(i))
Next
End Sub
فقط من میخوام معادلش در vb.net چطوری هستش

[Ghaisard]

سلام

در vb.net به اين صورته :


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.AllowDrop = True
End Sub

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

e.Effect = DragDropEffects.Copy
End Sub

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

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
MyFiles = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To MyFiles.Length - 1
ListBox1.Items.Add(MyFiles(i))
Next
End If

End Sub