Uz Galaxy - Info Archive top BBS   RSS
Info Archive  Drag&Drop - ドロップされたファイルの一覧  

    Private Sub lvwFile_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lvwFile.DragDrop
        Dim sFileName As String() = e.Data.GetData(DataFormats.FileDrop)
        Dim I As Integer

        With lvwFile
            For I = 0 To UBound(sFileName)
                Debug.WriteLine(sFileName(I))
            Next
        End With
    End Sub


Copyright © 2004 Uz. All rights reserved.
http://uzgalaxy.com/
このページはInfoArchiveで作成されています。