Klikken en objecten met de muis te slepen naar een programma dat u hebt gemaakt biedt uw gebruikers meer flexibiliteit . In een Visual Basic applicatie , gebruikers moeten vaak objecten zoals paden en bestandsnamen op een keuzelijst toe te voegen . Gebruik een combinatie van " DragDrop " en " DragEnter " om objecten te hanteren tijdens een drag - en - neerzetten . De " DragEnter " event wordt verhoogd wanneer de muiscursor komt in de controle , en de " DragDrop " event wordt gebruikt voor de hantering van de objecten gesleept . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Basic Express , klikt u op " New Project ... " uit het linkervenster van uw computerscherm en selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " ListBox " 2 van de " Toolbox " deelvenster naar een nieuwe keuzelijst toe te voegen aan het formulier . Rechtermuisknop op de keuzelijst en klik op 'Eigenschappen'. Kies " True " naast de " AllowDrop " eigenschap .
3 Dubbelklik op de keuzelijst om de " Form1.vb " module te openen . Klik op de " Event " drop - down box en klik op " DragDrop " om een nieuwe gebeurtenis te maken .
Kopieer 4 en plak de volgende code VB binnen de " DragDrop " event om het bestand paden en namen toevoegen aan de keuzelijst : Dim myCompFiles
As String ( ) = C ( e.Data.GetData ( DataFormats.FileDrop ) , String ( ) ) op voor Elke fileFound As String In myCompFiles < br Me.ListBox1.Items.Add ( fileFound ) > Volgende
5
Klik op de " Event " drop - down box en klik op " DragEnter " om een nieuwe te maken event . Kopieer en plak de volgende code VB binnen de " DragEnter " event :
Als e.Data.GetDataPresent ( DataFormats.FileDrop ) Dan
e.Effect = DragDropEffects.Copy
End If
Pess " F5 " 6 om het programma uit te voeren . Open " Windows Verkenner " door op de Windows-toets en " E. " Klik op een bestand en sleep het bestand naar de keuzelijst in uw programma, terwijl de muisknop ingedrukt houdt .
|
