drag and drop

.ppp filen kunne lige så godt have heddet .hmm
den skal bare åbne filen med txt i en listbox

'------------------------------- Form1 -------------------------------
Option Explicit

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 Integer
Dim strName As String
  With Data
      For i = 1 To .Files.Count
        strName = LCase$(.Files(i))
        If Right$(strName, 4) = ".hmm" Then
          'tilføjer alle filer med .hmm
          List1.AddItem strName
        End If
      Next
  End With
End Sub
'------------------------------- Form1 -------------------------------

Så skal du bare åbne de filer som står i List1

det kunne du gøre sådan:

Private Sub List1_DblClick()
Dim strOut As String
  Open List1.List(List1.ListIndex) For Binary Access Read As #1
    strOut = Space$(LOF(1))
    Get #1, 1, strOut
  Close #1
  Text1.Text = strOut
End Sub

husk en TextBox (Text1)

sjh kan du ikke vise hvordan man tager en fil og smider den ind i programmet
og så vil den hente et billede fra nettet

Øhhh - hvad mener du?

"Smider en fil ind i programmet"
Hvad mener du - skal den dragges/droppes, så er det vist allerede vist.

"vil den hente et billede fra nettet?"
Hvilket billede skal hentes - og hvor skal det hentes fra, et bestemt sted, eller? Hvor skal det hentes hen, skal det åbnes i programmet, skal det gemmes på disken?

Hmmm...

Download af filer:

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&spm_creator=&spm_part=&spm_answer=&find=download&method=and&catid=5&htsort=score&engine=exp

Husk at lukke når du har fået svar nok :o)