کشیدن یکی از ایتم های لیست باکس و رها کردن ان در ویندوز برای کپی

[NEMA1375]

با عرض سلام
امروز میخوام یه چیزی یادتون بدم که فکر میکنم به دردتون بخوره
فرض کنین یک لیست باکس دارین
که توی اون اسم تعدادی فایل رو اضافه کردین
با این کد شما میتونین یکی از ایتم های لیستتون رو درگ کرده یا همون کشیده و در یکی از پوشه های ویندوز رها کنین
با این کد به محض رها کردن فایلی که از لیستتون درگ کردین به جایی که رها کردین کپی میشه
خب شروع کنیم
این کد رو در خاصیت mouse-move لیستتون قرار بدین
البته میتونین برای همه ی کنترل ها نیز استفاده کنین
On Error Resume Next
If e.Button = Windows.Forms.MouseButtons.Left Then
("Dim temp = IO.Path.Combine("c:\temp", "c:\temp\new.mp3
( FileCopy("d:\music\ali.mp3", temp
({Dim obj As New DataObject(DataFormats.FileDrop, New String() {temp
(ListBox1.DoDragDrop(obj, DragDropEffects.Copy
( Kill(temp
End If


در این کد:
c:\temp پوشه ای است که فایل به طور موقت در ان ذخیره میشود
c:\temp\new.mp3 در پوشه تمپ این فایل ایجاد شده و ذخیره میشود که بعد از کپی در جایی که فایل را رها کردین نام فایل new.mp3 خواهد شد
d:\music\ali.mp3 این فایل اصلی هست که کپی میشود اگر در لیستتون نام فایل رو دارین میتونین اونو جایگزین کنین
در اخر هم فایلی که به صورت موقت ذخیره شده بود حذف میکند