klikke og dra objekter med musen inn i et program du har opprettet gir brukerne med mer fleksibilitet . I en Visual Basic-programmet , brukere ofte behov for å legge til objekter som for eksempel stier og filer navn til en listeboks -kontroll . Bruk en kombinasjon av " dragdrop " og " DragEnter " for å håndtere gjenstander under en dra-og - slipp-operasjon . Den " DragEnter " hendelsen oppstår når musepekeren kommer inn i kontrollen , og " dragdrop " hendelse brukes til å håndtere objektene dratt . Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

Launch Microsoft Visual Basic Express , klikker du "New Project ... " fra ruten til venstre på skjermen , og velg "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Liste- " fra " Toolbox" -ruten for å legge til en ny liste kontrollen til skjemaet . Høyreklikk på listen kontrollen og klikk " Egenskaper". Velg " Ekte" ved siden av " AllowDrop " eiendom .
3

Dobbeltklikk på listen for å åpne " Form1.vb " modulen. Klikk på "Event " drop -down boksen og klikk " dragdrop " for å opprette en ny hendelse .
4

Kopier og lim inn følgende VB kode på innsiden av " dragdrop " hendelse for å legge til filbaner og navn til listeboksen kontroll:

Dim myCompFiles Som String ( ) = ctype ( e.Data.GetData ( DataFormats.FileDrop ) , String ( ) )

Hver fileFound As String i myCompFiles

Me.ListBox1.Items.Add ( fileFound )

Neste
5

Klikk på "Event " drop -down boksen og klikk " DragEnter " for å opprette en ny hendelse. Kopier og lim inn følgende VB kode på innsiden av " DragEnter " hendelse : en p Hvis e.Data.GetDataPresent ( DataFormats.FileDrop ) Så

e.Effect = DragDropEffects.Copy
< p > End If
6

Dess "F5 " for å kjøre programmet . Åpne "Windows Explorer" ved å trykke på Windows-tasten og " E." Klikk på en fil og dra filen over til listen i programmet mens du holder museknappen .