17 Апрель 2009

Drag & Drop

Разное |  Таги: ,

Drag & Drop

Option Explicit 

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.OLEDropMode = vbOLEDropManual
End Sub 

'над формой "проносим файл"
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    Me.Cls
    Me.Print "Список перетаскиваемых файлов:"
    Dim File As Variant
    For Each File In Data.Files
        Me.Print File
    Next File
End Sub 

'"отпускаем файл" на форму
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Cls
    Me.Print "Список полученных файлов:"
    Dim File As Variant
    For Each File In Data.Files
        Me.Print File
    Next File
End Sub

Запись опубликована on 17.04.2009 at 12:53 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас один комментарий на запись “Drag & Drop”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 15.10.2009, Евгений said:

    ‘создать форму form1
    ‘добавить на форму label1
    ‘вставить следующий код:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.AllowDrop = True
    End Sub

    Private Sub form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
    If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    e.Effect = DragDropEffects.All
    End If
    End Sub

    Private Sub form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
    If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    Dim MyFiles() As String
    Dim i As Integer

    ‘ Assign the files to an array.
    MyFiles = e.Data.GetData(DataFormats.FileDrop)
    ‘ Loop through the array and add the files to the list.
    Label1.Text = «»
    For i = 0 To MyFiles.Length — 1
    Label1.Text += MyFiles(i)
    if i MyFiles.Length — 1 then
    Label1.Text += «|»
    end if
    Next
    End If
    End Sub

Оставить комментарий

Я не робот.