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    230 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 01.02.2016, 10:01:51 #1
Azrail Because.
Süper Üye
Status: Çevrimdışı Yorumları:534 Konuları:55 Kayıt 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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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ışı Yorumları:545 Konuları:161 Kayıt Tarihi:18.11.2015

EyvAllah Sağolasın










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

Konuyu Okuyanlar:
1 Ziyaretçi