کشیدن و رها کردن (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]

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