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 .