Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " vo Windows a kliknite na " Microsoft Visual Basic 2005 . "
2
v otvorenom okne kliknite na " Nástroje " , pridať ovládací prvok zoznamu na predvolené " Form1 " forma .
3
Zmeňte " AllowDrop " vlastnosť ovládacieho prvku zoznamu na hodnotu " true " v " Properties " okno umožňujúce objekty , ktoré chcete pretiahnuť do ovládacieho prvku .
4
Pravým - kliknite na " Form1 " a potom kliknite na " Zobraziť kód "
5
Pridajte nasledujúci kód pod triede Form1 " Solution Explorer . " :
Private Sub ListBox1_DragEnter ( byVal sender As Object , _ byval e
Ako
System.Windows.Forms.DragEventArgs ) _
Kľučky ListBox1.DragEnter
( e.Data.GetDataPresent ( DataFormats.FileDrop ) ) Potom
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects . Žiadna
End If
End Sub
6
Pridajte nasledujúci kód triedy Form1 : klipart
Private Sub ListBox1_DragDrop ( byVal sender As object , _ byval e
Ako
System.Windows.Forms.DragEventArgs ) _
Kľučky ListBox1.DragDrop
Dim y ( ) As String = e.Data.GetData ( " FileDrop " , False )
Dim i As Integer
i = 0 s.Length - 1
ListBox1.Items.Add ( s ( i ) )
Next i
End Sub
zvládnuť uvoľňovanie udalosti pretiahnutia .
7
Kliknite na " Súbor " a kliknite na tlačidlo " Uložiť " , aby funkcia drag -n- drop na formuláre systému Windows v programe Visual Basic 2005 .