VB.NET Sürükle Bırak (Drag-Drop)

[Fmulti]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Kodları:
Imports System.IO
-------------------------------------------------------

Private Sub TextBox1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each fileLoc As String In filePaths
If File.Exists(fileLoc) Then
TextBox1.Text = fileLoc
End If
Next fileLoc
End Sub
Private Sub TextBox1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub​

​

 

[langir]

saol kardeş bunu ben class olarak yaptım

 

[Fmulti]

saol kardeş bunu ben class olarak yaptım

Birşey değil.

 

[OptiMistics]

teşekkür ederim.

 

[Fmulti]

teşekkür ederim.

Bir şey değil.
Görevimiz.