Quando você está desenvolvendo uma solução você já pelo nome "Solução", está tentando melhorar a vida do seu usuário, utilizar o Drag and Drop ou Arrasto do Mouse ajuda muito e agora em simples passou vou lhes demonstrar um exemplo de como arrastar um arquivo para dentro de sua aplicação e ele irá pegar o caminho do arquivo.

Vamos iniciar um Projeto Windows Application.

Arraste um ListBox para dentro do formulário, ajuste ao tamanho que desejar, será o local que devamos arrastar os nossos arquivos.

Configure a propriedade do nosso ListBox que nos permitira utilizar o Drag and Drop.  A propriedade chamada AllowDrop para True




Vá para a área de Código e  Digite o Código como mostra na imagem abaixo.


Caso a imagem tenha ficado ruim o código está escrito abaixo.

  Private Sub listbox1_DragEnter(ByVal sender As System.Object, _

                        ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop, False) = True Then

            e.Effect = DragDropEffects.All

        End If

    End Sub

 

    Private Sub listbox1_DragDrop(ByVal sender As System.Object, _

                                    ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop

        Dim files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())

        For Each file As String In files

            ListBox1.Items.Add(file)

        Next

        e.Effect = DragDropEffects.All

    End Sub


Execute seu programa e realize o teste arrastando algum arquivo para dentro do seu listbox.




Simples e com certeza se bem utilizado esta técnica de Drag and Drop é bem útil para seus sistemas.