klikke og trække objekter med musen i et program, du har oprettet giver dine brugere med større fleksibilitet. I en Visual Basic-program , ofte brugerne nødt til at tilføje objekter som stier og filer navne til en liste kontrol. Brug en kombination af " DragDrop " og " DragEnter " til at håndtere genstande i løbet af en træk-og- slip funktion . Den " DragEnter " hændelsen rejses , når musen ind i kontrol , og " DragDrop " begivenhed bruges til at håndtere objekter trækkes. Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Launch Microsoft Visual Basic Express , klik på " Nyt projekt ... " fra venstre rude af din computerskærm , og vælg "Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " ListBox " fra " Toolbox" ruden for at tilføje en ny liste kontrol til formularen. Højreklik på listen kontrol og klik på " Egenskaber". Vælg "Sand " ved siden af " AllowDrop " ejendom .
3
Dobbeltklik på listen for at åbne " Form1.vb "-modulet . Klik på " Event" drop- down boks og klik på " DragDrop " for at oprette en ny begivenhed.
4
Kopier og indsæt følgende VB kode inde i " DragDrop " begivenhed for at tilføje filstier og navne til listen styring:
Dim myCompFiles As String () = ctype ( e.Data.GetData ( DataFormats.FileDrop ) String () )
for Each fileFound As String In myCompFiles < br >
Me.ListBox1.Items.Add ( fileFound )
Næste
5
Klik på " event" drop- down boks og klik på " DragEnter " for at oprette et nyt begivenhed . Kopier og indsæt følgende VB kode inde i " DragEnter " begivenhed : Hej p Hvis e.Data.GetDataPresent ( DataFormats.FileDrop ) Så
e.Effect = DragDropEffects.Copy
< p > End If
6
Pess " F5 " for at køre programmet. Åbn "Windows Stifinder " ved at trykke på Windows-tasten og "E" Klik på en fil og trække filen over på listen i dit program , mens du holder museknappen nede .