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.
Visual Basic Sürükle Bırak
 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. 
Batuhan Pol

Batuhan P.

12'li yaşlarda tanıştığım bu sektöre şuanla beraber olmak üzere 10 yıldır sürdürmekteyim. Küçük yaşlarda milyonların girdiği projeler yapsamda çocukluk aklım ve imkanlar dolayısıyla erken biten maceralar oldu. Şimdi ise yerlerinde başkaların yaptığı projeler var. Yoksa bende milyoner olurdum heralde :)

Post A Comment:

0 comments: