/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
drag'n'drop filer
Fra : Bjarke Walling Peter~


Dato : 09-11-01 23:40

Hvis jeg nu har f.eks. en PictureBox (eller en eller anden, anden
komponent)...
Hvordan gør jeg så at man kan drag' filer fra f.eks. en mappe eller
skrivebordet ind i den?
Og hvordan gør man så man kan drag' en fil ud fra programmet på f.eks.
skrivebordet?

Håber nogen kan hjælpe...

- Bjarke Walling Petersen



 
 
Rayman (12-11-2001)
Kommentar
Fra : Rayman


Dato : 12-11-01 16:51

Jeg har dette eksempel der virker fra en picturebox:

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button
As Integer, Shift As Integer, X As Single, Y As Single)
If Data.Files.Count <> 1 Then
MsgBox "Du kan kun bruge én fil."
Else
On Error Resume Next
Err.Number = 0
Picture1.Picture = LoadPicture(Data.Files.Item(1))
If Err.Number <> 0 Then
MsgBox "Filformatet var ikke kendt"
Picture1.Cls
End If
End If
End Sub

Håber det hjælper!

mvh. Rayman.


"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:3bec5b7a$0$760$edfadb0f@dspool01.news.tele.dk...
> Hvis jeg nu har f.eks. en PictureBox (eller en eller anden, anden
> komponent)...
> Hvordan gør jeg så at man kan drag' filer fra f.eks. en mappe eller
> skrivebordet ind i den?
> Og hvordan gør man så man kan drag' en fil ud fra programmet på f.eks.
> skrivebordet?
>
> Håber nogen kan hjælpe...
>
> - Bjarke Walling Petersen
>
>



Bjarke Walling Peter~ (13-11-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 13-11-01 01:37

Mange mange tak!

Det hjalp utrolig meget...

- Bjarke Walling Petersen

"Rayman" <rayman_dk@email.com> skrev i en meddelelse
news:3beff319$0$357$edfadb0f@dspool01.news.tele.dk...
> Jeg har dette eksempel der virker fra en picturebox:
>
> Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long,
Button
> As Integer, Shift As Integer, X As Single, Y As Single)
> If Data.Files.Count <> 1 Then
> MsgBox "Du kan kun bruge én fil."
> Else
> On Error Resume Next
> Err.Number = 0
> Picture1.Picture = LoadPicture(Data.Files.Item(1))
> If Err.Number <> 0 Then
> MsgBox "Filformatet var ikke kendt"
> Picture1.Cls
> End If
> End If
> End Sub
>
> Håber det hjælper!
>
> mvh. Rayman.
>
>
> "Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
> news:3bec5b7a$0$760$edfadb0f@dspool01.news.tele.dk...
> > Hvis jeg nu har f.eks. en PictureBox (eller en eller anden, anden
> > komponent)...
> > Hvordan gør jeg så at man kan drag' filer fra f.eks. en mappe eller
> > skrivebordet ind i den?
> > Og hvordan gør man så man kan drag' en fil ud fra programmet på f.eks.
> > skrivebordet?
> >
> > Håber nogen kan hjælpe...
> >
> > - Bjarke Walling Petersen
> >
> >
>
>



Bjarke Walling Peter~ (13-11-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 13-11-01 01:47

Men det ville selvfølgelig stadigvæk være rart at have koden til drag filer
ud af f.eks. en PictureBox... Jeg har næsten regnet ud at man skal sætte
hvilke filer man vil drag' ud i Data.Files-collectionen. Men i hvilken
OLE-event (det er vel en af OLE-events'ne)?

Er der nogen med nogle forslag?

- Bjarke Walling Petersen



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408887
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste