Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
   
Konu: Vb.Net - Sürükle bırak kullanımı
LuckMania
*
avatar
Sivile Alındı
Durum: Çevrimdışı
Seviye Puanı: 17
Yaşam Puanı: 83 / 419
Deneyim: 79 / 100
Rep Sayısı: 8
Mesaj Sayısı: 364
Üyelik Tarihi: 11.09.2013
     
Yorum: #1
Vb.Net - Sürükle bırak kullanımı
02.11.2013 19:55
1 Textbox
1 Panel
1 Picturebox
1 Listbox

- Textbox , panel ve listbox'ın allowdroplarını "true" yapın.
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
Başlık : Vb.Net - Sürükle bırak yapımı - Ders 1/9
Kısa Açıklama : vb.net ile sürükle bırak yapımı.
Kaynak Dosya : Yok
Ders Seviyesi : Kolay
Gerekli Dosyalar : Yok
Sadece Kod : Evet
Yapım : Cyberizm - Doğan™
Alinti



1 Ziyaretçi
[-]
Sponsor Reklam