[اليوم السابع]

(29-04-20, 08:24 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم مود للنسخ الى الذاكرة وكود أخر للصق من الذاكرة

كود :

   ' copy
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Computer.Clipboard.SetImage(PictureBox1.Image)
       MsgBox("Copied!")
   End Sub
   ' paste
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If My.Computer.Clipboard.ContainsImage Then
           PictureBox2.Image = My.Computer.Clipboard.GetImage
       End If
   End Sub

كل الشكر لك اخي