Klicka och dra föremål med musen i ett program som du har skapat ger dina användare med mer flexibilitet . I en Visual Basic applikation , användare behöver ofta lägga till objekt som vägar och filer namn till en listruta kontroll . Använd en kombination av " dragdrop " och " dragenter " att hantera föremål under en dra - och - släpp-funktion . Den " dragenter " händelse höjs när musen kommer in i kontroll , och " dragdrop " händelse används för att hantera de föremål dras. Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Launch Microsoft Visual Basic Express , klicka på " Nytt projekt ... " från den vänstra rutan på datorskärmen och välj " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " listruta " från " Toolbox " rutan för att lägga till en ny kontroll listrutan till formuläret . Högerklicka på kontrollen listrutan och klicka på " Egenskaper . " Välj " Sant " bredvid " AllowDrop " egendom .
3
Dubbelklicka på listrutan för att öppna " Form1.vb " modul . Klicka på "Event " listrutan och klicka på " dragdrop " för att skapa en ny händelse .
4
Kopiera och klistra in följande VB koden inuti " dragdrop " händelse för att lägga till sökvägar och namn till listrutan kontroll :
Dim myCompFiles As String ( ) = ctyp ( e.Data.GetData ( DataFormats.FileDrop ) , String ( ) ) katalog
för varje fileFound As String In myCompFiles
Me.ListBox1.Items.Add ( fileFound ) katalog
Nästa
5
Klicka på "Event " listrutan och klicka på " dragenter " för att skapa en ny händelse. Kopiera och klistra in följande VB koden inuti " dragenter " händelse :
p Om e.Data.GetDataPresent ( DataFormats.FileDrop ) Sen
e.Effect = DragDropEffects.Copy
End If
6
arbetsförmedlingarna " F5 " för att köra programmet . Öppna " Utforskaren " genom att trycka på Windows -tangenten och " E " Klicka på en fil och dra filen över till listrutan i ditt program medan du håller ned musknappen .
