کشیدن و رها کردن (Drag and Drop)

[vb2005]

سلام دوستان چطور میشه :متفکر: عملیات کشیدن و رها کردن (Drag and Drop) بر روی یک عکس که روی فرم قرار گفته انجام داد.:لبخندساده:

[__siavash__]

اینو ببین کمک میکنه !
چند تا عکس رو روی فرم درگ کن بعد که تو لیست باکس اومدن روشون کلیک کن

[vb2005]

سیاوش جان اگه ممکنه بصورت کد بذار چون نمیتونم دانلود کنم.ممنون.

[__siavash__]

یه لیست باکس روی فرمت بذار بعد این کدا رو توش کپی کن !


Option Explicit
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.Clear
Dim i As Integer
For i = 1 To Data.Files.Count
List1.AddItem Data.Files.Item(i)
Next
End Sub

Private Sub List1_Click()
Me.Picture = LoadPicture(List1.List(List1.ListIndex))
End Sub

[vb2005]

دستت دردنکنه.