Viusal Basic Sürükle Bırak Yapmak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Azrail    1 Yorum    186 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 01.02.2016, 10:01:51 #1
Azrail Because.
Süper Üye
Status: Çevrimdışı Yorum Sayısı:545 Konu Sayısı:55 Üyelik Tarihi:24.01.2016 Rep Puanı: 75

Selamun Aleyküm Arkadaşlar Tamamen Benim Yazımdır....

Bunu Yapmak İçin 4 Tane Malzemeye İhtiyacımız Var....

Bunlar:
1adet Textbox
1adet Panel
1adet Picturebox
1adet Listbox

Arkadaşlar Bunları İstediğiniz gibi Yerleştirdikten sonra Bi ayar Yapıcaz...

Textbox,Panel ve Listbox'un allowdrop ayarını TRUE yapıyoruz.. Ve Aşağıdaki Kod İle Sürükle Bırak Yapabilirsiniz...



 

Kod:
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




Arkadaşlar Lütfen Emeğe Saygı....
Son Düzenleme: 01.02.2016, 10:18:50, Düzenleyen: Azrail.

Kullanıcı İmzası
En Karanlık Gece Bile Sona Erer ve Güneş Yeniden Doğar.


Adama Adam Gibi Davranırız.

Keşke Mallara Zam Gelsede Kendilerini Ucuza Satmasalar.

Paylaşım Tarihi: 11.02.2016, 17:28:33 #2
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:551 Konu Sayısı:161 Üyelik Tarihi:18.11.2015

EyvAllah Sağolasın







Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir