[الـ ـجارح]

مرحبا اخوي حسن كل التعديلات خلاص انا عملتها


لكن الى الان اريد السحب من البيكتشر بوكس الى الويندوز (احتاجها ضروري) حتى بالمنتديات الاجنبيه بحثت ولكن لم احصل حل

هذا كود يقوم بوضع الصورة من الكمبيوتر الى بيكتشر بوكس عن طريق السحب ..انا اريد العكس .. من بيكتشر بوكس الى الكمبيوتر

كود :

Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
     Dim picstr() As String
     Dim str As String
     If e.Data.GetDataPresent(DataFormats.FileDrop) Then
         picstr = e.Data.GetData(DataFormats.FileDrop)
         str = picstr(0)
         PictureBox1.ImageLocation = str
     End If
 End Sub

 Private Sub PictureBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
     e.Effect = e.AllowedEffect
 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     PictureBox1.AllowDrop = True
 End Sub

وهذا المشروع عملته للتجربه ..لكني اريد العكس انا
http://up.top4top.net/downloadf-top4top_...1-rar.html