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

[Fmulti]

Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma 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.