Drag&Drop

[Ramzes]

В стандартном блокноте есть такая функцыя: Берешь файл из проводника и тянеш на блокнот в результате чего блокнот открывает етот файл. А как сделать так же с текстовыми файлами в VB, и как сделать такое с картинками?

[Kostyan]

Помести на форму TextBox, сделай его многострочным (Multiline=True), свойство OLEDropMode сделай равным 1(Manual). И в событии OLEDragDrop вставь этот код:

Код: Выделить всё

Dim s As String
Text1.Text = ""
If GetAttr(Data.Files(1)) <> vbDirectory Then 'Проверяем, не папка ли это
  Open Data.Files(1) For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    Text1.Text = Text1.Text & s & vbCrLf
  Loop
  Close (1)
  Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 2) 'Удаляем последний vbCrLf
End If


С картинками делается точно так же.