Teil 6: Projekt-Manager versus Visual-Basic-2005-Mangel

1. Projekt-Manager versus Visual-Basic-2005-Mangel
2. Teil 2: Projekt-Manager versus Visual-Basic-2005-Mangel
3. Teil 3: Projekt-Manager versus Visual-Basic-2005-Mangel
4. Teil 4: Projekt-Manager versus Visual-Basic-2005-Mangel
5. Teil 6: Projekt-Manager versus Visual-Basic-2005-Mangel
6. Teil 7: Projekt-Manager versus Visual-Basic-2005-Mangel
7. Teil 8: Projekt-Manager versus Visual-Basic-2005-Mangel

Alle Aktionen werden bisher über Buttons ausgelöst, besser wäre Drag & Drop, was unter VB8 einfach ist. In drei immer gleichen Schritten fügen Sie diese Funktionalität in Ihre Projekte ein.

© Archiv

Als Erstes setzen Sie die AllowDrop-Eigenschaft für die Steuerelemente, die Drop zulassen sollen, auf True. Das geschieht im Eigenschaftenfenster oder zur Laufzeit im Programmcode wie etwa in der Ereignisprozedur Form_Load.

Private Sub Form1_Load(...) Handles
MyBase.Load ...
TextBox1.AllowDrop = True
Label2.AllowDrop = True
...
End Sub

Danach folgen noch zwei Schritte. Die Steuerelemente, für die AllowDrop = True ist, werden beim "Einschweben" des Kopierobjekts, d.h. in der DragEnter-Ereignisprozedur aktiviert. Dafür schreiben Sie die Prozedur File- DropActivate, die Sie dann für alle anderen Objekte nutzen, bei denen "gedropt" werden soll.

Private Sub TextBox1_DragEnter(...) _
Handles TextBox1.DragEnter
...
FileDropActivate(e)
...
End Sub
Sub FileDropActivate(ByVal e As
System.Windows.Forms.DragEventArgs)
If
e.Data.GetDataPresent(DataFormats.FileD
rop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub

Die eigentliche Drop-Aktion wird in der jeweiligen DragDrop-Prozedur aufgerufen. Hier haben Sie die Kopieraktion für Dateien in die selbstständige Prozedur GetDroppedFiles ausgelagert. Auch diese verwenden Sie so für alle entsprechenden Aktionen.

Private Sub TextBox1_DragDrop(...)
Handles TextBox1.DragDrop

In GetDroppedFiles finden Sie die Lösung, mit der Sie eine beliebige Anzahl von markierten Datei- und Ordnernamen per Drop einlesen.

Function GetDroppedFiles(...) As String