منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال بخصوص البيكتشر بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي بكتشر بوكس علي الفورم به صوره 
اريد اكواد تتغامل مع من حيث الكوبي و الكات والبيست 
مثل برنامج الرسام
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم مود للنسخ الى الذاكرة وكود أخر للصق من الذاكرة

كود :
   ' 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
(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
كل الشكر لك اخي