Fare clic su " Start" di Windows e fare clic su " Microsoft Visual Basic 2005 . "
2
Clicca su " Strumenti " nella finestra aperta per aggiungere un controllo ListBox al form predefinito " Form1 " .
3
Modificare la proprietà " AllowDrop " del controllo ListBox a "True" nella finestra " proprietà" per consentire agli oggetti di essere trascinati sul controllo .
4
destro del mouse su " Form1 " e quindi fare clic su " Visualizza codice " in
5
Aggiungere il seguente codice al di sotto della classe Form1 " Solution Explorer ". :
private Sub ListBox1_DragEnter ( ByVal sender As Object , _
ByVal e As
System.Windows.Forms.DragEventArgs ) _
Maniglie ListBox1.DragEnter
( e.Data.GetDataPresent ( DataFormats.FileDrop )) Then
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects . Nessuno
End If End Sub
6
Aggiungere il codice seguente alla classe Form1 :
privato ListBox1_DragDrop Sub ( ByVal sender As Object, _
ByVal e As
System.Windows.Forms.DragEventArgs ) _
Maniglie ListBox1.DragDrop
Dim s ( ) As String = e.Data.GetData ( " FileDrop " , False ) per
Dim i As Integer
For i = 0 To s.length - 1
ListBox1.Items.Add ( s ( i) ) per
Next i
End Sub
per gestire il rilascio di evento di trascinamento .
7
Fare clic su " File" e quindi cliccate su " Salva ' per abilitare la funzione drag-n -drop sul modulo di Windows nel vostro programma di Visual Basic 2005 .
Programmazione © www.354353.com