[비주얼베이직] 드래그앤드롭으로 파일 경로 불러오기

비주얼베이직 닷넷에서 드래그 앤 드롭으로 파일 경로 불러오기

 

* 아래 소스를 입력하기 전에 TextBox의 AllowDrag 속성을 True 로 바꿔주세요.

 

Imports System.IO Public Class Form1 Private Sub txtDirPath_DragEnter(sender As Object, e As DragEventArgs) Handles txtDirPath.DragEnter e.Effect = DragDropEffects.Copy End Sub Private Sub txtDirPath_DragDrop(sender As Object, e As DragEventArgs) Handles txtDirPath.DragDrop If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop) Me.txtDirPath.Clear() For Each sf In strFiles Convert.ToString(sf) Me.txtDirPath.Text = txtDirPath.Text & sf Next End If End Sub End Class