Hvordan lage Click & dra objekter i Visual Basic

Klikke og dra objekter med musen inn i et program du har laget gir brukerne mer fleksibilitet. I et Visual Basic-program, brukerne trenger ofte å legge til objekter som for eksempel stier og filnavn til en listeboks kontroll. Bruk en kombinasjon av "dragdrop" og "DragEnter" for å håndtere gjenstander i løpet av en dra-og-slipp-operasjon. Den "DragEnter" hendelsen oppstår når musepekeren kommer inn i kontrollen, og "dragdrop" hendelse brukes til å håndtere objekter dratt.

Bruksanvisning

1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt ..." fra ruten til venstre på skjermen og velg "Windows Forms Application". Klikk på "OK".

2 Dobbeltklikk på "ListBox" fra "Toolbox" panelet for å legge til en ny liste bokskontroll til skjemaet. Høyreklikk listeboksen kontroll og klikk "Egenskaper". Velg "Riktig" ved siden av "AllowDrop" eiendom.

3 Dobbeltklikk på listeboksen for å åpne "Form1.vb" modul. Klikk på "Event" drop-down boksen og klikk "dragdrop" for å opprette en ny hendelse.

4 Kopier og lim inn følgende VB kode inne i "dragdrop" hendelse for å legge filbaner og navnene til listeboksen kontroll:

Dim myCompFiles As String () = CTYPE (e.Data.GetData (DataFormats.FileDrop), String ())

For Each fileFound As String In 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 inne i "DragEnter" hendelse:

Hvis e.Data.GetDataPresent (DataFormats.FileDrop) Deretter

e.Effect = DragDropEffects.Copy

Slutt om

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 valglisten i programmet mens du holder museknappen.