+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: Drag and Drop With List Box (/showthread.php?tid=1957)
Drag and Drop With List Box - Amin_Mansouri - 03-24-2012
Drag and Drop is an amazing feature to add to your application when you are trying to create a slick and intuitive interface for your end users. It also adds a wow factor that impresses people when they first start using an application. Another great benefit of adding drag and drop functionality to your application is that it is very logical for the user. In real life if I want to move a piece of paper from one stack to another I simply pick it up, move it, and place it in the new stack. This is the exact same gesture I go through with Drag and Drop.
To use this source sample create a new VB project, add a listbox control to the form and set its DragMode property to Automatic. Go to the code window and add the following code.
کد:
'Add Control listbox
Private Sub Form_Load()
'List1.OLEDragMode = 0
List1.OLEDropMode = 1
End Sub
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ItemCount As Integer
Dim I As Integer
On Error Resume Next
ItemCount = Data.Files.Count
For I = 1 To ItemCount
List1.AddItem Data.Files(I)
Next
If Err Then Err.Clear
End Subبا کد بالا که ادیتش هم کردم میتونید در لیست باکستون فایل اضافه کنید یا درگ کنید (با ماوس فایل رو میگیرید و داخل لیست باکس رها میکنید , ادرس فایل ها در لیست باکس اضافه میشن )