Viusal Basic ile Sürükle Bırak Yapımı - VB.Net

 Biliyorum. Aradan neredeyse 1-2 yıl felan geçti Visual Basic kodları paylaşmamam. Ama gene yavaş yavak ara sıra paylaşmaya başlıyorum. Bu vereceğim ders ile Visual Basic'de program yapan arkadaşlar sürükle bırak özelliği ile bir objeyi program esnasında sürükleyebilir ve istediği yerde bırakabilmesini sağlayacağız.

 Bunun için 4 adet malzemeye ihtiyacımız var. Peki nedir bu malzemeler*

• 1 adet TextBox
• 1 adet Panel
• 1 adet PictureBox
• 1 adet ListBox

Bunları programda zevkinize göre yerlerine yerleştirdikten sonra bir ayar yapmamız gerekiyor.

Texbox, panel ve listbox'ın allowdrop ayarını True yapmalısınız. True yapmayı sakın unutmayın!

Ve aşağıdaki kod ile sürükle bırak işlemini yapabilirsiniz.

Public Class Form1

    Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop

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

        For Each filename As String In path

            TextBox1.Text = filename

        Next

    End Sub

    Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

            e.Effect = DragDropEffects.Copy

        End If

    End Sub

    Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop

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

        For Each filename As String In path

            ListBox1.Items.Add(filename)

        Next

    End Sub

    Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

            e.Effect = DragDropEffects.Copy

        End If

    End Sub

    Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop

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

        For Each filename As String In path

            PictureBox1.ImageLocation = filename

            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom

        Next

    End Sub

    Private Sub Panel1_DragEnter(sender As Object, e As DragEventArgs) Handles Panel1.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

            e.Effect = DragDropEffects.Copy

        End If

    End Sub

End Class

 Bu kadar arkadaşlar. Zorlandığınız ve yapamadığınız yerler olursa yorumda belirtin size elimden geldiğince yardım etmeye çalışacağım.