Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Drag & Drop - jak to zrobić?
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002
Drag & Drop - jak to zrobić?

Witam!

Jak napisać procedurę, która przechwyci, że przeciągam do mojego okna jakiś plik i wyciągnie jego ścieżkę dostępu? Jestem zielony w tym temacie, bo nigdy nie potrzebowałem czegoś takiego, więc każda informacja jest dla mnie cenna...


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


05-10-2004 13:52
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Wklej ten kod do formy i spróbuj przenieść na nią kilka plików:

Private Sub Form_Load()
    AutoRedraw = True
    OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Cls
    For I = 1 To Data.Files.Count
        Print Data.Files(I)
    Next I
End Sub



_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

05-10-2004 14:53
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

To działa! Dzięki Chudy!


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


05-10-2004 14:58
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1