Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Drag & drop
Autor: michi-bib
Datum: 02.08.02 18:19
Hallo Seppel, wenn du dich auf den Drag and Drop Demo-Tipp beziehst vom 25.07.2002 (dessen Autor meine Wenigkeit war) weiß ich zwar nicht, was du da eher verwirrend findest. Das Beispiel 2.b. hätte dir eigentlich einen guten Ansatz liefern sollen. Die API in dem Beispiel hat nichts mit dem eigentlichen Drag und Drop zu tun und sollte nur zeigen das auch was passiert (Word wird z.B. gestartet, wenn du eine *.doc-Datei auf die Form ziehst). Aber hier nochmal speziell für ListBoxen: Den OLEDropMode der Listbox aus 1 setzen, sonst findet das Ereignis List1_OLEDragDrop nicht statt und dann die paar folgenden Zeilen in dieser Ereignisprozedur. Beispiel ist noch erweitert. Kannst auch mehrer Dateien markieren und gleichzeitig in die ListBox ziehen. Private Sub Form_Load() List1.OLEDropMode = 1 End Sub Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Long If Data.Files.Count = 0 Then Exit Sub For i = 1 To Data.Files.Count List1.AddItem Data.Files(i) Next i End Sub

Drag & drop	76	Seppel	01.08.02 17:36
Re: Drag & drop	70	michi-bib	02.08.02 18:19
Re: Drag & drop	57	Seppel	04.08.02 14:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen