Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Vb.Net - Sürükle bırak kullanımı
#1
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™
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  vb2010 if then kullanımı Mentalistler 0 475 15-06-2014, Saat: 04:05
Son Yorum: Mentalistler
Anahtar Kelimeler

Vb.Net - Sürükle bırak kullanımı indir, Vb.Net - Sürükle bırak kullanımı Videosu, Vb.Net - Sürükle bırak kullanımı Online izle, Vb.Net - Sürükle bırak kullanımı Bedava indir, Vb.Net - Sürükle bırak kullanımı Yükle, Vb.Net - Sürükle bırak kullanımı Hakkında, Vb.Net - Sürükle bırak kullanımı Nedir, Vb.Net - Sürükle bırak kullanımı Free indir, Vb.Net - Sürükle bırak kullanımı Oyunu, Vb.Net - Sürükle bırak kullanımı Download


1 Ziyaretçi